Newsgroup: it.comp.www.asp
Titolo: servizio CDONTS...

Salve all'NG
Sono un neofita di ASP (il primo approccio 2 giorni addietro).
Ho uno script ASP che utilizzo per spedire una mail utilizzando i dati
prelevati da un form fatto con Flash, e fin qui tutto bene.
Mi trovo la brutta sorpresa che il server a cui mi appoggio per pubblicare i
miei siti, non mi supporta il servizio CDONTS... telelfono al responsabile e
questo mi dice che è una cosa complicata, che dovrei fargli avere le DLL
necessarie e le relative istruzioni!
Io sinceramente non mi rendo effettivamente conto di che impegno necessiti
il server per l'installazione di un servizio del genere. Fatto sta che
quando ho chiesto al server se poteva propormi una soluzione "alternativa"
(intendendo script preimpostati da loro forniti) questo mi ha risposto
"Magari..."
Qualcuno mi può indicare dove trovare e come installare il servizio CDONTS?
Il server è un server NT, sempre quest'ultimo mi ha detto che CDONTS è un
servizio "esterno" delle funzioni ASP; alla luce di questo, esiste un metodo
alternativo per l'invio delle Mail con ASP?
ho provato un altro script utilizante WebHostMeMail.SMTP, anche questo non
ha funzionato.
Grazie per l'appoggio! e a buon rendere :-)
P.S.
Riporto qui di seguito i due script utilizzanti rispettivamente CDONTS e
WebHostMeMail.SMTP.
___script n°1 (utilizzante
CDONTS)___________________________________________________
____________________________________________________________________________
___
<%
messaggio = "Messaggio inviato da: " & request.form("nome") & " " & vbCrLf
messaggio = messaggio & request.form("messaggio")
Set fm = CreateObject("CDONTS.Newmail")
fm.From = request.form("email")
fm.To = "
mio...@miodominio.com
"
fm.Subject = request.form("oggetto")
fm.Body = messaggio
fm.Send
Set fm = Nothing
Response.Write("check=ok")
%>
___script n°2 (utilizzante
WebHostMeMail.SMTP)________________________________________
____________________________________________________________________________
___
<%
' Never cache this response
Response.Expires = 0
' Get data from their request
subject = Request.form("subject")
email = Request.form("email")
body = Request.form("body")
name = Request.form("name")
if subject = "" Then
 message = "No subject!? Please go back and try again"
 response.write("message="+URLEncode(message)+"&confirm=1")
elseif body = "" Then
 message = "I see no message!! Please go back and try again"
 response.write("message="+URLEncode(message)+"&confirm=1")
elseif email = "" Then
 email = "
an...@anon.co.uk
"
else
Set SMTPObj = CreateObject("WebHostMeMail.SMTP")
SMTPObj.SMTPServer = "
mail.miodominio.com
"
SMTPObj.ToAdd = "
mio...@miodominio.com
"
SMTPObj.FromAdd = email
SMTPObj.Subject = "Your site comments - " & subject
SMTPObj.Body = name & " (" & email & ") " & "says this - " & body
SMTPObj.Connect
result = SMTPObj.EMail
message = "Thanks " & name & ". Your message has been sent - " & result
response.write("message="+URLEncode(message)+"&confirm=2")
SMTPObj.Quit
End If
' Encode a number from 0..15 to a single hex digit
Function HexChar(ByVal i)
 If i < 10 Then
  HexChar = Chr(i+Asc("0"))
 Else
  HexChar = Chr(i-10+Asc("A"))
 End If
End Function
' Encode the control and punctuation characters in a string to %xx hex
values
Function URLEncode(ByVal s)
 Dim result, ch
 Do While Len(s) > 0
  ch = Asc(s)
  s = Right(s, Len(s)-1)
  If (ch >= Asc("a") And ch <= Asc("z")) Or (ch >= Asc("A") And ch <=
Asc("Z")) Or (ch >= Asc("0") And ch <= Asc("9")) Then
   result = result & Chr(ch)
  ElseIf ch = Asc(" ") Then
   result = result & "+"
  Else
   'result = result & "*" & ch
   'result = result & "!" & (ch/16) & (ch mod 16)
   result = result & "%" & HexChar(Int(ch/16)) & HexChar(ch Mod 16)
  End If
 Loop
 URLEncode = result
End Function
%>
____________________________________________________________________________
____

Sul server deve essere installato Microsoft SMTP server, che viene fornito
gratuitamente a chi acquista MSExchange Server.
Di piu' non so dirti.
Ciao
Nettuno


Moderatore di it.comp.www.asp
Sito di supporto: 
http://www.aspitalia.com/newsgroup/
La più grande community italiana di sviluppatori!