ciao a tutti,
sto compilando un listino prezzi per affitto appartamenti.
ho creato il passo1.htm (www.viagginelsalento.it/utilita/8/step1.htm) dove inserisco la data "dal" "al", la tipologia "bilo2"
- nello step2.asp (www.viagginelsalento.it/utilita/8/step2.asp) mi vien fuori il risultato
- trovate il db su www.viagginelsalento.it/utilita/8/baia.zip
- ora, siccome in alcune date (diciamo 5-6 eccezioni) ci sono degli sconti, vorrei inserire una funzioncina tipo
--------IF dal_var2=13/05/2006 AND al_var2=26/05/2006 THEN moltiplica la variabile "locazione" per 0,05 che è lo sconto -----
sono sicuro di un vostro solito e puntuale aiuto, grazie: daniele.
===========================CODICE STEP2.ASP========================
<%
dim dal_var2, al_var2, tipologia_var2
'prima settimana
dal_var2 = Request.Form("dal_var")
'seconda settimana
al_var2 = Request.Form("al_var")
'tipologia
tipologia_var2 = Request.Form("tipologia_var")
'response.write(dal_var2 & "
")
'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 & "
")
response.write(al_var2 & "
")
response.write(tipologia_var2 & "
")
'Dim dal, al, intera
rs.Open sql_select, Conn
%>
<html>
<head>
<title>STEP 2</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")
tot=tot+locazione
%>
dal : <%=sett1%>
al : <%=sett2%>
locazione : <%=locazione%>
Id : <%=Id%>
<hr>
<%
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"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font> </font></div>
</td>
</tr>
<tr>
<td bgcolor="#FFFF99"><div align="right"><font size="2" face="Courier New, Courier, mono"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><font size="2" face="Courier New, Courier, mono"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><font color="#FF0000">
</font><font color="#FF0000"> </font></font></font><font color="#FF0000"> </font></font> </font></div>
</td>
</tr>
<tr>
<td bgcolor="#FFFF99"><div align="right"><font size="2" face="Courier New, Courier, mono"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></font>
<div align="right"><font size="2" face="Courier New, Courier, mono"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font> Ad n.</font></div>
<font size="2" face="Courier New, Courier, mono">
<input name=n_ad type=TEXT id="n_ad" >
<font size="2" face="Verdana, Arial, Helvetica, sans-serif">€ </font> - 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">
</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">
</font></p></td>
</tr>
<tr>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif"></font></td>
</tr>
<tr>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif"></font></td>
</tr>
</table>
</td>
<td width="18"></td>
</tr>
</table>
</form>
</p>
==================================================
Rispondi quotando
