<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
Contact SHOBU AIKIDO HOUSTON
<%
Dim strName, strEmail, strQuery, strPhone
strName = Trim(Request.Form("ClientName"))
strEmail = Trim(Request.Form("ClientEmail"))
strPhone = Trim(Request.Form("ClientPhone"))
strQuery = Trim(Request.Form("ClientQry"))
If (strName <> "" or strEmail <> "" or strQuery <> "" or StrPhone <> "") Then
Dim objMail, aRecipients
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = strEmail
objMail.To = ("shobuaikido@shobuaikidohouston.com")
objMail.Subject = "Inquiry from " & strName
aRecipients = Array ("shobuaikido@shobuaikidohouston.com")
objMail.BCC = Join (aRecipients, ";")
objMail.Body = strQuery & strPhone
objMail.Send
Response.write "Hello!! "
Response.Write strName
Response.Write " ,thank you for your interest in SHOBU AIKIDO HOUSTON!!! We will response to your inquiries as soon as possible. Regards!!"
Set objMail = Nothing
Else
%>
Shobu Aikido Houston Contact Form
E-mail: shobuaikido@shobuaikidohouston.com
Phone Number: (713) 818 - 2306
1320 Hawthorne St
Zip Code: 770006
Houston, Texas
Get Map
<% End If %>