risposta al topic del mio forum

[wolflash]

Ciao ragà, sul mio forum non funziona la risposta al topic, che viene inviata al'utente via mail per avvertirlo che è stata data una risposta al topic postato.

premetto che il server è winserver 2003
il codice è :

Set smtp = Server.CreateObject("SmtpMail.SmtpMail.1")
MailServer = "smtp.miosito.com"
Recipients = email
Sender = "info@miosito.com"
Subject = "Forum - Risposta al tuo posting"
msg = "Ciao " & user_name & vbcrlf & vbcrlf
msg = msg & "Hai ricevuto una risposta al tuo posting sul Forum."
msg = msg & "Soggetto - " & Request.Form("topic_title") & "." & vbcrlf & vbcrlf
msg = msg & "Puoi leggere la risposta " & Request.Form("refer") & vbcrlf

smtp.MailServer = MailServer
smtp.Recipients = Recipients
smtp.Sender = Sender
smtp.Subject = Subject
smtp.Message = msg
on error resume next ' Ignore Errors
smtp.SendMail2
Set smtp = Nothing

ecc

Ciao

[weppos]

Hai quell'oggetto email installato sul server?

[deivnet]

La pagina ti da qualche errore oppure niente?
togli l'on error resume next e vedi se torna qualche errore.

[wolflash]

ho tolto on error resume next ' Ignore Errors
ma niente è cambiato. L'erroe è http 500 nessuna specifica.

Sul server non sò se è installato. Posso chiedere all'ISP, ma ti riferisci ad SmtpMail.SmtpMail.1??
non può essere sostituito con altro.

se può essere utile il forum è open source ASP BOARD, scaricato in rete.

Ciao

[deivnet]

Devi disabilitare la visualizzazione degli errori in internet explorer, altrimenti avrai sempre una pagina generica di errore (http 500).

Vai in Strumenti -> Opzioni internet -> Avanzate cerca la voce "mostra errori brevi" o una cosa del genere e togli il segno di spunta. Dai OK e fai ripartire la pagina. Ora dovrebbe darti il vero errore.

[wolflash]

la risposta è:

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/forum/post_info.asp, line 81

800401f3


alla riga 81 corrisponde:

Set smtp = Server.CreateObject("SmtpMail.SmtpMail.1")

probabilmente come diceva weppos l'oggetto email non è installato sul server.

Ci sono alternative ?????????

[weppos]

Sì, cambia il codice dello script usando l'oggetto che hai installato sul server.

[wolflash]

Ciao, ho parlato con l'isp è mi hanno detto che posso usare il "cdo.message" come oggetto.

il codice con il nuovo oggetto diventa:

Set smtp = Server.CreateObject("cdo.message")
MailServer = "smtp.miosito.com"
Recipients = email
Sender = "info@miosito.com"
Subject = "Forum - Risposta al tuo posting"
msg = "Ciao " & user_name & vbcrlf & vbcrlf
msg = msg & "Hai ricevuto una risposta al tuo posting sul Forum."
msg = msg & "Soggetto - " & Request.Form("topic_title") & "." & vbcrlf & vbcrlf
msg = msg & "Puoi leggere la risposta " & Request.Form("refer") & vbcrlf

smtp.MailServer = MailServer
smtp.Recipients = Recipients
smtp.Sender = Sender
smtp.Subject = Subject
smtp.Message = msg
on error resume next ' Ignore Errors
smtp.SendMail2
Set smtp = Nothing


purtroppo spunta un nuovo errore:

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'smtp.MailServer'

/forum/post_info.asp, line 91


che succede questa volta? che mi consigli?

Ciao e grazie

[teorema55]

A me sembra (ripeto: sembra!) che si chiami

smtp.server

oppure

cdoSMTPServer

e non

smtp.mailserver

Se così fosse, dovresti scrivere

smtp.Server = MailServer

oppure

cdoSMTPServer = MailServer

Potresti provarli entrambi...

[wolflash]

ho risolto così:

Set smtp = Server.CreateObject("cdo.message")
MailServer = "smtp.miosito.com"
Recipients = email
Sender = "info@miosito.com"
Subject = "Forum - Risposta al tuo posting"
msg = "Ciao " & user_name & vbcrlf & vbcrlf
msg = msg & "Hai ricevuto una risposta al tuo posting sul Forum."
msg = msg & "Soggetto - " & Request.Form("topic_title") & "." & vbcrlf & vbcrlf
msg = msg & "Puoi leggere la risposta " & Request.Form("refer") & vbcrlf

cdoSMTPServer = MailServer
cdoSMTPRecipients = Recipients
smtp.Sender = Sender
smtp.Subject = Subject
cdoSMTPMessage = msg
on error resume next ' Ignore Errors
smtp.SendMail2
Set smtp = Nothing


ma adesso, il broswer non risponde con un errore, ma non ricevo nessuna mail che mi avverte che qualcuno ha risposto alla mia discussione... cosa sarà questa volta???????