<%@language=vbscript%>
<%
dim objconn, strconn
set objconn= server.createobject("adodb.connection")
strconn="Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& server.mappath("/mdb-database/pino.mdb")
objconn.open strconn
tex=request.form("testo")
ident=request.form("nascosto")
noche=request.form("notti")
numeropers=request.form("persone")
giora=request.form("gioar")
messa=request.form("mesar")
ana=request.form("anra")
gip=request.form("giopa")
messp=request.form("mespa")
annop=request.form("anpa")
came=request.form("camer")
identifi=request.form("nome")
surname=request.form("cognome")
address=request.form("indirizzo")
town=request.form("citta")
phone=request.form("telefono")
email=request.form("mail")
codice=request.form("cap")
merco= cint(messp)
ao= cint(annop)
gior=cint(gip)
completissimo=dateserial(ao,merco,gior)
mercif=cint(messa)
aloa= cint(anna)
gionatan=cint(giora)
completo=dateserial(aloa,mercif,ginatan)
strsql="select post from tblex where id like'%"&ident&"%'"
set rs= server.createobject("adodb.recordset")
rs.open strsql,objconn,3,3
maildest=rs("post")
strquer="INSERT INTO tabprenot (nome, cognome, indirizzo, citta, telefono, hotel, dataarr, datapart, richiesta, codec, camera, postae, night, numpers, codix) VALUES ('"& identifi &"', '"& surname &"','"& address &"','"&town&"','"& phone &"','"& maildest &"','"& completo &"','"& completissimo &"','"& tex &"','"& ident &"','"& came &"', '"& email &"','"& noche &"','"& numeropers &"','"&codice&"')"
objconn.execute(strquer)
'============Linkbruttocane su specifiche MSDN================
'* il corpo finale del messaggio contiene tutti i campi *
'* inseriti nella pagina html, in pratica puoi mettere *
'* tutti i campi che ti servono nel modulo di invio senza *
'* fare altre configurazioni aggiuntive. *
'================================================= ============
'* voce da modificare con il proprio indirizzo email
invioA = ""& maildest &""
'* voce da modificare con un indirizzo email che funga da mittente:
'* in caso di errore riceverete notifica a questo indirizzo un MAILER-DAEMON
'* dato che cdosys supporta questa notifica
invioDa = "antoniomark@libero.it"
'------------fine modifiche necessarie------------------
'*rilevo i campi del form
FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
IF NOT Request.Form(numeroCampi) = "" THEN
corpoMessaggio = corpoMessaggio & "
" & Request.Form.Key(numeroCampi) & " = " & Trim(Request.Form(numeroCampi))
END IF
NEXT
'* creo gli oggetti cdosys sul server e li gestisco
DIM iMsg, Flds, iConf
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update
With iMsg
Set .Configuration = iConf
.To = invioA
.From = Request.Form("email")
.Sender = invioDa
.Subject = "Contatto da easyplatz "
.HTMLBody = "<font face=verdana size=2>la richiesta è di notti
" & noche & " per numero di persone
" & numeropers & " dal
" & completo & "al
" & completissimo & " tipo camera " & came & "ulteriore commento:" & tex & "
"
.Send
End With
set objmessage=nothing
rs.close
set rs= nothing
objconn.close
set objconn=nothing
%>
<script>
document.location.replace('grazie.asp');
</script>
</body>
</html>
Rispondi quotando
