<%
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("/mdb-database/mad.mdb")
strConn=strConn & ";pwd=training"
Conn.Open strConn
sql="SELECT TOP 32 * FROM articoli where sezione = 'news' ORDER BY ad_ID DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
if not rs.eof then
Do While Not rs.EOF
if (rs("campo5")) = voce then
response.write "<p class=AltreNews>"
response.write "<img id=icone src=/img/im44.gif>"
response.write "
"&rs("comune")&": "&rs("AD_TITLE")&""
else
response.write "<p class=AltreNews>"
response.write "<img id=icone src=/img/im04.gif> "
response.write "<a href=centro.asp target=centro onclick=window.open('video01.asp?id="& rs("ad_id")&"#alto','pop6','location=no,toolbar=no ,menubar=no,scrollbars=no,resizable=no,width=360,h eight=290');>" & rs("ad_title") & ""
response.write "</a>"
end if
response.write "</a>
"
rs("ad_viewed")=rs("ad_viewed")+1
rs.update
rs.MoveNext
Loop
end if
%>