ciao a tutti!mi hanno passato questo codice che ricevuti i campi da un certo form invia una mail al destinatario contenente il riepilogo dei campi:
solo che mi dà sempre il messaggio che non ha potuto inviare la mail:codice:if (Request.Form("Submit") = "Submit") then ' Build message of email by stepping through all fields in the form dim i, strMessage strMessage = "Form Information Follows:" & vbCrLf & _ "+-----------------------------------------------" & vbCrLf for i = 1 to Request.Form.Count if (Request.Form.Key(i) <> "Submit") then strMessage = strMessage & "| " & UCase(Request.Form.Key(i)) & ": " & Request.Form.Item(i) & vbCrLf end if next strMessage = strMessage & "+-----------------------------------------------" & vbCrLf ' Create the mailer COM object dim objASPMail Set objASPMail = Server.CreateObject("SMTPsvg.Mailer") ' Fill in the Email fields objASPMail.FromName = "www.pippo.com" objASPMail.FromAddress= "nome@dominio.com" objASPMail.RemoteHost = "mail.imconline.net" objASPMail.AddRecipient "Pippo", "nome@dominio.com" objASPMail.AddBCC "Pippo", "nome@dominio.com" objASPMail.Subject = "Reservation Form" objASPMail.BodyText = strMessage ' Send the email dim blnSuccess blnSuccess = objASPMail.SendMail set objASPMail = Nothing end if
Il cliente dice che funzionava fino ad un paio di mesi fa, poi non riceve più le prenotazioni, ho postato tutto il codice perché non ci capisco assolutamente nulla di asp e non saprei proprio dove sbattere la testa. Se riuscite a darmi una mano ve ne sono grato fin da ora.codice:<% if (not blnSuccess) then %> <P class=problem> There was a technical problem sending your request. We apologize for the problem. Please call our contact number and provide the detail below. </P> <% end if %>
Grazie mille![]()

Rispondi quotando
