<% name= request.form("name") address= request.form("address") phone= request.form("phone") emailid= request.form("emailid") interest= request.form("interest") dim flag flag = 0 if request.form("name") <> "" then Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "mail.aproprint.com" .Update End With Set cdoMessage = CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = "info@aproprint.com" .To = "ashok@aproprint.com" .Subject = "New Request" .TextBody = "Congratulations" & VbCrLf & "The new Request came from " & VbCrLf & name & VbCrLf &"His/Her address is " &address& VbCrLf &"phone no is "&phone& VbCrLf &"Emailid is "&emailid& VbCrLf &"His/Her interest is following "& VbCrLf &interest .Send flag = 1 End With Set cdoMessage = Nothing Set cdoConfig = Nothing end if %>
Customer Enquiry Form

<%If flag = 1 Then%>

Your request has been sent to process. We will contact you very soon 
<%end if%> <%If flag = 0 Then%>
 
Name :
Postal Address :
Telephone Number :
Email ID :
Interested In :


<% end if %>