Salve, ho un problema con un modulo di contatto in asp.
Non riesco a ricevere i dati dal form del sito, ricevo solo una email
con l'oggetto della stessa ma il corpo vuoto.
Ho configurato il tutto con una pagina modulo dove inserisco i dati e
tramite il :
<form action="contact.asp" method="post" enctype="multipart/form-data" name="form" id="form" >
richiamo la pagina contact.asp tramite il link seguente invio i dati:
Invia richiesta
il file contact.asp è il seguente :
<%
'----function that removes html tags-----------
Function RemoveHTML( strText )
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
RemoveHTML = RegEx.Replace(strText, "")
End Function
'---------------------------------------------
'------defining script vars-------------------
Dim mailObj, mailCfg, myBody, fld, subj, mail_from, mail_to, smtp_server, smtp_port, plain_text
Dim RegEx
set RegEx = New RegExp
'--------------------------------------------
'----Settings-----------
subj = "Contact form from your site"
mail_from = "info@xxxxxxxxx.it"
mail_to = "info@xxxxxxxxxx.it"
smtp_server = "smtp.aruba.it"
smtp_port = 25
plain_text = "false"
'------getting data sent by site (filtering configuration data)------------
For Each fld in Request.Form
If Request.Form(fld) <> "" and _
fld <> "mail_to" and _
fld <> "smtp_server" and _
fld <> "smtp_port" and _
fld <> "plain_text" and _
fld <> "mail_from" and _
fld <> "mail_subject" Then
myBody = myBody & vbCRLF & " " & fld & " :
" & Trim(Request.Form(fld)) & "
"
End If
Next
'---------------------------------------------------------------------------
'----------setting conf data------------------------------------------------
On Error Resume Next
Set myMail = CreateObject("CDO.Message")
myMail.Subject = subj
myMail.From =mail_from
myMail.To = mail_to
'--------if plain text is set to true removing html---------------------------------------
if plain_text = "true" then
myMail.TextBody = RemoveHTML(myBody)
'-------otherwise composing message body--------------------------------------------------
else myMail.HTMLBody = "<html><body>" & myBody & "</body></html>"
end if
'----------setting configuration params for smtp----------------------------------------------------------------------------------
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtp_server
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = smtp_port
myMail.Configuration.Fields.Update
'---------------------------------------------------------------------------------------------------------------------------------
myMail.Send '---------------sending message
If Err = 0 Then
Response.Write("The message has been sent, thank you") 'if there the message is sent return 1 to flash
Else
Response.Write("Message could not be sent") 'otherwise return 0
End If
%>
Qualcuno può aiutarmi a risolvere il problema?
Rispondi quotando
