% if request("ID") = "" or isNull(request("ID")) then %> <% response.end end if function visdata(stringa) if len(stringa) = 8 then visdata = right(stringa, 2) & "/" & mid(stringa, 5, 2) & "/" & left(stringa, 4) else visdata = " " end if end function %> <% Set conn = Server.CreateObject("ADODB.Connection") conn.open(strConn) sql = "SELECT data_notizia, sottotitolo_" & session("lingua") & ", testo_" & session("lingua") & " FROM news WHERE ID=" & request("ID") Set rst = conn.execute(sql) %>
20/04/2008 |
|