Ho un problema con il modulo invio, ho un sito costruito in flash, ho rovato su internet un modulo che ho caricato nel mio sito, il file asp è con il linguaggio vecchio che il mio sito non lo gestisce (aruba). mi potete aiutare a modificare il file asp nel novo linguaggio (CDOSYS)??
file asp parte finale
<%
address=request.ServerVariables("REMOTE_ADDR")
nome=request("nome")
cognome=request("cognome")
indirizzo=request("indirizzo")
citta=request("citta")
telefono=request("telefono")
email=request("email")
note=request("note")
%><html><head>
<title>Modulo in Flash ASP</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
body {font: 9pt Verdana,Arial; color: #900; background:#fff}
</style>
</head><body>
<h4>Pagina per l'invio dei dati</h4>
<b>nome</b>: <%=nome%><br>
<b>cognome</b>: <%=cognome%><br>
<b>indirizzo</b>: <%=indirizzo%><br>
<b>citta</b>: <%=citta%><br>
<b>telefono</b>: <%=telefono%><br>
<b>email</b>: <%=email%><br>
<b>note</b>: <%=note%><br><br>
<%
if instr(nome,"@")=0 or instr(email,"@")=0 then
%> Gli indirizzi email non sono corretti... impossibile inviare.<br><%
elseif note="" or about="" then
%> Mancano i contenuti... impossibile inviare.<br><%
else
data=FormatDateTime(Now(),2)
ora=FormatDateTime(Now(),3)
Set myMail=CreateObject("CDONTS.NewMail")
contenuto="<html><body>"
contenuto=contenuto& "<p>"& note &"</p>"
contenuto=contenuto& data &" - "& ora & " - IP address "& address
contenuto=contenuto& "</body></html>"
myMail.Subject=about
myMail.BodyFormat=0
myMail.MailFormat=0
myMail.Body=contenuto
myMail.From=nome
myMail.To=email
myMail.Bcc=nome
myMail.Send
Set myMail=Nothing
%>
Messaggio inviato dall'indirizzo IP <%=address%><br><br>
Il messaggio è stato inviato correttamente!! [<a href="#" onClick="window.print();">Stampa</a>]<br>
<%
end if
%>
</body>
</html>
file asp parte finale
<%
address=request.ServerVariables("REMOTE_ADDR")
nome=request("nome")
cognome=request("cognome")
indirizzo=request("indirizzo")
citta=request("citta")
telefono=request("telefono")
email=request("email")
note=request("note")
%><html><head>
<title>Modulo in Flash ASP</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
body {font: 9pt Verdana,Arial; color: #900; background:#fff}
</style>
</head><body>
<h4>Pagina per l'invio dei dati</h4>
<b>nome</b>: <%=nome%><br>
<b>cognome</b>: <%=cognome%><br>
<b>indirizzo</b>: <%=indirizzo%><br>
<b>citta</b>: <%=citta%><br>
<b>telefono</b>: <%=telefono%><br>
<b>email</b>: <%=email%><br>
<b>note</b>: <%=note%><br><br>
<%
if instr(nome,"@")=0 or instr(email,"@")=0 then
%> Gli indirizzi email non sono corretti... impossibile inviare.<br><%
elseif note="" or about="" then
%> Mancano i contenuti... impossibile inviare.<br><%
else
data=FormatDateTime(Now(),2)
ora=FormatDateTime(Now(),3)
Set myMail=CreateObject("CDONTS.NewMail")
contenuto="<html><body>"
contenuto=contenuto& "<p>"& note &"</p>"
contenuto=contenuto& data &" - "& ora & " - IP address "& address
contenuto=contenuto& "</body></html>"
myMail.Subject=about
myMail.BodyFormat=0
myMail.MailFormat=0
myMail.Body=contenuto
myMail.From=nome
myMail.To=email
myMail.Bcc=nome
myMail.Send
Set myMail=Nothing
%>
Messaggio inviato dall'indirizzo IP <%=address%><br><br>
Il messaggio è stato inviato correttamente!! [<a href="#" onClick="window.print();">Stampa</a>]<br>
<%
end if
%>
</body>
</html>
