Infrared Thermography, Thermography, infra red thermography | Houston infrared consultants, Infrared inspection, Infrared building Inspections Houston Texas

Contact Request Form

<% If Request.QueryString("Mode") = "MailForm" Then Set objConn=Server.CreateObject("ADODB.Connection") Set objrs=Server.CreateObject("ADODB.Recordset") objConn.Open InitDSN, InitUN, InitPW SQL="INSERT INTO client (UD30,UD16,UD2,UD9,UD4,UD14,UD10,UD13,UD7,UD0,UD11,UD8,UD12) VALUES ('" & date() & "','Lead','" & replace(request.form("Address"),"'","''") & "','" & replace(request.form("Cell Phone"),"'","''") & "','" & replace(request.form("City/State/ZIP"),"'","''") & "','" & replace(request.form("Comments"),"'","''") & "','" & replace(request.form("E-Mail"),"'","''") & "','" & replace(request.form("Home Age"),"'","''") & "','" & replace(request.form("Home Phone"),"'","''") & "','" & replace(request.form("Name"),"'","''") & "','" & replace(request.form("Square Feet"),"'","''") & "','" & replace(request.form("Work Phone"),"'","''") & "','" & replace(request.form("Year Built"),"'","''") & "')" Set objrs = objConn.Execute(SQL) strMessage = Now() & vbcrlf & vbcrlf strReceiptMessage = "" For i=1 To (request.form.count-1) If request.form.key(i) <> "Submit" and request.form.key(i) <> "oid" and request.form.key(i) <> "SenderName" and request.form.key(i) <> "SenderMail" and request.form.key(i) <> "SenderSubject" and request.form.key(i) <> "SenderThankyou" then strMessage = strMessage & request.form.key(i) & ": " & request.form.item(i) & vbCrLf strReceiptMessage = strReceiptMessage & "" End if Next strReceiptMessage = strReceiptMessage & "

" & request.form.key(i) & ":

" & request.form.item(i) & "

" ErrorMessage = "There was an error in sending the form, please click the back button on your browser and try again, Thank you." ThankYouMessage = "" If Request.Form("SenderThankyou") <> "" Then ThankYouMessage = ThankYouMessage & Request.Form("SenderThankyou") Else ThankYouMessage = ThankYouMessage & "

Your information has been sent.
Thank you.

" End If ThankYouMessage = ThankYouMessage & "

" If UseAspMailComponent = True Then Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = Request("SenderName") Mailer.FromAddress = Request("SenderMail") Mailer.RemoteHost = "" Mailer.AddRecipient "", Request("SenderMail") Mailer.AddRecipient "", Request("Email") Mailer.Subject = Request("SenderSubject") Mailer.BodyText = strMessage If Mailer.SendMail Then Response.Write "

" & ThankYouMessage & "

" Else Response.Write "

" & (ErrorMessage) & "

" End If If Request.QueryString("Receipt") = "yes" Then Response.Write(strReceiptMessage) End If Else strTextBody = Request("SenderThankyou") Err.Clear 'Use CDONTS Set objMail = CreateObject("CDONTS.Newmail") objMail.From = request("SenderMail") objMail.To = request("SenderMail") & ";" & request("Email") objMail.Subject = request("SenderSubject") If InStr(strTextBody,"<") > 0 And (InStr(strTextBody,"")) > 0 Then objMail.MailFormat = 0 objMail.BodyFormat = 0 objMail.Body = "" & strTextBody & "

" & strMessage & "

" Else objMail.Body = strTextBody & vbcrlf & vbcrlf & strMessage End If objMail.Send Set objMail = Nothing If Err.number <> 0 Then Response.Write "

" & (ErrorMessage) & "

" Else Response.Write "

" & ThankYouMessage & "

" End If If Request.QueryString("Receipt") = "yes" Then Response.Write(strReceiptMessage) End If End if Else %>

Your Home Check 1305 FM 359, Suite G Richmond, TX 77469 281-342-HOME (4663) info@yourhomecheck.com
Customer Information
	Name:
	Address:
	City/State/ZIP:
	Home Phone:
	Work Phone:
	Cell Phone:
	E-Mail:
Property Details
	Square Feet:
	Year Built:
	Comments, Concerns:

<% End If %>

Your information has been sent.Thank you.

Your information has been sent.
Thank you.