invio mail

[giobex]

Posto il codice che uso per inviare la mail tramite asp.
premetto che non mida nessun errore ma non le invia.
Come metodo uso cdosys, ma niente non capisco neanche come debuggare
Grazie

[michele.santoro]

Originariamente inviato da giobex
Posto il codice che uso per inviare la mail tramite asp.
premetto che non mida nessun errore ma non le invia.
Come metodo uso cdosys, ma niente non capisco neanche come debuggare
Grazie

E il codice

[giobex]

<%@LANGUAGE="VBSCRIPT"%>
<%
response.expires=0
response.expiresAbsolute= Now()-1
response.addHeader "pragma", "no-cache"
response.addHeader "cache-control", "private"
response.cacheControl = "no-cache" 
%>

<%
dim Body
dim Nome
dim citta

citta = session("citta")
Nome = session("nome")
occ = session("occ")

if occ = 1 then
	response.Write  "
<hr>" & Nome & " Abbiamo Ricevuto la tua mail
<hr>"
	response.Write " Presto sarai ricontattato da un nostro rivenditore
<hr>"
	response.Write "Hai ordinato il kit completo composto da
<hr>1 box occhiali
<hr>1 espositore
<hr>"	
	else
	response.Write  "
<hr>" & Nome & " Abbiamo Ricevuto la tua mail
<hr>"
	response.Write " Presto sarai ricontattato da un nostro rivenditore
<hr>"
	response.Write "Hai ordinato 1 box occhiali
<hr>"
End if

if occ = 1 then 
   Body = "Il Cliente " & Nome &" della città di " & citta & vbnewline & vbnewline & "Ha ordinato il kit completo composto da" & vbnewline &"1 box occhiali"& vbnewline &"1 espositore"	
   else
   Body = "Il Cliente " & Nome &" della città di " & citta & vbnewline & vbnewline & "Ha ordinato 1 box occhiali"
End if


DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Set Flds = iConf.Fields


Flds(cdoSendUsingMethod) = cdoSendUsingPickup
Flds(cdoSMTPServer) = "mail.natan.it" 
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
   Set .Configuration = iConf
   .To = "giorgio@modatex.it"
   .Cc = "ordini@modatex.it"
   .Bcc = ""
   .From = Nome
   .Sender = ""
   .Subject = "Ordine Kit Occhiali"
   .TextBody = body
   .Send
End With

'response.cookies("MM_NOrdine") = "-1"
'Response.redirect("Conferma.html")
%>
<div align="center">ESCI

VAI ALLA VENDITA</P>
  </p>
  </td>  
</div>

Comunque adesso funziona scusate il ritardo