<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Groesbeck Abstract and Title / Title Order Sheet <% dim method method = request.querystring("method") Select case method case "1" call verifyform()'Presents the form data for client verification. case "2" call email()'emails the form. case else call initialize()'Default page view end select %> <% Sub initialize() %>

Title Order Sheet

Ordered By: Date: (please use calendar button)

Current Owner:

Buyer / Borrower:

Property Description:

Commitment: Yes No

Mineral Search Required? Yes No

Owner Policy: Yes No Amount:

Mortgagee Policy: Yes No Amount:

Lender:

Special Instructions:

Send to: Phone:
Address: Date Needed :
City State Zip Order Taxes: Yes No
Email:  


All information is required for completion of the form via the internet. If this form cannot be completed, please print and fax to Groesbeck Abstract and Title at (254)729-5655.

/ Home /
January 28, 2003
©Copyright Groesbeck Abstract & Title 2002

 

<% end sub %> <% Sub email %> <% Dim cdoMail, txtpropdesc, txtspecinstr Set cdoMail = CreateObject("CDONTS.NewMail") txtpropdesc = Trim(Request.Form("propertydescription")) txtpropdesc = replace(txtpropdesc,"'","'") txtpropdesc = replace(txtpropdesc,vbCrlf,"
") txtpropdesc = replace(txtpropdesc,"", " ") txtspecinstr = Trim(Request.Form("specialinstructions")) txtspecinstr = replace(txtspecinstr,"'","'") txtspecinstr = replace(txtspecinstr,vbCrlf,"
") txtspecinstr = replace(txtspecinstr,"", " ") HTML = "" & vbCrLf HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "Sample NewMail" HTML = HTML & "" HTML = HTML & "" HTML = "

Title Order Sheet

" HTML = HTML & "

Ordered By: " & Trim(Request.Form("orderedby")) & " Date: " & Trim(Request.Form("date")) & "

" HTML = HTML & "

Owner: " & Trim(Request.Form("owner")) & "

" HTML = HTML & "

Buyer: " & Trim(Request.Form("buyer")) & "

" HTML = HTML & "

Property Description:
" & txtpropdesc & "

" HTML = HTML & "

Commitment: " & Trim(Request.Form("commitment")) & "

" HTML = HTML & "

Minerals: " & Trim(Request.Form("minerals")) & "

" HTML = HTML & "" HTML = HTML & "
Owners Policy: " & Trim(Request.Form("ownerpolicy")) & "Amount: " & Trim(Request.Form("amtownerspolicy")) & "
" HTML = HTML & "
" HTML = HTML & "" HTML = HTML & "
Mortgage Policy: " & Trim(Request.Form("mortgagee")) & "Amount: " & Trim(Request.Form("amtmortgageepolicy")) & "" HTML = HTML & "

Lender: " & Trim(Request.Form("lender")) & "

" HTML = HTML & "

Special Instructions:
" & txtspecinstr & "

" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "
Send to: " & Trim(Request.Form("name")) & "Phone: " & Trim(Request.Form("phonenumber")) & "
Address: " & Trim(Request.Form("address")) & "New Survey: " & Trim(Request.Form("newsurvey")) & "
City: " & Trim(Request.Form("city")) & "Order Taxes: " & Trim(Request.Form("ordertaxes")) & "
Email: " & Trim(Request.Form("email")) & "
" HTML = HTML & "" cdoMail.From = "limestonetitle@tol-tx.com" cdoMail.To = Trim(Request.Form("email")) & ";limestonetitle@tol-tx.com" cdoMail.Subject = "Title Order Sheet submition from Groesbeck Abstract and Title" cdoMail.BodyFormat = 0 cdoMail.MailFormat = 0 cdoMail.Body = HTML cdoMail.Send Set cdoMail = Nothing response.write HTML & "

" response.write "

All information is required for completion of the form via the internet. If this form cannot be completed, please print and fax to Groesbeck Abstract and Title at (254)729-5655.

" response.write "Thank you for your order. An email has been sent with all of the information needed. You should receive a copy of the email shortly." %> <% end sub %>