Ciao a tutti,

ho un problema :

ho le classiche 3 pagine per una prentazione:

1a fase:
a_ver_disp_01.asp
Riepilogo_01.asp
Invio.asp

2a fase:
a_ver_disp_conf.asp
Riepilogo_conf.asp
Invio_Conf.asp


e poi ho un db che dovrebbe essere popolato in 2 momenti diversi:
nella prima fase il db viene popolato regolarmente

con la seconda serie di pagine l'albergo conferma la disponibilità ed il db dovrebbe essere popolato in 2 campi e questo non accade. chi mi può aiutare?

allego i codici:



********** a_ver_disp_conf.asp **********

<%@LANGUAGE="VBSCRIPT"%>

<%
Dim rsPrenota__Param1
rsPrenota__Param1 = "-1"
If (Request("id") <> "") Then
rsPrenota__Param1 = Request("id")
End If
%>
<%
Dim rsPrenota
Dim rsPrenota_cmd
Dim rsPrenota_numRows

Set rsPrenota_cmd = Server.CreateObject ("ADODB.Command")
rsPrenota_cmd.ActiveConnection = MM_Prenota_STRING
rsPrenota_cmd.CommandText = "SELECT * FROM RichiesteProgressivi WHERE ID = ?"
rsPrenota_cmd.Prepared = true
rsPrenota_cmd.Parameters.Append rsPrenota_cmd.CreateParameter("param1", 5, 1, -1, rsPrenota__Param1) 'adDouble

Set rsPrenota = rsPrenota_cmd.Execute
rsPrenota_numRows = 0
%>

********** Riepilogo_conf.asp **********

<%@LANGUAGE="VBSCRIPT"%>

<%
Dim rsPrenota__Param1
rsPrenota__Param1 = "-1"
If (Request("Id") <> "") Then
rsPrenota__Param1 = Request("Id")
End If
%>
<%
Dim rsCount__Param1
rsCount__Param1 = "-1"
If (Request("id") <> "") Then
rsCount__Param1 = Request("id")
End If
%>
<%
Dim rsPrenota
Dim rsPrenota_cmd
Dim rsPrenota_numRows

Set rsPrenota_cmd = Server.CreateObject ("ADODB.Command")
rsPrenota_cmd.ActiveConnection = MM_Prenota_STRING
rsPrenota_cmd.CommandText = "SELECT * FROM RichiesteProgressivi where Id = ?"
rsPrenota_cmd.Prepared = true
rsPrenota_cmd.Parameters.Append rsPrenota_cmd.CreateParameter("param1", 200, 1, 10, rsPrenota__Param1) ' adVarChar

Set rsPrenota = rsPrenota_cmd.Execute
rsPrenota_numRows = 0
%>
<%
Dim rsCount
Dim rsCount_cmd
Dim rsCount_numRows

Set rsCount = Server.CreateObject("ADODB.Recordset")
rsCount.ActiveConnection = MM_Prenota_STRING
rsCount.Source = "SELECT * FROM RichiesteProgressivi WHERE Id = " + Replace(rsCount__Param1, "'", "''")
rsCount.CursorType = 0
rsCount.CursorLocation = 2
rsCount.LockType = 3
rsCount.Open()

a=request.form("Conferma")
b=request.form("Email_S")

If Not rsCount.EOF Then
rsCount.Fields.Item("Conferma").Value = a
rsCount.Fields.Item("Email_S").Value = b

rsCount.UpDate()
End If

%>

********** Invio_Conf.asp **********

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
Dim rsCount__Param1
rsCount__Param1 = "-1"
If (Request("id") <> "") Then
rsCount__Param1 = Request("id")
End If
%>
<%
Dim rsCount

Set rsCount = Server.CreateObject("ADODB.Recordset")
rsCount.ActiveConnection = MM_Prenota_STRING
rsCount.Source = "SELECT * FROM RichiesteProgressivi WHERE Id = " + Replace(rsCount__Param1, "'", "''")
rsCount.CursorType = 0
rsCount.CursorLocation = 2
rsCount.LockType = 3
rsCount.Open()

