360prescott.com
360prescott.com About Us Contact Us
 Virtual Tours | Website Design | Print Media | Object Tours

Prescott Arizona Virtual Tours  

Residential Virtual Tours   Commercial virtual tours

 

  Contact us for more information or for details on how to  
  include your house for sale or rent here.

 

Lake Virtual Tours

  PRESCOTT AREA LAKES

  Contact us with suggestions for other area lakes to add  
  here.

 

Park Virtual Tours

  PRESCOTT PARKS

  PRESCOTT VALLEY PARKS

  Contact us with suggestions for other area parks to add  
  here.

 

  Contact us for more information or for details on how to
  include your business here.

 

 

Virtual Tours of hotels, inns, bed & breakfasts, resorts...

  Contact us for more information or for details on how to
  include your business here.

 

School Virtual Tours

  PRESCOTT SCHOOLS

  PRESCOTT VALLEY / DEWEY SCHOOLS

  Contact us for more information or for details on how
  to include your school here.

 


Please Note: Neither 360Prescott.com nor 360AZ.com is responsible for inaccurate information about the properties listed on or linked through this website.
The information contained within this website was obtained from sources believed reliable. While we do not doubt its accuracy, we have not verified it & make
no guarantee, warranty or representation about it. It is your responsibility to independently confirm its accuracy and completeness.


Virtual Tours | Website Design | Print Media | Object Tours


Website and virtual tours are provided by 360az.com

Website and virtual tours developed by 360az.com
Copyright © 2000-2008 360az.com & 360prescott.com - All rights reserved.

 

<% Sub FillFormFromPost() Email = Request.Form("Email") City = Request.Form("City") State1 = Request.Form("State1") ZipCode = Request.Form("ZipCode") 'add new variables here End Sub Sub InitValidation() okEmail = true okCity = true okState1 = true okZipCode = true 'add new true variables here End Sub Function ValidateForm() dim ValidForm : ValidForm = true okEmail = ValidEmailField(Email) ValidForm = okEmail and ValidForm okCity = ValidRequiredField(City) ValidForm = okCity and ValidForm okState1 = ValidRequiredField(State1) ValidForm = okState1 and ValidForm okZipCode = ValidRequiredField(ZipCode) ValidForm = okZipCode and ValidForm 'add more form validation here ValidateForm = ValidForm End Function Sub DoSomething ' do whatever you want here - write file, send email End Sub '''''Validation Functions - don't change these, don't edit below this line Function ValidRequiredField(byval field) ValidRequiredField = false if Len(field) > 0 then ValidRequiredField = true end if End Function Function ValidEmailField(byval field) Dim myReg Set myReg = New RegExp myReg.IgnoreCase = True myReg.Pattern = "^[\w-\.]+@[\w-\.]+\.\w+$" ValidEmailField = myReg.Test(field) End Function Function FormSubmitted() FormSubmitted = false if Request.Form.Count > 0 then FormSubmitted = true end if End Function %>