Automatsko slanje mejla sa sajta - POMOC

Code:

<%
Response.Write "Pocetak"
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Pozdrav"
myMail.From="Vladan"
myMail.To="[email protected]"
myMail.CreateMHTMLBody "http://www.krstarica.co.yu/" 
myMail.Send
Response.Write "Kraj"
%>

Code:

<%
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="[email protected]"
myMail.To="[email protected]"
myMail.TextBody="This is a message."
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="smtp.server.com"
'Server port
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25 
myMail.Configuration.Fields.Update
myMail.Send
%>