Ciao,
ho questo codice ASP per l'invio dei dati inseriti in un form:
Il modulo funziona, ma i dati inseriti nel campo "email" non vengono staccati dal nome, quindi ricevo:codice:<%@Language="VBScript"%> <% Option Explicit %> <% Response.Expires = -1500 %> <% 'Response.Write Request.Form & " " Dim Mail Set Mail = Server.CreateObject("Persits.MailSender") Dim Splittato Dim S_Email_Subject Dim S_Form_Fields Dim Indice Dim U_Confirmation_Url Dim S_Email_Address Dim Referer 'copiare i dati dal modulo e SOSTITUIRE I TRATTINI NEI NOMI DEI CAMPI CON LA SOTTOLINEATURA S_Email_Subject="Richiesta informazione dal sito" S_Form_Fields="azienda indirizzo citta stato riferimento telefono fax email note " U_Confirmation_Url="contatti_ok.htm" S_Email_Address="miaemail@mail.com" '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< Referer = "http://www.miosito.it/contact/contact.htm" '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'copiare i dati dal modulo e SOSTITUIRE I TRATTINI NEI NOMI DEI CAMPI CON LA SOTTOLINEATURA Mail.From = S_Email_Address Mail.AddAddress S_Email_Address ' Mail.AddAddress "email@email.it" Mail.Host = "smtp2.smtp.it" Mail.FromName = S_Email_Address Mail.Subject = S_Email_Subject Mail.Body = S_Email_Subject & vbCrLf & vbCrLf Splittato = Split(S_Form_Fields, " ") For Indice = 0 To UBound(Splittato)-1 Mail.Body = Mail.Body + Splittato(Indice) & "=" & Request.Form(Splittato(Indice)) & vbCrLf Next Mail.Body = Mail.Body + "data=" & Now & vbCrLf Mail.Body = Mail.Body + "ip=" & Request.ServerVariables("REMOTE_ADDR") & vbCrLf If Request.ServerVariables("HTTP_REFERER") = Referer Then Mail.Send Set Mail = Nothing Response.Redirect(U_Confirmation_Url) %>
Email:emailinserita@email.it
Come posso inserire uno spazio?

Rispondi quotando