Ciao a tutti
Ho già letto parecchi interventi a riguardo, tuttavia non riesco a capire perchè questo form non vuol eassoltuamente funzionare, il server è aruba e usa windows 2000, quindi devo usare ancora CDONTS e questo è il codice:
Ci sarebbe qualche anima pia disposta a darmi un amano? perchè proprio non riesco a capire.codice:Dim xMail Dim xBody Set xmail = Server.CreateObject("CDONTS.NewMail") 'mittente mittente = "info@vins75.it" 'destinatario email=request.form("email") 'contenuto xBody = "Ciao" & vbcrlf & "Ti comunichiamo l'avvenuta iscirzione presso il sito" xBody = xBody & vbcrlf & "Questo è il riepilogo dei dati da te inseriti al momento dell'iscrizione" FOR x = 1 TO (Request.Form.Count() - 1) IF NOT Request.Form(x) = "" THEN xBody = xBody & vbCrLf & Request.Form.Key(x) & " = " & Trim(Request.Form(x)) END IF NEXT xBody = xBoDy & vbCrLf & "PASSWORD per accedere al sito da utente = " & GeneraPwd xBody = xBoDy & vbCrLf & vbCrLf & "Cordiali Saluti" & vbCrLf & "L'amministratore" xmail.From = mittente xmail.To = email xmail.Subject = "Iscrizione al sito" xmail.BodyFormat = 1 xmail.MailFormat = 0 xmail.Importance = 2 xmail.Body = xbody xmail.Send set xmail=nothing 'reindirizzamento ok response.redirect("forum_reg_ok.asp")

Rispondi quotando