Ciao ragazzi, ho un problema nella creazione del cdosys che proprio non riesco a capire. Quando compilo il form di inserimeno dati (nome, mail e note) e invio i dati, la pagina che mi crea il messaggio col cdosys mi restituisce error 3001 nonostante la mail arrivi correttamente. Quale potrebbe essere la causa?
Aiutatemi che altrimenti divento matto.
Non dire gatto se non ce l'hai nel sacco! ATTIA!
a che riga te lo da l'errore? e poi posta il codice ... ciao cioa
se non è bello ciò che è bello figuriamoci ciò che è brutto!!
fai anche tu come me: indenta il codice!!!!
on error resume next
dim nome, mail, testo, val
val = request("val")
val = Trim(cstr(val))
nome = Trim(request.form("nome"))
mail = Trim(request.form("mail"))
testo = Trim(request.form("testo"))
HTML = "<Html><Head>"&_
"<title>Dati inviati dal sito</title>"&_
"</Head>"&_
"<body bgcolor=#FFFFFF text=#000000><font face=verdana size=2>"&_
"Nome:"& Nome &"
"&_
"E-Mail:"& Mail &"
"&_
"Informazioni:"& Testo &"
"&_
"</font></body>"&_
"</Html>"
DIM iMsg, Flds, iConf
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update
With iMsg
Set .Configuration = iConf
.To = "a.fiore@net-project.it"
.From = mail
.Sender = mail
if val = "0" Then
.Subject = "Richiesta info dal sito www.fotoelite.it"
Elseif val = "1" then
.Subject = "Richiesta preventivo"
Elseif val = "2" then
.Subject = "Pubblicazione news"
End if
.HtmlBody = HTML
.Send
End With
if err.number <> 0 then
%>
<tr>
<td align="center" class="grassetto">Si sono verificati errori durante l'invio della mail.
<p class="testo-normale">Vi preghiamo di riprovare.
Se l'errore dovesse persistere, riprovare in un secondo tempo.</p>
[img]./img/indietro.gif[/img]
</td>
</tr>
<%
else
%>
<tr>
<td><center><span class="testo-no-prodotti">
Il messaggio è stato inviato correttamente.</span>
</center>
<span class="testo">Verrete riportati alla home page del sito. Se non volete aspettare fare clic <font size="1">qui</font>.</span>
</td>
</tr>
<%
end if
%>
Ti ho evidenziato in rosso la riga di errore.
Grazie 10000
Non dire gatto se non ce l'hai nel sacco! ATTIA!
sul w3 non vengono settate ne le porte ne altro
http://www.w3schools.com/asp/asp_send_email.asp
tu lo fai perchè è un esigenza o cosa?
se non è bello ciò che è bello figuriamoci ciò che è brutto!!
fai anche tu come me: indenta il codice!!!!
Il codice lo avevo copiato documentandomi su Internet.
Ho commentato le righe in cui venivano dichiarate le porte ecc ed ora funziona!!!!
Sei stato gentilissimo.
Grazie ciao
Non dire gatto se non ce l'hai nel sacco! ATTIA!
figurati! ...
comunque consiglio: fai sempre prima delle ricerche, sia in rete sia sul forum, la maggior parte delle volte sono problemi già risolti oppure problemi che possono essere risolti con la maieutica dell rete!!!
(paura, conosco la parola maieutica!!!!! e chi sono?)
se non è bello ciò che è bello figuriamoci ciò che è brutto!!
fai anche tu come me: indenta il codice!!!!
Hai ragione! Ora che conosco la maieutica cercherò sul forum con più attenzione!!!
Ciao
Non dire gatto se non ce l'hai nel sacco! ATTIA!
Permessi di invio
Rispondi quotando