% @Language=VBScript %> <% Option Explicit %> <% PreventPageCaching dim ID : ID = request.QueryString("ID") if ID = "" or not isNumeric(ID) then response.Redirect("../mediaglobal/news.asp?page=1") dim sTitolo, sAbstract, sContenuto, dData sSQL = "SELECT * FROM tblNews WHERE ID = "&ID&" AND bEnabled = -1" set oRS = getRS(sSQL, connstring) if oRS.eof then response.Redirect("../mediaglobal/news.asp?page=1") sTitolo = oRS("sTitolo") sAbstract = oRS("sAbstract") sContenuto = normalizeCMSText(oRS("sContenuto")) dData = compDate2ITA(oRS("dData")) set oRS = Nothing %>