codice:
<%
'---Dichiarazione variabili
Dim QSPrenotazione, QSID, QSEMail, IP, Data, SQL, RS, QSQuantita, QSDominio, QSWww, QSGrafica, QSBudget, QSNemail, QSEcommerce, QSTipo
'---Recupero i dati
QSPrenotazione = Replace(Request.Form("Prenotazione"), "'", "''")
QSID = Replace(Request.Form("ID"), "'", "''")
QSQuantita = Replace(Request.Form("Quantita"), "'", "''")
QSEmail = Replace(Request.Form("Email"), "'", "''")
QSDominio = Replace(Request.Form("Dominio"), "'", "''")
QSWww = Replace(Request.Form("Www"), "'", "''")
QSGrafica = Replace(Request.Form("Grafica"), "'", "''")
QSBudget = Replace(Request.Form("Budget"), "'", "''")
QSNemail = Replace(Request.Form("Nemail"), "'", "''")
QSEcommerce = Replace(Request.Form("Ecommerce"), "'", "''")
QSTipo = Replace(Request.Form("Tipo"), "'", "''")
If QSEmail = "" Then
QSEmail = "?"
End If
IP = Request.ServerVariables("REMOTE_ADDR")
Data = DataToStr(Date)
'---Inserisco i dati nel database
If QSPrenotazione <> "" Then
SQL = " INSERT INTO Prenotazioni (IDProdotto, Quantita, Prenotazione, IP, Data, Autore, Ora, Dominio, Www, Grafica, Budget, Nemail, Ecommerce, Tipo) VALUES ('"&QSID&"', '"&QSQuantita&"', '"&QSPrenotazione&"', '"&IP&"', '"&data&"', '"&QSEmail&"', #"&Time&"#, '"&QSDominio&"', '"&QSWww&"', '"&QSGrafica&"', '"&QSBudget&"', '"&QSNemail&"', '"&QSEcommerce&"', '"&QSTipo&"') "
Set RS = Conn.execute(SQL)
Else
Response.Redirect Request.ServerVariables("HTTP_REFERER")
End If
'---Dichiarazione variabili
Response.Redirect "prenotazione_confermata.asp"
%>