<% Dim Con Dim databaseConnect sqlString = "SELECT id,tex,dat,title FROM news WHERE id = " & request.querystring("nid") databaseConnect = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../admin/temka.mdb") Set Con = Server.CreateObject("ADODB.Connection") Con.Open databaseConnect Set prodRS = Con.Execute(sqlString) %> TEMKA

ΕΝΗΜΕΡΩΣΗ


<%=prodRS("dat")%>
 <%=prodRS("title")%>
 

<%=formatMessage(Server.HTMLEncode(prodRS("tex")))%>