| |
<%
product_id = TRIM( Request( "pid" ) )
tipo = trim ( request ( "tipo" ) )
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("news.mdb")
objConn.Open
Set objRS = Server.CreateObject("ADODB.RecordSet")
objRS.ActiveConnection = objConn
objRS.Open "SELECT product_id, titolo, data, descrizione, allegato FROM notizie WHERE product_id = " & product_id & " AND tipo=1 ORDER BY data "
WHILE NOT objRS.EOF%>
|
|
<%=objRS("data")%>
<%=Server.HTMLEncode(objRS("titolo"))%>
|
<%=Server.HTMLEncode(objRS("descrizione"))%>
|
<%objRS.MoveNext
WEND
%>
|
|
|
|
