Newsgroup: it.comp.www.asp
Titolo: Problema con porting funzione mailing IIS 5.0 -> 5.1

Buongiorno,
mi trovo quì a scrivere perchè ho un problema con uno script per una
mailing
list.
Se non fosse che sono arcisicuro che con IIS 5.0 funziona, non mi
sentirei
così spaesato. Sto sviluppando su WinXP Pro (IIS 5.1) e il seguente
script
(che ripeto sul 5.0 funziona):
<%
Set RS = Server.CreateObject("ADODB.Recordset")
Set RSBODY = Server.CreateObject("ADODB.Recordset")
SQL2 = "SELECT * from Settings"
RSBODY.Open SQL2, Conn, 1, 3
SQL = "SELECT Email FROM List"
RS.open SQL, conn
Select Case RSBODY("Component")
Case "CDONTS"
 Do While Not RS.eof
  set mailObj = Server.CreateObject("CDONTS.NewMail")
  If (Request("Format") = "Text") Then
   mailObj.BodyFormat = 1
   mailObj.MailFormat = 1
  Else
   mailObj.BodyFormat = 0
   mailObj.MailFormat = 0
  End If
  mailObj.From = RSBODY("From_Email")
  mailObj.To = RS("Email")
  mailObj.Subject = Request("Subject")
  mailObj.Body = Request("Body")
'  mailObj.Send
        RS.movenext
 Loop
Case "ASPMail"
 Do While Not RS.eof
  Set mailObj = Server.CreateObject("SMTPsvg.Mailer")
  If (Request("Format") = "Text") Then
   mailObj.CharSet = 2
  Else
   mailObj.ContentType = "text/html"
  End If
  mailObj.FromName = RSBODY("From_Email")
  mailObj.FromAddress= RSBODY("From_Email")
  mailObj.RemoteHost = RSBODY("SMTP")
  mailObj.Subject = Request("Subject")
  mailObj.BodyText = Request("Body")
  mailObj.AddRecipient RS("Email"),RS("Email")
  mailObj.SendMail
  RS.movenext
 Loop
Case "ASPEmail"
 Do While Not RS.eof
  Set mailObj = Server.CreateObject("Persits.MailSender")
  mailObj.Host = RSBODY("SMTP")
  mailObj.From = RSBODY("From_Email")
  mailObj.AddAddress RS("Email")
  mailObj.Subject = Request("Subject")
  mailObj.Body = Request("Body")
  If (Request("Format") = "Text") Then
   mailObj.IsHTML = False
  Else
   mailObj.IsHTML = True
  End If
  mailObj.Send
  RS.movenext
 Loop
End Select
IF (Request("Archive") = "on") Then
 Set RSARCHIVE = Server.CreateObject("ADODB.Recordset")
 RSARCHIVE.Open "Archive", Conn, 2, 2
 RSARCHIVE.addnew
 RSARCHIVE("Subject") = Request("Subject")
 RSARCHIVE("Body") = Request("Body")
 RSARCHIVE("Format") = request("Format")
 RSARCHIVE("Date") = Date
 RSARCHIVE.update
End If
%>
genera il seguente errore:
HTTP 500.100 - Errore interno del server - errore ASP
Internet Information Services
----------------------------------------------------------------------------
----
Informazioni tecniche (per il personale del supporto tecnico)
Tipo di errore:
Oggetto Server, ASP 0177 (0x800401F3)
Stringa dell'interfaccia non valida.
La linea interessata è (a seconda del select case, CDONTS AspMail o
AspEmail) quella dove c'è l'istruzione set server.createobject("xxxxx")
....
Non comprendo l'errore .......
Grazie per l'attenzione
Cordiali saluti.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG


Moderatore di it.comp.www.asp
http://www.aspitalia.com
 Enjoy the .NET community!
http://www.dev2dev.it
 La rete ha connesso nuove particelle!

 
http://www.dev2dev.it
 La rete ha connesso nuove particelle!
Mi puoi elencare la procedura dettagliata per "installare" CDONTS dal cd
di Win2k?
Grazie!!!


 di Win2k?
mai fatto. da quello che mi dicono basta prelevarlo da una installazione di
win2k (e non so se in q.che modo infrangi la licenza...) e registrarlo come
un normale component COM su XP.
