<%if dev="yes" then response.Write "contact_us_process.asp"%> <% if request("button") = "Send" then if request("q_email") = "" then errmsg = errmsg & "err_q_email=yes&" if request("q_name") = "" then errmsg = errmsg & "err_q_name=yes&" if request("q_security") <> session("Security") then errmsg = errmsg & "err_q_security=yes&" if errmsg <> "" then response.redirect "default.asp?ztitle=contact_us&panel=4&"& errmsg &"" if errmsg = "" then Dim objCDOMail, strBody, Item Dim zfrom, zto, zcc, zbcc, zsubject, zbody strBody = strBody & ""& vbcrlf strBody = strBody & "Enquiry"& "
"& vbcrlf strBody = strBody & "Name: "& request("q_name") & "
"& vbcrlf strBody = strBody & "Email: "& request("q_email") & "
"& vbcrlf strBody = strBody & "Contact Number: "& request("q_contact_no") & "
"& vbcrlf strBody = strBody & "Company Name: "& request("q_company_name") & "
"& vbcrlf strBody = strBody & "Homepage: "& request("q_homepage") & "
"& vbcrlf strBody = strBody & "Product in interest: "& request("q_product") & "
"& vbcrlf strBody = strBody & "How do you know MINAMOTO: "& request("q_how") & "
"& vbcrlf strBody = strBody & "Message: "& request("q_message") & "
"& vbcrlf zfrom = request("q_email") zsubject = "Enquiry from Website" zto = "info@minamoto.com" zbody = strBody '@ 'response.Write zsubject '----------- for Win XP ----------- Set objCDOMail = CreateObject("CDO.Message") '----------- for Win 2000 ----------- 'Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = zfrom objCDOMail.To = zto objCDOMail.Cc = zcc objCDOMail.bCc = zbcc objCDOMail.Subject = zsubject '----------- for Win XP ----------- objCDOMail.HTMLBody = zbody '----------- for Win 2000 ----------- 'objCDOMail.body = zbody 'if zto <> "" then objCDOMail.Send 'else 'end if Set objCDOMail = Nothing '@ 'response.Write "
1zbccx: "& data & "
" 'response.Write "
"& sqlbcc 'response.Write "
"& zbody response.Redirect "default.asp?ztitle=contact_us" else 'errmsg end if 'errmsg end if 'if request("button") = "Send" then %>