esatto, pensavo di aver fatto già questa modifica di fatti non avevo aggiornato il file sul web. ora funziona bene. grazie.
ps: come mai se io in passo1.htm do la data dal 13/05/2006 al 26/05/2006 - bilo2 - tutto funziona
se, invece, metto date tipo 10/06/2006 al 24/06/2006 non mi stampa niente???
una prova su www.viagginelsalento.it/utilita/8/passo1.htm
SCUSA IL CASINO MA DOPO TANTE PROVE ORA IL CODICE è------------------------------------------------------
<%
dim dal_var2, al_var2, tipologia_var2, stag_var2
'prima settimana
dal_var2 = Request.Form("dal_var")
'seconda settimana
al_var2 = Request.Form("al_var")
'tipologia
tipologia_var2 = Request.Form("tipologia_var")
'stagionalita
stag_var2 = Request.Form("stag_var")
'response.write(dal_var2 & "<br>")
'response.write(al_var2)
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("baia.mdb")
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
dim sql_select
'sql_select = "select * FROM "&tipologia_var2
sql_select = "select * from " & tipologia_var2 & " where dal >= #" & dal_var2 & "# and al <= #" & al_var2 & "#"
response.write(dal_var2 & "<br>")
response.write(al_var2 & "<br>")
response.write(tipologia_var2 & "<br>")
response.write(stag_var2)
'Dim dal, al, intera
rs.Open sql_select, Conn
%>
<html>
<head>
<title>Documento senza titolo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
Dim tot
tot=0
Do while NOT RS.EOF
sett1 = rs("dal")
sett2 = rs("al")
locazione =rs("intera") 'locazione deve essere uguale alla variabile passata dal passo1
tot=tot+locazione
id = rs("Id")
%>
<br>
dal : <%=sett1%><br>
al : <%=sett2%><br>
locazione : <%=locazione%><br>
Id : <a href="as.asp?id=<%=Id%>"><%=Id%></a><br>
<hr>
<p>
<%
RS.MoveNext
Loop
%>
</p>
<FORM ACTION="passo3.asp?tot=<% response.write tot %>" METHOD=POST>
<table width="180" border="1" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="140" height="5" bgcolor="#66FFFF"><div align="right"><font size="2" face="Courier New, Courier, mono">Pt</font><font size="2" face="Courier New, Courier, mono"> in
%
<input name=pt type=TEXT id="pt">
</font></div>
</td>
<td width="18" rowspan="6" valign="bottom"> </td>
</tr>
<tr>
<td height="23" bgcolor="#FFFF99"><div align="right"></div>
</td>
</tr>
<tr>
<td bgcolor="#FFFFCC"><div align="right"><font size="2" face="Courier New, Courier, mono"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></strong> </font></div>
</td>
</tr>
<tr>
<td bgcolor="#FFFF99"><div align="right"><font size="2" face="Courier New, Courier, mono"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><font size="2" face="Courier New, Courier, mono"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><font color="#FF0000">
</font><font color="#FF0000"> </font></font></strong></font><font color="#FF0000"> </font></font></strong> </font></div>
</td>
</tr>
<tr>
<td bgcolor="#FFFF99"><div align="right"><font size="2" face="Courier New, Courier, mono"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></strong></font>
<div align="right"><font size="2" face="Courier New, Courier, mono"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></strong> Ad n.</font></div>
<font size="2" face="Courier New, Courier, mono">
<input name=n_ad type=TEXT id="n_ad" >
<strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">€ </font></strong> - Ch n.
<input name=n_ch type=TEXT id="n_ch" >
</font></div>
</td>
</tr>
<tr>
<td bgcolor="#66FFFF">
<div align="right"> <font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>
</strong></font>
<input name="SUBMIT" type=SUBMIT value="Calcola">
</div>
</td>
</tr>
<tr>
<td><table width="140" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="119">
<%
Dim n_ad
Dim ad2
Dim n_ch
Dim ch2
Dim pt
' leggo il valore degli adulti
If isnumeric(intera)=TRUE then
ad_tc = n_ad * 5
ch_tc = n_ch * ch
pt = tot * (pt/100)
sub_locazione = pt + tot
totale = sub_locazione + ad_tc + ch_tc
' mostro il risultato
Response.Write "TOTALE ¤ " & totale
else
Response.write ("la variabile INTERA non è un numero. Il suo valore è:-"&intera & " -")
end if
%>
<%
RS.Close
Set RS = Nothing
conn.Close
Set conn=Nothing
%>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>
</strong></font></p></td>
</tr>
<tr>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong> </strong></font></td>
</tr>
<tr>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong> </strong></font></td>
</tr>
</table>
</td>
<td width="18"> </td>
</tr>
</table>
</form>
<p> </p>
