Click on a Picture Below to Select the Type of Break you Prefer:

Contact us
<% dim conn theconn submit=request.Form("Submit") if submit="Contact us" then fname=request.Form("fname") lname=request.Form("lname") email=request.Form("uemail") country=request.Form("ucountry") comments=request.Form("ucomments") thedate=date() fname=replace(fname, "'", "''") email=replace(email, "'", "''") country=replace(country, "'", "''") lname=replace(lname, "'", "''") comments=replace(comments, "'", "''") fname=replace(fname, ">", "") email=replace(email, ">", "") country=replace(country, ">", "") lname=replace(lname, ">", "") comments=replace(comments, ">", "") fname=replace(fname, "<", "") email=replace(email, "<", "") country=replace(country, "<", "") lname=replace(lname, "<", "") comments=replace(comments, "<", "") fname=replace(fname, "%", "") email=replace(email, "%", "") country=replace(country, "%", "") lname=replace(lname, "%", "") comments=replace(comments, "%", "") if ((fname="") or (lname="") or (country="") or (email="") or (comments="")) then response.write"All information is required.
Your message was not sent, please try again.
" else queryadd="insert into comments (fname, email, country, lname, dcomments, thedate) values ('"&fname&"','"&email&"','"&country&"','"&lname&"','"&comments&"','"&thedate&"')" set rsadd=conn.execute(queryadd) response.write"Thank you for contacting us." end if end if %>
First Name:
Last Name:
E-mail:
Country:
Question / Comment:


DoYouReally.com © All rights reserved. contact us: info@doyoureally.com