sending mail in asp

Hi ,
My simple code to send mail is this

Code:

<%
sch = "http://schemas.microsoft.com/cdo/configuration/" 
 
    Set cdoConfig = CreateObject("CDO.Configuration") 
 
    With cdoConfig.Fields 
        .Item(sch & "sendusing") = 2 ' cdoSendUsingPort 
        .Item(sch & "smtpserver") = "<enter_mail.server_here>" 
        .update 
    End With 
 
    Set cdoMessage = CreateObject("CDO.Message") 
 
    With cdoMessage 
        Set .Configuration = cdoConfig 
        .From = "rag84dec@gmail.com" 
        .To = "rag84dec@gmail.com" 
        .Subject = "Sample CDO Message" 
        .TextBody = "This is a test for CDO.message" 
        .Send 
    End With 
 
    Set cdoMessage = Nothing 
    Set cdoConfig = Nothing 

					
					%>

But it is giving me an error

Code:

Error Type:
CDO.Message.1 (0x80040213)
The transport failed to connect to the server. 
/testmail.asp, line 21

Can any one help me please