ciao a tutti,
sarò talmente "cotto" da non vedere un errore banale.
Alla riga marcata con <<<<<<<<<<<<<<< (l'ultimo else del codice)
il browser mi segnala
Expected 'End'
Che errore commetto ?
grazie
ciao
EnG
Codice PHP:
<%
Dim mittente, destinatario, oggetto, corpoMessaggio, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo, messaggio_di_conferma
destinatario = "email@email.it"
oggetto = "iscrizione evento"
corpoMessaggio = ""
messaggio_di_conferma = "Invio dati effettuato con successo.
Sarete contattati al più presto dell'ufficio per confermarvi la registrazione"
Function ControlloEmail(email)
Dim ObjRegexp
Dim risultato
Set ObjRegexp = New RegExp
ObjRegexp.Global = True
ObjRegexp.IgnoreCase = True
ObjRegexp.Pattern = "^[_a-z0-9+-]+(\.[_a-z0-9+-]+)*@[a-z0-9-]+(\.[a-z0-9-]+)+$"
risultato = ObjRegexp.Test(email)
Set ObjRegexp = Nothing
ControlloEmail = risultato
End Function
if (request.form("page")= undefined) then
' pagina 1
%>
<div align="center">
<font face="Garamond" size="4" color="#EE0000">Iscrizione all'evento ....</font>
</p>
<table border="0" cellpadding="0" cellspacing="0" width="40%">
<tr>
<td width="100%">
<form action="iscrizione.asp" method="post" name="form1">
<table width="361" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="170">[b]<font face="Verdana, Arial" size="2" color="#333333">Nome</font>[/b]</td>
<td width="191"><font color="#333333" size="2" face="Verdana, Arial">
<input type="text" name="nome" size="20" maxlength="50">
</font></td>
</tr>
<tr>
<td width="170">[b]<font face="Verdana, Arial" size="2" color="#333333">Cognome</font>[/b]</td>
<td width="191"><font color="#333333" size="2" face="Verdana, Arial">
<input type="text" name="cognome" size="20" maxlength="50">
</font></td>
</tr>
<tr>
<td width="170">[b]<font face="Verdana, Arial" size="2" color="#333333">Società</font>[/b]</td>
<td width="191"><font color="#333333" size="2" face="Verdana, Arial">
<input type="text" name="societa" size="30" maxlength="50">
</font></td>
</tr>
<tr>
<td width="170">[b]<font face="Verdana, Arial" size="2" color="#333333">Indirizzo Società</font>[/b]</td>
<td width="191"><font color="#333333" size="2" face="Verdana, Arial">
<input type="text" name="indirizzo_societa" size="40" maxlength="100">
</font></td>
</tr>
<tr>
<td width="170">[b]<font face="Verdana, Arial" size="2" color="#333333">Telefono</font>[/b]</td>
<td width="191"><font color="#333333" size="2" face="Verdana, Arial">
<input type="text" name="telefono" size="20" value="+39" maxlength="50">
</font></td>
</tr>
<tr>
<td width="170">[b]<font face="Verdana, Arial" size="2" color="#333333">Cellulare*</font>[/b]</td>
<td width="191"><font color="#333333" size="2" face="Verdana, Arial">
<input type="text" name="cellulare" size="20" value="+39" maxlength="50">
</font></td>
</tr>
<tr>
<td width="170">[b]<font face="Verdana, Arial" size="2" color="#333333">E-mail
</font>[/b]</td>
<td width="191"><font color="#333333" size="2" face="Verdana, Arial">
<input type="text" name="email" size="20">
</font></td>
</tr>
<tr>
<td width="170">[b]<font face="Verdana, Arial" size="2" color="#333333">Altro/Messaggi/Richieste*</font>[/b]</td>
<td width="191"><font color="#333333" face="Verdana, Arial"> <font size="1">
<textarea name="messaggio" rows="5" cols="33" wrap="VIRTUAL"></textarea>
</font></font> </td>
</tr>
</table>
<p align="center"><font color="#333333" face="Verdana, Arial"> <font size="1">
<input name="page" type="hidden" value="2">
<input type="submit" name="Submit" value="Iscrivimi registrando i dati inseriti">
<input type="reset" name="reset" value="Cancella i campi compilati"></p></td></tr>
</font></font> </p>
</form>
</font> </td>
</tr>
</table>
<font size="2" face="Verdana, Arial">* campi facoltativi
</div>
<%
else
' pagina 2
'si controlla la correttezza del form
if (request.form("nome")<>"" AND request.form("cognome")<>"" AND request.form("societa")<>"" AND request.form("indirizzo_societa")<>"" AND request.form("telefono")<>"" AND request.form("email")<>"") then
if not ControlloEmail(request.form("email")) then
%>
<html>
<head>
<META HTTP-EQUIV=REFRESH CONTENT="4; URL=/">
<meta http-equiv="Content-Language" content="it">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>
<title>ERRORE nel campo email</title>
<body>
</p>
<div align="center">
Il campo email contiene caratteri errati.
[url="javascript:history.back(1)"]Torna indietro[/url]
</div>
</body>
</html>
<% else
'form compilato correttamente, si invia la mail di registrazione
nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")
corpoMessaggio = corpoMessaggio &"<font face=Garamond size=4>Questi i dati inseriti nel modulo presente alla pagina [b]" & modulo & "[/b] del dominio [b]" & nomeDominio &"[/b] da utente con indirizzo IP [b]" & indirizzoIp & "[/b] browser e sistema operativo [b]" & browserSistemaOperativo & "[/b]" & vbCrLf
corpoMessaggio = corpoMessaggio &"<table border=1>" & vbCrLf
corpoMessaggio = corpoMessaggio & "<tr><td>nome</td><td>" & request.form("nome") & "</td></tr>"
corpoMessaggio = corpoMessaggio & "<tr><td>cognome</td><td>" & request.form("cognome") & "</td></tr>"
corpoMessaggio = corpoMessaggio & "<tr><td>società</td><td>" & request.form("societa") & "</td></tr>"
corpoMessaggio = corpoMessaggio & "<tr><td>indirizzo società</td><td>" & request.form("indirizzo_societa") & "</td></tr>"
corpoMessaggio = corpoMessaggio & "<tr><td>telefono</td><td>" & request.form("telefono") & "</td></tr>"
if request.form("cellulare") <> undefined then
corpoMessaggio = corpoMessaggio & "<tr><td>cellulare</td><td>" & request.form("cellulare") & "</td></tr>"
end if
corpoMessaggio = corpoMessaggio & "<tr><td>email</td><td>" & request.form("email ") & "</td></tr>"
corpoMessaggio = corpoMessaggio & "<tr><td>Altro/Messaggi/Richieste</td><td>"
if request.form("messaggio") <> undefined then
corpoMessaggio = corpoMessaggio & request.form("messaggio") & "</td></tr></table>"
end if
corpoMessaggio = corpoMessaggio &"<table border=1>" & vbCrLf
corpoMessaggio = corpoMessaggio & "<tr><td>nome</td><td>cognome</td><td><td>società</td><td>indirizzo società</td><td>telefono</td><td>cellulare</td><td>email</td><td>Altro/Messaggi/Richieste</td></tr>"
corpoMessaggio = corpoMessaggio & "<tr><td>" & request.form("nome") & "</td><td>" & request.form("cognome") & "</td><td>" & request.form("societa") & "</td><td>" & request.form("indirizzo_societa") & "</td><td>" & request.form("telefono") & "</td>"
corpoMessaggio = corpoMessaggio & "<td>"
if request.form("cellulare") <> undefined then
corpoMessaggio = corpoMessaggio & request.form("cellulare")%>
end if
corpoMessaggio = corpoMessaggio & "</td></tr>"
corpoMessaggio = corpoMessaggio & "<td>" & request.form("email") & "</td>"
corpoMessaggio = corpoMessaggio & "<td>"
if request.form("messaggio") <> undefined then
corpoMessaggio = corpoMessaggio & request.form("messaggio")%>
end if
corpoMessaggio = corpoMessaggio & "</td></tr></table>"
'* 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 = destinatario
.From = Request.Form("email")
.Sender = mittente
.Subject = oggetto
'.TextBody = "Questi i dati inseriti nel modulo presente alla pagina " & modulo & " del dominio " & nomeDominio &" da utente con indirizzo IP " & indirizzoIp & " browser e sistema operativo " & browserSistemaOperativo & vbCrLf & corpoMessaggio & ""
.HTMLBody = corpoMessaggio
.Send
End With
%>
<html>
<head>
<META HTTP-EQUIV=REFRESH CONTENT="4; URL=/">
<meta http-equiv="Content-Language" content="it">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>
<title>REGISTRAZIONE DATI: OK</title>
<body>
</p>
<p align="center"><font face="Verdana" size="2"><%=messaggio_di_conferma%></font></p>
</body>
</html>
<% ' FINE form compilato correttamente, si invia la mail di registrazione
end if
else <<<<<<<<<<<<<<<<<<<<<<<<<
'form con campo/i non compilato/i correttamente. Si torna alla pagina precedente
%>
<head>
<META HTTP-EQUIV=REFRESH CONTENT="4; URL=/">
<meta http-equiv="Content-Language" content="it">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>
<title>ERRORE</title>
<body>
</p>
<p align="center"><font face="Verdana" size="2">
E' necessario compilare tutti i campi richiesti.</p>
[url="javascript:history.back(1)"]Torna indietro[/url] </font>
</body>
</html>
<%
end if
end if
' page =2 %>
Rispondi quotando
