<%option explicit const CurrentPageDef = "CONTACTUS"%>

<%if GetRequest("POSTQUERY") <> "" then%> <% Dim MsgBody, CNT_SenderEmail, CNT_SenderName, MyCDOSYSMail, objCDOSYSCon MsgBody = "RFAGroup.in Site Contactus" & vbcrlf & vbcrlf & _ "Client Name : " & GetRequest("CNT_NAME") & vbcrlf & _ "Client Phone : " & GetRequest("CNT_PHONE") & vbcrlf & _ "Client Email : " & GetRequest("CNT_EMAIL") & vbcrlf & vbcrlf & _ "Comment :" & GetRequest("CNT_COMMENT") & vbcrlf & _ " --------------------------------------------------" Set MyCDOSYSMail = Server.CreateObject("CDO.Message") set objCDOSYSCon = Server.CreateObject("CDO.Configuration") 'Out going SMTP server objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver")= "localhost" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing")= 2 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")= 60 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = "1" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "finnsys@tbsonline.in" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "" objCDOSYSCon.Fields.Update 'Update the CDOSYS Configuration Set MyCDOSYSMail.Configuration = objCDOSYSCon MyCDOSYSMail.From= "finnsys@tbsonline.in" MyCDOSYSMail.To= "finnsys@tbsonline.in" MyCDOSYSMail.Subject = "Site Contactus" MyCDOSYSMail.TextBody= MsgBody MyCDOSYSMail.Send Set MyCDOSYSMail = Nothing Set objCDOSYSCon = Nothing %> <%else%> <%end if%>

Thank you for contacting us. We will contact you shortly. Your co-operation is requested in the interim.
Contact Us Fill the below form for your query and suggestions:-
Name:
Phone:
Email:	">
Comment:	">