mail function

<%
function sendmail(emailName)
Dim MyMail
Set CdoConf = Server.CreateObject ("CDO.Configuration")
set MyMail = Server.CreateObject("CDO.Message")
CdoConf.Fields( "http://schemas.microsoft.com/cdo/configuration/smtpserver" ) = "212.227.15.179"
CdoConf.Fields( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" ) = 25
CdoConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") ="no-reply@rupizcompare.co.uk"
CdoConf.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="123459876"
CdoConf.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") =1
CdoConf.Fields( "http://schemas.microsoft.com/cdo/configuration/sendusing" ) = 2
CdoConf.Fields( "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" ) = 60
CdoConf.Fields.Update
'siteurl="http://172.16.0.5/mobile/mobilecentral/ask4phone/"
'siteurl="http://www.ask4phone.co.uk/Images/"
siteurl="http://172.16.0.5/mobile/mobilecentral/ask4phone/Images/Mail/"
'siteurl = "http://193.142.127.129/ask4PhoneImages/"

'errStr ="::: Ask 4 Phone ::: style=""padding:0px; margin:0px;"">

Please provide us following details so that we can provide you Free mobile comparison portal :
Your website URL on which you want to display the Mobile whitelabel solution.   Your Website logo which will be displayed on the top of the header of the website.
Now, For all your earnings till 31st January, 2009 you would get 20% more
Once you will provide us above mention details . Your website will be online within 24 hrs.
Regards Ask4phone Team 0870034740

"
'siteurl = "http://193.142.127.129/ask4PhoneImages/"
errStr ="::: Ask 4 Phone ::: style=""padding:0px; margin:0px;"">

Please provide us with the following details so that we can process your request to offer you our Mobile Comparison Whitelabel Website absolutely Free!! Domain name if you have one Your Website logo Once you will provide us with the above mentioned details. We can process to make your whitelabel website online within 24 hours of time. Best Regards Ask4phone Team 0870 034 7403

"

Set MyMail.Configuration = CdoConf
MyMail.From = "info@rupizinfotech.com"
MyMail.To = "y.kumar@rupizinfotech.com"
MyMail.Bcc = "info@free3gmobilephoneoffers.co.uk"
MyMail.Subject = "Ask4Phone"
MyMail.HTMLBody=errStr
MyMail.Send
Set objNewMail = Nothing
end function
%>