Καλώς ήρθατε στα Νέα του Οινογνώση & Απόλαυση...

Διαβάστε αναλυτικότερα τα νέας μας

<% Dim oConn1, oRS1, strRet Dim strConnect strConnect = "Provider=sqloledb;Data Source=70.87.28.215;User Id=tasos;Password=nn481969" Set oConn1 = Server.CreateObject("ADODB.Connection") oConn1.Open strConnect If Request.QueryString("mde")="0" Then Set oRS1 = oConn1.Execute("SELECT CONVERT(VARCHAR(10), newsdate, 103) AS NewsDate, newsid, messagebdy FROM tblNews ORDER BY newsid DESC") Else Set oRS1 = oConn1.Execute("SELECT CONVERT(VARCHAR(10), newsdate, 103) AS NewsDate, newsid, messagebdy FROM tblNews WHERE newsid=" & Request.QueryString("mde")) End If %>