Salve, ho un problemino con un form e cdosys.
Mi spiego: il form funziona soltanto che alla voce messaggio: mi arrivano anche i tag:
questo è il risultato:
Messaggio proveniente dal sito - Sam bafforosso - inviato da: xxxxx
Messaggio: <TEXTFORMAT LEADING="2"><P ALIGN="LEFT"><FONT FACE="_sans" SIZE="13" COLOR="#000000" LETTERSPACING="0" KERNING="0">xxxxxquesto è il messaggioxxxxxxxxxx</FONT></P></TEXTFORMAT>
questo il contenuto del file .asp:
<%@ language=VBScript %>
<%
'recupero le variabili dal form flash
nome=REQUEST.FORM("nome")
email=REQUEST.FORM("mail")
oggmess = REQUEST.FORM("oggetto")
info=REQUEST.FORM("info")
On Error Resume Next
mess="Messaggio proveniente dal sito Sam bafforosso inviato da: "&nome&vbcrlf
mess= mess +" Messaggio: "&info&vbcrlf
Dim budmail, Flds, iConf
Set budmail = 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 budmail
Set .Configuration = iConf
.To = "mia_email@virgilio.it" 'mail di destinazione
.From = email
.Sender = email
.Subject = "dal sito Sam Bafforosso"
.textBody = mess
.Send
end with
response.write "error=False"
if err.number then response.write "error=True"
Set budmail = Nothing
Set iConf = Nothing
Set Flds = Nothing
%>