codice:
<%
dim var_data2, var_str3, cn, rs, sql
var_data2=request.querystring("dal")
var_str3=request.querystring("struttura")
set cn = Server.CreateObject("ADODB.Connection")
cn.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;"&_
"Persist Security Info=False;"&_
"Data Source="& Server.MapPath("mdb/gues.mdb")
cn.open()
sql = "SELECT * FROM book WHERE dal LIKE '" & replace(var_data2,"'","''") & "' AND struttura LIKE '" & replace(var_str3,"'","''") & "'"
set rs = cn.execute(sql)
%>
<html>
<head>
<title>LISTA DEGLI ARRIVI del <%=Rs.Fields("dal")%></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<table width="1000" border="1" align="left" cellpadding="0" cellspacing="0" bgcolor="fffffffffffff">
<tr bgcolor="#333333">
<td colspan="16"><div align="center"><font color="#FFFFFF" size="3" face="Verdana, Arial, Helvetica, sans-serif">(<%=Rs.Fields("struttura")%>) FOGLIO DEGLI ARRIVI del <%=Rs.Fields("dal")%></font></div>
</td>
</tr>
<tr>
<td colspan="16"><div align="right"><font size="1"></font></div>
</td>
</tr>
<tr>
<td width="50" align="left" bgcolor="#FFFFCC"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">n apt</font></td>
<td width="101" align="left" bgcolor="#FFFFCC"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">cliente</font></td>
<td width="97" align="left" bgcolor="#FFFFCC"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">periodo</font></td>
<td width="65" align="left" bgcolor="#FFFFCC"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">tipol.</font></td>
<td width="41" align="left" bgcolor="#FFFFCC"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">n pax</font></td>
<td width="101" align="left" bgcolor="#FFFFCC"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">operatore</font></td>
<td width="30" align="left" bgcolor="#FFFFCC"><div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif">forf</font></font></div></td>
<td width="30" align="left" bgcolor="#FFFFCC"><div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif">pul</font></font></div></td>
<td width="40" align="left" bgcolor="#FFFFCC"><div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif">bianc</font></font></div></td>
<td width="40" align="left" bgcolor="#FFFFCC"><div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif">anim</font></font></div></td>
<td width="30" align="left" bgcolor="#FFFFCC"><div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif">TC</font></font></div></td>
<td width="40" align="left" bgcolor="#FFFFCC"><div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif">Saldo</font></font></div></td>
<td width="40" align="left" bgcolor="#FFFFCC"><div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif">Totale</font></font></div></td>
<td width="40" align="left" bgcolor="#FFFFCC"><div align="center"><font size="1"><font face="Verdana, Arial, Helvetica, sans-serif">cauz</font></font></div></td>
<td width="310" align="left" bgcolor="#FFFFCC"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">note</font></td>
<td width="42" align="left" bgcolor="#FFFFCC"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">RF</font></td>
</tr>
<tr>
<td align="left"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
</font></td>
<td align="left" valign="top"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=Rs.Fields("cognome")%><%=Rs.Fields("nome")%></font></td>
<td align="left" valign="top"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">dal <%=Rs.Fields("dal")%>
al
<%=Rs.Fields("al")%></font></td>
<td align="left" valign="top"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=Rs.Fields("tipologia")%></font></td>
<td align="left" valign="top"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=Rs.Fields("ad")%>+<%=Rs.Fields("ch")%>+<%=Rs.Fields("inf")%></font></td>
<td align="left" valign="top"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=Rs.Fields("segnalato")%></font></td>
<td width="30" align="left" valign="top"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"></font></td>
<td width="30" align="left" valign="top"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"></font></td>
<td width="40" align="left" valign="top"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"></font></td>
<td width="40" align="left" valign="top"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"></font></td>
<td width="30" align="left" valign="top"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"></font></td>
<td width="40" align="left" valign="top"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=Rs.Fields("saldo")%></font></td>
<td width="40" align="left" valign="top"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"></font></td>
<td width="40" align="left" valign="top"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"></font></td>
<td align="left" valign="top"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=Rs.Fields("appunti")%></font></td>
<td align="left"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<%
do while not rs.eof
%>
<%
rs.movenext()
loop
%>
<%
' libera le risorse
rs.close()
set rs = nothing
cn.close()
set cn = nothing
%>
</font></td>
</tr>
</table>
</p>
</p>
</p>