Ciao.

Ho un guestbook: http://www.creazionespettacoli.net/mrwax_index.asp
che mi dovrebbe mandare una mail quando un nuovo messaggio viene inserito.
Oggi ho fatto un po' di pulizia (eliminando lo spam), e un tentativo di inserimento del messaggio.
Sebbene il nuovo messaggio venga registrato e sia visiblie,
all'invio dell massaggio appare un errore (appunto quello dell'invio della mail)
codice:
 			Dim objCDOSYSCon
			
			Set objCDOSYSMail = Server.CreateObject("CDO.Message")
		    	Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
        		
	        	objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmtpServer
	        	objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")  = 25
	        	objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
	        	objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
        		objCDOSYSCon.Fields.Update 
		
			Set objCDOSYSMail.Configuration = objCDOSYSCon
			objCDOSYSMail.From = Uguestname & "<" & IndirizzoEmail & ">"
			objCDOSYSMail.To = "<" & IndirizzoEmail & ">"
			objCDOSYSMail.Subject = OggettoEmail
			objCDOSYSMail.HTMLBody = CorpoEmail
						
			If NOT strSmtpServer = "" Then objCDOSYSMail.Send				
			Set objCDOSYSMail = Nothing
If NOT strSmtpServer = "" Then objCDOSYSMail.Send
è la riga incriminata... che manca?