buona domenica a tutti/e
sto creando un listino per affitti estivi visibile su xcxxxxx
in due passaggi: il primo prevede un form di inserimento di alcune variabili, il secondo restituisce i relativi valori pescando i dati da un db dove ci sono i costi.
vorrei, una volta effettuato il calcolo (e quindi arrivati al passo2.asp):
1 - continuare a compilare il passo2.asp con i campi tipo "nome, cognome, ecc" (e questo
non credo sia un grosso problema)
2 - poter registrare i risultati + i campi appena inseriti su un secondo db (diverso da quello
in cui ci sono i listini) dove normalmente registro i clienti prenotati.
IN PRATICA: dovrei passare al secondo db:
a - il totale, la locazione, la data "dal_var2" e "al_var2", la "tipologia_var2"
b - altri campi che ancora non ho inserito in un request "nome", "cognome" ...
il codice del passo2.asp (scusate il disordine ma è tutto in progress e Pasqua è già passata)
<%
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 & "
")
'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 & " where dal >= #" & dal_var2 & "# and al <= #" & al_var2 & "#"
response.write(dal_var2 & "
")
response.write(al_var2 & "
")
response.write(tipologia_var2 & "
")
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(stag_var2)
tot=tot+locazione
%>
<hr>
<%
RS.MoveNext
Loop
%>
</p>
<FORM ACTION="passo3.asp?tot=<% response.write tot %>" METHOD=POST>
<table width="410" border="2" align="center" cellpadding="5" cellspacing="0" bordercolor="#FF9900" bgcolor="FFFFFF">
<tr>
<td><table width="400" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="ffffff">
<tr bgcolor="#99FF66">
<td colspan="6"><font color="#0000FF" face="Verdana, Arial, Helvetica, sans-serif">residence
club "LA BAIA D'ORO" - <a href="http://www.salentoclub.it/struttura.php?id=47&localita=5&tipo=1" target="_blank"><font size="1">pagina
web</font></a></font></td>
</tr>
<tr>
<td colspan="6"><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif"> </font><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif"> </font><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif"> </font>
<div align="left"></div>
<font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif"> </font></td>
</tr>
<tr>
<td><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">dal</font></td>
<td><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif"> <%= Dal_var2 %> </font></td>
<td><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">al</font></td>
<td><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif"> <%= Al_var2 %> </font></td>
<td><div align="left"><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">tipol.</font></div>
</td>
<td><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= tipologia_var2 %> </font></td>
</tr>
<tr>
<td><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">n
ad</font></td>
<td><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= ad_var2 %> </font></td>
<td><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">n
ch</font></td>
<td><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= ch_var2 %> </font></td>
<td><div align="left"><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">n
inf</font></div>
</td>
<td><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%= inf_var2 %> </font></td>
</tr>
<tr>
<td width="52"></td>
<td width="80"></td>
<td width="42"></td>
<td width="83"></td>
<td width="38"><div align="left"></div>
</td>
<td width="105"></td>
</tr>
<tr>
<td><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">Locaz</font></td>
<td><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif"> <%= formatcurrency(locazione,2,-1,-1) %> </font></td>
<td><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">TC
ad</font></td>
<td><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif"> <%= formatcurrency(tessera1,2,-1,-1) %> </font></td>
<td><div align="left"><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif">TC
ch</font></div>
</td>
<td><font color="#333333" size="1" face="Verdana, Arial, Helvetica, sans-serif"> <%= formatcurrency(tessera2,2,-1,-1) %> </font></td>
</tr>
<tr>
<td><font color="#333333" size="2" face="Verdana, Arial, Helvetica, sans-serif">Sconto</font></td>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font></td>
<td colspan="3" bgcolor="#00FFFF">
<%
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
%>
</td>
<td bgcolor="#00FFFF"></td>
</tr>
<tr bgcolor="ffffff">
<td colspan="6"></td>
</tr>
<tr bgcolor="#99FF66">
<td colspan="6"></td>
</tr>
</table>
</td>
</tr>
</table>
</form>
</p>
Rispondi quotando
