Ho un problema con una variabile dim form, nome:
premetto che sono alle prime armi con asp, ho un problema che non riesco a risolvere,
in effetti in locale la pagina mi funziona perfettamente, ma quando la carico on line, mi da un errore
Microsoft VBScript compilation error '800a0400'
Expected statement
/invia_richav.asp, line 8
Option Explicit
^
di seguito ho inserito per intero lo script completo, per favore potete aiutarmi?
anticipatamente vi ringrazio
<%
Option Explicit
'--------------------------------------------------------
'Purpose: processes the feedback mail
'Date: 10 March 2001
'Commenti:
'--------------------------------------------------------
dim form, nome
%>
<html>
<head>
<title>invio mail</title>
<body>
<%
call main()
sub main()
'---------------------------------------------------------
'purpose: la logica dell'applicazione
'date: 25 january 2007
'commenti: potevamo usare java
'---------------------------------------------------------
'se la lunghezza è 0 non c'e niente nella email
if len(request.form("email")) =0 then
no_email()
else
manda_posta(form)
ecco_fatto(nome)
end if
end sub
sub no_email()
'--------------------------------------------------------
'purpose: manda un messaggio se l'email è vuoto
'date: 25 january 2007
'--------------------------------------------------------
'dico alcliente che senza il numero di telefono non posso rispondere
response.write "<div align='center'>"
response.write "<table border='0' width='80%' cellspadding='4' cellspacing='4'>"
response.write "<tr><td>ERRORE NELL'INSERIMENTO DEI DATI</td></tr>"
response.write "<tr><td>per favore torni indietro ed inserisca la e-mail</td></tr>"
response.write "<tr><td align='middle'>"
response.write "INDIETRO"
response.write "</td></tr></table></div>"
end sub
sub ecco_fatto(nome)
'-------------------------------------------------------
'purpose: manda un ringraziamento
'date: 27 january 2007
'-------------------------------------------------------
response.write "<div align='center'>"
response.write "<table border='0'width='80%' cellsadding='4' cellspacing='4'>"
response.write "<tr><td>Grazie sig. "& nome &" per averci inviato una richiesta, sarà contattato da un nostro incaricato nel più breve tempo possibile</td></tr>"
response.write "<tr><td align='middle'>"
response.write "Continui a navigare"
response.write "</td></tr></table></div>"
end sub
sub manda_posta(form)
'--------------------------------------------------------
'pupose: manda la email
'date: 27 january 2007
'--------------------------------------------------------
dim cognome, telefono, tipo, zona, email, prezzo, info
dim objmail, manda
cognome = request.form("cognome")
nome = request.form("nome")
telefono = request.form("telefono")
tipo = request.form("tipo")
zona = request.form("zona")
email = request.form("email")
prezzo = request.form("prezzo")
info = request.form("info")
manda = cognome & vbcrlf & nome & vbcrlf & telefono & vbcrlf & tipo & vbcrlf & zona & vbcrlf & email & vbcrlf & prezzo & vbcrlf & info
set objmail = server.createobject("cdonts.newmail")
objmail.from = nome
objMail.To = "aaaaa@aaaa.com"
objmail.subject = "richiesta dal sito"
objmail.body = manda
objmail.importance = 0
objmail.send
set objmail = nothing
end sub
%>
Rispondi quotando
