| ENQUIRY FORM | ||
<% if request.querystring("send")="success" then Dim strBody 'Holds the body of the e-mail Dim objCDOMail Dim strMyEmailAddress Dim strCCEmailAddress Dim email strMyEmailAddress = "info@konarengineering.com" strCCEmailAddress = "lakshmikanth@konarengineering.com" name = request.form("name") cname = request.form("cname") designation = request.form("designation") email = Request.Form("email") phone = request.form("phone") mobile = request.form("mobile") address = request.form("address") message = request.form("message") strBody = " Mail from konarengineering.com" strBody = strBody & "Name: " & name strBody = strBody & " Company Name: " & cname strBody = strBody & " Designation: " & designation strBody = strBody & " E-mail: " & email strBody = strBody & " Phone No: " & phone strBody = strBody & " mobile No: " & mobile strBody = strBody & " Address: " & address strBody = strBody & " Message / Queris:" & message If Len(email) < 5 OR NOT Instr(1, email, " ") = 0 OR InStr(1, email, "@", 1) < 2 OR InStrRev(email, ".") < InStr(1, email, "@", 1) Then email = strMyEmailAddress End If Set objCDOMail=CreateObject("CDO.Message") objCDOMail.From = name & " <" & email & ">" objCDOMail.To = strMyEmailAddress objCDOMail.Cc = strCCEmailAddress objCDOMail.Subject = "Enquiry form from konarengineering.com" objCDOMail.HTMLBody = strBody objCDOMail.Send Set objCDOMail = Nothing Response.write "" Response.write "Thank you for filling in the Enquiry form." Response.write " " Response.write "We will get back to you shortly" response.write "" End if %> |
||
