<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%> <% Function CheckCAPTCHA(valCAPTCHA) SessionCAPTCHA = Trim(Session("CAPTCHA")) Session("CAPTCHA") = vbNullString if Len(SessionCAPTCHA) < 1 then CheckCAPTCHA = False exit function end if if CStr(SessionCAPTCHA) = CStr(valCAPTCHA) then CheckCAPTCHA = True else CheckCAPTCHA = False end if End Function %> <% CONST MAILSERVER = "mail.steelartindia.com" CONST SUBJECT = "Enquiry from site" CONST TO_EMAIL = "sales@steelartindia.com" CONST CONFIRM = "thanks.html" Dim bHTML, str,sFromEmail bHTML = True sFromEmail = Request.Form("Email") if Request.Form("hidmail") <> "" then if Request.Form("Person") <> "" and Request.Form("Designation") <> "" and Request.Form("Telephone") <> "" and Request.Form("Email") <> "" then str = "" str = str & "Following is customer details:

" if Request.Form("company") <> "" then str = str & "" str = str & "Company Name : " & Request.Form("company") str = str & "
" end if if Request.Form("Person") <> "" then str = str & "" str = str & "Person : " & Request.Form("Person") str = str & "
" end if if Request.Form("Designation") <> "" then str = str & "" str = str & "Designation : " & Request.Form("Designation") str = str & "
" end if if Request.Form("Physical_address") <> "" then str = str & "" str = str & "Address : " & Request.Form("Physical_address") str = str & "
" end if if Request.Form("Telephone") <> "" then str = str & "" str = str & "Phone No : " & Request.Form("Telephone") str = str & "
" end if if Request.Form("fax") <> "" then str = str & "" str = str & "Fax : " & Request.Form("fax") str = str & "
" end if if Request.Form("Email") <> "" then str = str & "" str = str & "Email : " & Request.Form("Email") str = str & "
" end if if Request.Form("inquiry") <> "" then str = str & "" str = str & "Inquiry : " & Request.Form("inquiry") str = str & "
" end if if Request.Form("strCAPTCHA") <> "" then if CheckCAPTCHA(Request.Form("strCAPTCHA")) = true then set oMail = Server.CreateObject("Persits.MailSender") oMail.Host = MAILSERVER oMail.From = sFromEmail oMail.AddAddress TO_EMAIL oMail.Subject = SUBJECT oMail.IsHTML = bHTML oMail.Body = str if not oMail.Send Then ErrStr = Err.Description Else Response.Redirect("thanks.html") End if end if end if end if end if %> Steel Art
Enquiry Home Enquiry Product Range About Us





Name of Company :
" style="width: 200px">
* Name of the Person :
" class="design" id="Person" style="width: 200px">
* Designation of the Person :
" type="text" class="design" id="Designation" style="width: 200px">
Address :
* Telephone(s) :
" class="design" style="width: 200px">
Fax :
" class="design" style="width: 200px">
* Email Address :
" class="design" style="width: 200px">
Specific Requirement :
 

 

This Is Security Code
Security Code :
   

<% If ErrStr <> "" Then %> Message was not sent due to the following error: <% = ErrStr %> <% End If %>


Steel Art Industries | Website Powered by: Spick Technologies |