hi

i am using windows 2000 server(IIS). i have used CDONTS components,but the mail has not been sent. In my company the internet connection is in another machine. i have connected with that machine through network.my machine is 2000 server.
Can any one give me the full code to send email........

Thanks in advance.....

<%
Sub SendEmail( mailfrom, mailto, subject, msg )
Dim objMail
Set objMail = CreateObject( "CDONTS.Newmail" )
objMail.From = mailfrom
objMail.To = mailto
objMail.Subject = subject
objMail.Body = msg
objMail.Send
Set objMail = Nothing
End Sub
%>