<% Response.ExpiresAbsolute = #1/1/2001# Response.AddHeader "cache-control", "no-store, must-revalidate, private" Response.AddHeader "Pragma", "no-cache" checkid=request.querystring("id") %> <% Set cn = Server.CreateObject("ADODB.Connection") cn.open "Driver={Microsoft Access Driver (*.mdb)}; Dbq="&Server.MapPath("../basedati/panallo.mdb") Set rs = Server.CreateObject("ADODB.Recordset") %> DeadEndTrack.com

Ultime News

 

<% if checkid<>"" then sql="SELECT * FROM news WHERE id=" & checkid & "" rs.open sql, cn, adopenkeyset, adlockoptimistic if not rs.eof then %>

<%=rs("titolo")%>

 

<% response.write replace(rs("corpo"),vbCrLf,"
") %>

<% if rs("fotouno")<>"" then %>

.jpg">

<% end if if rs("link")<>"" then %>

" target="_blank">link

<% end if else %>

Errore, la news richiesta non esiste.

<% end if %> <% end if %>