<%@ Language=VBScript CODEPAGE=65001%>
<%Option Explicit
Response.Charset="UTF-8"%>
<%
Dim gobjDB,arrPhotos,gintTotal,gstrEN,gstrGR
If Request.QueryString("lang")<>"" Then
Session("Language")=UCASE(Request.QueryString("lang"))
End If
Select Case Session("Language")
Case "GR"
gstrGR="GR"
Case "EN"
gstrEN="EN"
Case Else
Session("Language")="GR"
End Select
%>
<%=translate("mikhalisfarsaris")%> - News
<%
Sub GetNews()
Dim strSQL, rs,connection,connectionString
On Error Resume Next
strSQL =" SELECT * " & _
" FROM farNews " & _
" ORDER BY ID desc "
Set connection = CreateObject( "ADODB.Connection" )
connectionString = "Provider=SQLOLEDB; Data Source=91.199.151.166\SQLEXPRESS; Initial Catalog=vincent; User Id=vincent; Password=th&%Y09?K"
connection.Open connectionString
Set rs = CreateObject( "ADODB.recordset" )
rs.Open strSQL,connection
If Err Then
Response.Write "Failed to select from News table. "
Response.Write "Err=" & Err.number & "/" & Err.description & " "
Response.Write "SQL: " & strSQL & " "
Exit Sub
End If
Do While Not rs.EOF
Response.Write "
" & rs("Title" & Session("language")) & "
"
Response.Write "
" & rs("Body" & Session("language")) & "
"
rs.MoveNext
Loop
set rs=nothing
connection.Close
Set connection = Nothing
End Sub
%>
">
<%=translate("news")%>">
