codice:
<%
dim strCode
strCode="innovatel"
dim intVolta
intVolta="0"
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("/fpdb/casting.mdb")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn
sql = "SELECT * FROM modelle ORDER BY campoNomeModella" ' in questo modo le ordini per nome...
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
do while not(rs.eof)
if intVolta="1" then
intVolta="0"
intTesto="#000000"
intSfondo="#FFFFFF"
else
intVolta="1"
intTesto="#000000"
intSfondo="#CAE8D6"
end if
%>
<TR bgcolor="<%=intSfondo%>">
<TD width="553" height="27" align="left"><p align="left" style="margin-left: 5"><%=rs(1)%></p></TD>
<TD width="94" height="27" align="center"><%=rs(2)%></TD>
<TD width="94" height="27" align="center">','popup','width=500,height=500');">[img]<%=rs(3)%>[/img]</TD>
</TR>
<%
rs.movenext
loop
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>
<TR>
paginapupup.asp
codice:
[img]<%=request.queryString([/img]" />