perchè non va questo codice?
allego il TXT...è un CODSYS che raccoglie dati da un form in flash..premetto che i dati dalla pagina flash vengono inviati correttamente...
mi torna un errore "error '8004020f'" alla riga 71 dove c'è objsend()..
Siccome la stessa pagina la uso su ARUBA e funziona perfettamente (se inserisco l'smtp corretto)..vorrei capire come mai su hosting solutions non va:
posto il codice:
Spero che qualcuno mi possa aiutare...ciao e grazie..codice:<body bgcolor="#f0f0f0"> <% nome = request("nome") cognome = request("cognome") mail = request("mail") messaggio = request("messaggio") 'controllo sui campi if nome = "" then response.write "<table width='100%' height='100%'>" response.write "<tr><td align='center' valign='center'>" response.write "<font face='verdana' size='1'>manca il nome" response.write "</td></tr>" response.write "<tr><td align='center' valign='center'>" response.write "<font face='verdana' size='1'>chiudi" response.write "</td></tr></table>" response.End() end if if cognome = "" then response.write "<table width='100%' height='100%'>" response.write "<tr><td align='center' valign='center'>" response.write "<font face='verdana' size='1'>manca il cognome" response.write "</td></tr>" response.write "<tr><td align='center' valign='center'>" response.write "<font face='verdana' size='1'>chiudi" response.write "</td></tr></table>" response.End() end if if mail = "" then response.write "<table width='100%' height='100%'>" response.write "<tr><td align='center' valign='center'>" response.write "<font face='verdana' size='1'>manca il vostro indirizzo E-mail" response.write "</td></tr>" response.write "<tr><td align='center' valign='center'>" response.write "<font face='verdana' size='1'>chiudi" response.write "</td></tr></table>" response.End() end if if messaggio = "" then response.write "<table width='100%' height='100%'>" response.write "<tr><td align='center' valign='center'>" response.write "<font face='verdana' size='1'>manca il messaggio" response.write "</td></tr>" response.write "<tr><td align='center' valign='center'>" response.write "<font face='verdana' size='1'>chiudi" response.write "</td></tr></table>" response.End() end if TEXT = "<font face='verdana' size='2'>il signor: " & nome & " " & cognome & " " TEXT = TEXT + "Indirizzo e-mail: " & mail & " " TEXT = TEXT + "Richiede: " & messaggio & " </font>" Dim objMail, objConfig Set objMail = CreateObject("CDO.Message") Set objConfig = Server.CreateObject ("CDO.Configuration") With objConfig .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.imbiancature.com" .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 .Fields.Update End With Set objMail.Configuration = objConfig objMail.From = "sito internet" objMail.To = "indirizzo@email.it" objMail.Subject = "Nuovo messaggio dal sito internet" objMail.Fields("urn:schemas:httpmail:importance").Value = 2 objMail.Fields.Update() 'Allegare un file 'objMail.AddAttachment("d:\inetpub\webs\tuodominiocom\file.zi p") objMail.htmlBody = TEXT objMail.Send() Set objMail = Nothing response.write "<table width='100%' height='100%'>" response.write "<tr><td align='center' valign='center'>" response.write "<font face='verdana' size='1'>il messaggio è stato inviato.GRAZIE" response.write "</td></tr>" response.write "<tr><td align='center' valign='center'>" response.write "<font face='verdana' size='1'>chiudi" response.write "</td></tr></table>" %>
Rispondi quotando
