% 
            'Dimension variables
            Dim objCDOSYSCon

           'e-mail
           Set objCDOSYSMail = Server.CreateObject(CDO.Message)
           Set objCDOSYSCon = Server.CreateObject (CDO.Configuration)

           'ò
           With objCDOSYSCon
 
                'Out going SMTP server
.Fields(httpschemas.microsoft.comcdoconfigurationsmtpserver) = mail.server.com 
                'SMTP port 
.Fields(httpschemas.microsoft.comcdoconfigurationsmtpserverport) = 25 
                'CDO Port .Fields(httpschemas.microsoft.comcdoconfigurationsendusing) = 2 
.Fields(httpschemas.microsoft.comcdoconfigurationsmtpauthenticate) = 1
                'Email Username

.Fields(httpschemas.microsoft.comcdoconfigurationsendusername) = user@server.com 
                'Email Password
.Fields(httpschemas.microsoft.comcdoconfigurationsendpassword) = 123456 

                'Timeout
.Fields(httpschemas.microsoft.comcdoconfigurationsmtpconnectiontimeo ut) = 60
                .Fields.Update 

            End With

                'Update the CDOSYS Configuration
                Set objCDOSYSMail.Configuration = objCDOSYSCon

            With objCDOSYSMail 
                'e-mailķ
                .From = Request.Form(frmeadd) 

                'e-mail͸˭
                .To = Request.Form(toeadd) 

                'e-mail
                .Subject = Request.Form(subject)

                'e-mailݣڴıHTMLıѡ
                '.TextBody = Request.Form(body) 
                .HTMLBody = Request.Form(body) & HTMLBrBrhrBrfont size=2iHanzhen WAP Email SystembrCopyright
2003-2005 ba href=httphanzhen.orghanzhen.orgab. All Rights Reserved.ifontHTML

                'e-mail
                .Send
           End with 

           'رշmail
           Set objCDOSYSMail = Nothing

Response.ContentType = textvnd.wap.wml%

xml version='1.0' 
!DOCTYPE wml PUBLIC -WAPFORUMDTD WML 1.1EN httpwww.wapforum.orgDTDwml_1.1.xml wml card 
p

%Response.write(Email Sent)%p

p 
card 
wml 