%>
<%
Dim IP
IP=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If IP="" Then
IP=Request.ServerVariables("REMOTE_ADDR")
End If
mittente = "pippo@email.it"
messaggio = vbCrLf &_
"La disponibilità relativa alla Sua richiesta è stata appena " & Request.Form("Conferma") & vbCrLf &_
vbCrLf &_
vbCrLf &_
"Codice: " & (rsCount.Fields.Item("Id_Struttura").Value) & vbCrLf &_
"Struttura: " & (rsCount.Fields.Item("Struttura").Value) & vbCrLf &_
"Cognome Richiedente: " & (rsCount.Fields.Item("Cognome").Value) & vbCrLf &_
"Nome Richiedente: " & (rsCount.Fields.Item("Nome").Value) & vbCrLf &_
"N_Camere: " & (rsCount.Fields.Item("N_Camere").Value) & vbCrLf &_
"N_Notti: " & (rsCount.Fields.Item("N_Notti").Value) & vbCrLf &_
"Arrivo: " & (rsCount.Fields.Item("Arrivo").Value) & vbCrLf &_
"N_Adulti: " & (rsCount.Fields.Item("N_Adulti").Value) & vbCrLf &_
"N_Bambini: " & (rsCount.Fields.Item("N_Bambini").Value) & vbCrLf &_
"Tipo_trattamento: " & (rsCount.Fields.Item("Tipo_Trattamento").Value) & vbCrLf &_
"Importo: " & (rsCount.Fields.Item("Importo").Value) & vbCrLf &_
"Ulteriori_Richieste: " & (rsCount.Fields.Item("Ulteriori_Richieste").Value) & vbCrLf &_
"NumProgressivo: " & (rsCount.Fields.Item("Id").Value) & " / " & (rsCount.Fields.Item("NumProgressivo").Value) & vbCrLf &_
"Status della Disponibilità: " & Request.Form("Conferma") & vbCrLf
messaggio = messaggio & "Informazioni: " & vbCrLf & "INDIRIZZO ip: " & IP
'Invio email
Set Mail = Server.CreateObject("CDO.Message")
Mail.From = rsCount.Fields.Item("Email").Value
Mail.To = mittente
Mail.To = rsCount.Fields.Item("Email").Value
'Mail.Cc = Request.Form("Email")
Mail.Cc = Request.Form("Email_S")
Mail.Subject = "Conferma Prenotazione da xxxx.com"
Mail.TextBody = "Prova Prenotazione.... per la Struttura... " & messaggio
Mail.Send
Set Mail = nothing
%>
<%
Dim DIP
DIP=Request.ServerVariables("HTTP_X_FORWARDED_FOR" )
If DIP="" Then
DIP=Request.ServerVariables("REMOTE_ADDR")
End If
mittente = "pippo@email.it"
messaggio = vbCrLf &_
"Ricevuta per Disponibilità " & Request.Form("Conferma") & vbCrLf &_
vbCrLf &_
vbCrLf &_
"Codice: " & (rsCount.Fields.Item("Id_Struttura").Value) & vbCrLf &_
"Struttura: " & (rsCount.Fields.Item("Struttura").Value) & vbCrLf &_
"Cognome Richiedente: " & (rsCount.Fields.Item("Cognome").Value) & vbCrLf &_
"Nome Richiedente: " & (rsCount.Fields.Item("Nome").Value) & vbCrLf &_
"N_Camere: " & (rsCount.Fields.Item("N_Camere").Value) & vbCrLf &_
"N_Notti: " & (rsCount.Fields.Item("N_Notti").Value) & vbCrLf &_
"Arrivo: " & (rsCount.Fields.Item("Arrivo").Value) & vbCrLf &_
"N_Adulti: " & (rsCount.Fields.Item("N_Adulti").Value) & vbCrLf &_
"N_Bambini: " & (rsCount.Fields.Item("N_Bambini").Value) & vbCrLf &_
"Tipo_trattamento: " & (rsCount.Fields.Item("Tipo_Trattamento").Value) & vbCrLf &_
"Importo: " & (rsCount.Fields.Item("Importo").Value) & vbCrLf &_
"Ulteriori_Richieste: " & (rsCount.Fields.Item("Ulteriori_Richieste").Value) & vbCrLf &_
"NumProgressivo: " & (rsCount.Fields.Item("Id").Value) & " / " & (rsCount.Fields.Item("NumProgressivo").Value) & vbCrLf &_
"Status della Disponibilità: " & Request.Form("Conferma") & vbCrLf
messaggio = messaggio & "Informazioni: " & vbCrLf & "INDIRIZZO ip: " & IP
'Invio email
Set Mail2 = Server.CreateObject("CDO.Message")
Mail2.From = rsCount.Fields.Item("Email").Value
Mail2.To = mittente
Mail2.To = rsCount.Fields.Item("Email").Value
'Mail2.Cc = Request.Form("Email")
Mail2.Cc = Request.Form("Email_S")
Mail2.Subject = "Prenotazione da xxxx.com"
Mail2.TextBody = "Prova Prenotazione.... per la Struttura... " & messaggio
Mail2.Send
Set Mail2 = nothing
%>

********** db **********

ID Anno NumProgressivo Id_Struttura Struttura Email Cognome Nome N_Camere N_Notti Telefono Arrivo N_Adulti N_Bambini Prezzo Importo Tipo_Trattamento Ulteriori_Richieste Conferma Email_S

129 2010 201000096 256 LA TETTOIA- CASA VACANZE pippo@alice.it MORSELLI Paolo 1 5 339 xxxxxxx 01/08/2010 4 1 110 550 Doppia con Bagno internet
130
131