Chi mi aiuta per cortesia. Ricevo questo messaggio nell'invio di un ordine :
Microsoft VBScript compilation error '800a0400'
Expected statement
/invia_ordine.asp, line 1
> <%@LANGUAGE="VBSCRIPT"
la pagina asp è scritta così
<%> <%@LANGUAGE="VBSCRIPT"%>
<% Option Explicit %>
' Variabili che possono essere modificate
%><%
'------------------------------------------------------------------
dim anno, email_di_destinazione, email_del_mittente
anno="2008"
email_del_mittente="adopparma@aop.it"
email_di_destinazione="adopparma@aop.it"
'------------------------------------------------------------------
' # # # # Il codice sottostante NON deve essere modificato # # # #
'------------------------------------------------------------------
%>
dim nome, cognome, residenza, via, rna, cap, telefono, email
dim iscrizione, richiesta
dim z2, a2_4, y2_7, b2_9, c3_4, d4al, d4ac
dim altro1, altro2
dim altro1_tipo, altro2_tipo, altro1_qta, altro2_qta
nome=request.form("nome")
cognome=request.form("cognome")
residenza=request.form("residenza")
via=request.form("via")
rna=request.form("rna")
cap=request.form("cap")
telefono=request.form("telefono")
email=request.form("email")
iscrizione=request.form("iscrizione")
richiesta=request.form("richiesta")
z2=request.form("z2")
a2_4=request.form("a2_4")
y2_7=request.form("y2_7")
b2_9=request.form("b2_9")
c3_4=request.form("c3_4")
d4al=request.form("d4al")
d4ac=request.form("d4ac")
altro1=request.form("altro1")
altro2=request.form("altro2")
altro1_tipo=request.form("altro1_tipo")
altro2_tipo=request.form("altro2_tipo")
altro1_qta=request.form("altro1_qta")
altro2_qta=request.form("altro2_qta")
'Response.ContentType = "text/plain"
dim messaggio
messaggio="www.aop.it - Ordine online del "& now() & VbCrLf
messaggio=messaggio & "" & VbCrLf
messaggio=messaggio & "DATI DEL CLIENTE" & VbCrLf
messaggio=messaggio & "-------------------------------------------------------------------" & VbCrLf
messaggio=messaggio & "Nome" & chr("9") & chr("9") & ": " & nome & VbCrLf
messaggio=messaggio & "Cognome" & chr("9") & chr("9") & ": " & cognome & VbCrLf
messaggio=messaggio & "Residenza" & chr("9") & ": " & residenza & VbCrLf
messaggio=messaggio & "Via" & chr("9") & chr("9") & ": " & via & VbCrLf
messaggio=messaggio & "Cap" & chr("9") & chr("9") & ": " & cap & VbCrLf
messaggio=messaggio & "Telefono" & chr("9") & ": " & telefono & VbCrLf
messaggio=messaggio & "Email" & chr("9") & chr("9") & ": " & email & VbCrLf
messaggio=messaggio & "RNA" & chr("9") & chr("9") & ": " & rna & VbCrLf
messaggio=messaggio & "-------------------------------------------------------------------" & VbCrLf
messaggio=messaggio & "" & VbCrLf
messaggio=messaggio & "DATI DELL'ORDINE" & VbCrLf
if iscrizione="T" then
messaggio=messaggio & "- Il cliente chiede l'Iscrizione all'AOP per l'anno " & anno & VbCrLf
end if
if richiesta="1" then
messaggio=messaggio & "- Prima richiesta anelli per l'anno " & anno & VbCrLf
end if
if richiesta="2" then
messaggio=messaggio & "- Seconda o successiva richiesta anelli per l'anno " & anno & VbCrLf
end if
messaggio=messaggio & "-------------------------------------------------------------------" & VbCrLf
messaggio=messaggio & "Anelli" & chr("9") & chr("9") & "Materiale" & chr("9") & "Quantita'" & VbCrLf
messaggio=messaggio & "-------------------------------------------------------------------" & VbCrLf
messaggio=messaggio & "Z 2 mm" & chr("9") & chr("9") & "Alluminio" & chr("9") & z2 & VbCrLf
messaggio=messaggio & "A 2,4 mm" & chr("9") & "Alluminio" & chr("9") & a2_4 & VbCrLf
messaggio=messaggio & "Y 2,7 mm" & chr("9") & "Alluminio" & chr("9") & y2_7 & VbCrLf
messaggio=messaggio & "B 2,9 mm" & chr("9") & "Alluminio" & chr("9") & b2_9 & VbCrLf
messaggio=messaggio & "C 3,4 mm" & chr("9") & "Alluminio" & chr("9") & c3_4 & VbCrLf
messaggio=messaggio & "D 4 mm" & chr("9") & chr("9") & "Alluminio" & chr("9") & d4al & VbCrLf
messaggio=messaggio & "D 4 mm" & chr("9") & chr("9") & "Acciaio" & chr("9") & chr("9") & d4ac & VbCrLf
messaggio=messaggio & "-------------------------------------------------------------------" & VbCrLf
if len(altro1)<=7 then
if len(altro1_tipo)<=7 then
messaggio=messaggio & altro1 & chr("9") & chr("9") & altro1_tipo & chr("9") & chr("9") & altro1_qta & VbCrLf
else
messaggio=messaggio & altro1 & chr("9") & chr("9") & altro1_tipo & chr("9") & altro1_qta & VbCrLf
end if
else
if len(altro1_tipo)<=7 then
messaggio=messaggio & altro1 & chr("9") & altro1_tipo & chr("9") & chr("9") & altro1_qta & VbCrLf
else
messaggio=messaggio & altro1 & chr("9") & altro1_tipo & chr("9") & altro1_qta & VbCrLf
end if
end if
if len(altro2)<=7 then
if len(altro2_tipo)<=7 then
messaggio=messaggio & altro2 & chr("9") & chr("9") & altro2_tipo & chr("9") & chr("9") & altro2_qta & VbCrLf
else
messaggio=messaggio & altro2 & chr("9") & chr("9") & altro2_tipo & chr("9") & altro2_qta & VbCrLf
end if
else
if len(altro2_tipo)<=7 then
messaggio=messaggio & altro2 & chr("9") & altro2_tipo & chr("9") & chr("9") & altro2_qta & VbCrLf
else
messaggio=messaggio & altro2 & chr("9") & altro2_tipo & chr("9") & altro2_qta & VbCrLf
end if
end if
messaggio=messaggio & "-------------------------------------------------------------------" & VbCrLf
dim objMail
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From= email_del_mittente
objMail.To= email_di_destinazione
objMail.Subject="www.aop.it - Ordine online del "& now() & VbCrLf
objMail.Body= messaggio
objMail.BodyFormat=0 '0 = HTML
objMail.MailFormat=1 '0 = MIME format
objMail.Send
Set objMail = nothing
response.redirect "form_risposta.htm"
%>
cosa devo cambiare ??
Grazie per la cortesia
Attanasio
Rispondi quotando
