Salve, ho creato una pagina form in htm che richiama una pagina asp nella quale i dati presi dal form vengono elaborati e inviati via mail. Non riesco però a far partire correttamente i dati, ovvero il server risponde che vi è un errore di programmazione nella pagina asp.
Di seguito posto il codice asp:
"<%
Dim form, nome, cognome
'================================================= =======================================
' Prelevo i dati fondamentali
'================================================= =======================================
cognome = TRIM (Request.Form("is_cognome"))
email = TRIM (Request.Form("is_mail"))
call Main()
'*************************************************
Sub Main()
'================================================= =======================================
'se la lungezza risulta 0 non c'e niente nell email
'altrimenti facciamo alcune operazioni
'================================================= =======================================
If Len(Request.Form("is_email")) = 0 then
no_email()
ELSE
IF rs.EOF THEN
manda_posta(form)
ecco_fatto(nome)
end if
end if
End sub
'************************************************
Sub no_email()
'================================================= ========================================
'Diciamo al cliente che senza una email non possiamo rispondergli
'================================================= ========================================
response.write "<div align='center'>"
response.write "<table border='0' width='80%' cellspadding='4' cellspacing='4'>"
response.write "<tr><td>niente email...?</td></tr>"
response.write "<tr><td>per favore, torna indietro e... </td></tr>"
response.write "<tr><td align='middle'>"
response.write "Prova di nuovo"
response.write "</td></tr></table></div>"
End Sub
'*************************************************
Sub manda_posta(form)
'================================================= ========================================
'Mandiamoci l'email
'================================================= ========================================
Dim email
Dim objMail, mandamiquesto
nome = Request.Form("is_nome")
cognome = Request.Form("is_cognome")
ad = Request.Form("is_via")
cap = Request.Form("is_cap")
citta = Request.Form("is_citta")
provincia = Request.Form("is_prov")
telefono = Request.Form("is_tel")
email = Request.Form("is_email")
cf = Request.Form("is_cf")
richiesta = Request.Form("is_richiesta")
data = Now()
mandamiquesto = nome & VBcrlf & cognome & VBcrlf & ad & VBcrlf & citta & VBcrlf & provincia & VBcrlf & cap & VBcrlf & telefono & VBcrlf & email & VBcrlf & data & VBcrlf & richiesta
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = cognome
objMail.To = "vandermas@gmail.com"
objMail.Subject = "Richiesta informazioni"
objMail.Body = mandamiquesto
objMail.importance = 0
objMail.Send
Set objMail = Nothing
end sub
'*************************************************
Sub ecco_fatto(nome)
'================================================= ========================================
'Ringraziamo il cliente per il messaggio
Response.write "<div align='center'>"
Response.write "<font face='verdana' size='2'>"
Response.write "<table border='0' width='100%' cellspadding='4' cellspacing='4'>"
Response.write "<tr><td>Grazie " & nome & " per averci contattato.</td></tr>"
'Response.write "<tr><td>Il tuo identificativo utente è: " & idUtente & " e la tua password è: " & password & "</td></tr>"
'Response.write "<tr><td>Stampa questa pagina e mettila al sicuro.</td></tr>"
Response.write "<tr><td>Riceverai una email di risposta nel minor tempo possibile.</td></tr>"
response.write "<tr><td align='middle'>"
response.write "Ritorna alla Home page"
response.write "</td></tr></table></div>"
End sub
'*************************************************
%>
Qualcuno sa dirmi dove sbaglio?
Grazie
Vandelius
Rispondi quotando
