<% @language = VBScript %> <% dim strName, email, comments comments = Trim(Request.Form("comment")) strName = Trim(Request.Form("name")) email = Trim(Request.Form("email")) if (strName <> "" and email <> "" and comments <> "") then dim objMail, msg Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From = strName & "<" & email & ">" objMail.To = "info@getyourbizonline.com" objMail.Subject = "Online Get Quote Form" msg = "Online comments submitted by: " & strName & "(" & email & ")" & chr(13) & _ chr(13) & chr(13) & _ "Name: " & strName & chr(13) & _ "Email: " & email & chr(13) & _ "Comments: " & comments objMail.Body = msg objMail.Send Response.Redirect("thanks.asp") Set objMail = Nothing Else %> Guaranteed Search Engine Positioning, Guaranteed Search Engine Placement, Affordable Web Site Promotion Service via Search Engine Optimization Services, Internet Web Site Promotion

Contact

Email:
info@GetYourBizOnline.com

Phone:
(888) 378-7791
" method=POST>
Name
Email
Comments

 

© Copyright 2001 Get Your Biz Online, Inc.       Site Design and Development by TKGi
<% End If %>