<%
if(Request("hd_Action") = "Send") Then
' Checking for configuration start
'Set cdoConfig = CreateObject("CDO.Configuration")
'Dim fields
'fields = cdoConfig.Fields
'Response.Write(cdoConfig.Fields(cdoSMTPServerPort))
'Set fields=cdoConfig.Fields(cdoSMTPServerPort)
'response.write(cdoConfig.Fields.sendusing)
'With cdoConfig.Fields
'.Item(cdoSendUsingMethod) = cdoSendUsingPort
'.Item(cdoSMTPServer) = "smtp.azilon.com"
'.Update
'End With
Dim objCDO
Set objCDO = Server.CreateObject("CDO.Message")
Dim objCDOConf
Set objCDOConf = Server.CreateObject("CDO.Configuration")
With objCDOConf.Fields
.Item(cdoSendUsingMethod) = 2
.Item(cdoSMTPServer) = "mail-fwd"
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPconnectiontimeout) = 10
.Update
End With
Set objCDO.Configuration = objCDOConf
' Checking for configuration end
'Set myMail=CreateObject("CDO.Message")
''''''''
dim str
str=""
str =str+Request("hd_Value")
Dim sArray
sArray = Split(str,"$")
dim body,i
body =""
For i = LBound(sArray) To UBound(sArray)
body=body & sArray(i) & chr(10) & chr(13)
Next
'''''''''
dim stri
stri = "" & chr(10) & chr(13)
stri = "The following user has registered with the website." & chr(10) & chr(13)
stri = stri & "Please contact them at the earliest." & chr(10) & chr(13)
stri=stri & body
'str =str+Request("hd_Value")& chr(10) & chr(13)
objCDO.Subject="Registration Details"
objCDO.From="admin@azilon.com"
'objCDO.To="george.varghees@azilon.com,vg.shajan@gmail.com"
'objCDO.To="george.varghees@azilon.com"
'objCDO.To="rln@azilon.com"
objCDO.To="rln@azilon.com,vipul.sanghvi@azilon.com,bino.george@azilon.com"
objCDO.TextBody=stri
objCDO.Send
set objCDO=Nothing
Set objCDOConf=Nothing
Response.Redirect("Thankyou.asp")
end if
%>