<% Dim Vfname Dim Vlname Dim Vcname Dim Vphone Dim Vaddress Dim Vcity Dim Vstate Dim Vzip Dim Vmachine Dim Vbusiness Dim Vemail Dim Vfax Dim Vcomments Dim blnIsValid, strValidationMessage Dim blnIsPostBack Sub Page_Load () 'Execute code that should run when the page first 'loads here. Also a great place to check the 'IsValid/IsPostBack properties we'll be examining shortly 'Check to see if the user has arrived at this page by 'submitting back from the form. If isEmpty(Request("Submit")) Then blnIsPostBack = False Else blnIsPostBack = True End If end sub call Page_Load () '******************************************************************* Private function RequiredFieldValidator (val, name) ' This function validates that the passed-in field has a value. RequiredFieldValidator = "" if isNull(val) or Len(Trim(val)) = 0 then ' If no value was entered for this field pass back an error message. RequiredFieldValidator = "You must fill out " & _ name & ".
" & vbCrLf end if end function Private function ValidateFormValues() ' This function validates the user entry if the page is being posted back ' and returns True if the data validates and False if there are errors. ' Grab the values for the fields that we wish to validate. First_Name = Request.form("FName") Last_Name = Request.form("LName") Phone = Request.form("Phone") Address = Request.form("Address") City = Request.form("City") State = Request.form("State") Zip = Request.form("Zip") Email = Request.form("Email") ' Compile a validation message. strValidationMessage = strValidationMessage & RequiredFieldValidator(First_Name, "First Name") strValidationMessage = strValidationMessage & RequiredFieldValidator(Last_Name, "Last Name") strValidationMessage = strValidationMessage & RequiredFieldValidator(Phone, "Phone") strValidationMessage = strValidationMessage & RequiredFieldValidator(Address, "Address") strValidationMessage = strValidationMessage & RequiredFieldValidator(City, "City") strValidationMessage = strValidationMessage & RequiredFieldValidator(State, "State") strValidationMessage = strValidationMessage & RequiredFieldValidator(Zip, "Zip") strValidationMessage = strValidationMessage & RequiredFieldValidator(Email, "Email") ' Check to see if errors occurred. if len( strValidationMessage ) < 1 then ValidateFormValues = True else ValidateFormValues = False end if ' response.write strValidationMessage end function ' Get a value for our Page.IsValid property a central Validator function if (blnIsPostBack) then blnIsValid = ValidateFormValues() end if if blnIsValid and request("Submit") = "" then 'response.write "in isvalide
" Vfname = Request.Form("FName") Vlname = Request.Form("LName") Vphone = Request.Form("Phone") Vaddress = Request.Form("Address") Vcity = Request.Form("City") Vstate = Request.Form("State") Vzip = Request.Form("Zip") Vemail = Request.Form("Email") Vfax = Request.Form("Fax") Vcomments = Request.Form("Comments") end if sub logit() dim fs, f set fs=Server.CreateObject("Scripting.FileSystemObject") 'set f=fs.OpenTextFile("c:\temp\grouser.txt",8, True,0) response.write "name log = " & Request.Form("hName") ' f.Write(Request.Form("FName")) ' f.Write(":;:" & Request.Form("LName")) ' f.Write(":;:" & Request.Form("CName")) ' f.Write(":;:" & Request.Form("Phone")) ' f.Write(":;:" & Request.Form("Address")) ' f.Write(":;:" & Request.Form("City")) ' f.Write(":;:" & Request.Form("State")) ' f.Write(":;:" & Request.Form("Zip")) ' f.Write(":;:" & Request.Form("Email")) ' f.Write(":;:" & Request.Form("Fax")) ' f.Write(":;:" & Request.Form("Comments")) ' f.Close set f=nothing set fs=nothing end sub 'Create the psuedo event. %> <% if blnIsValid then 'response.write "name caluc= " & Request.Form("FName") url="" url = url & "contactapps.pl?FName=" & Request.Form("FName") url = url & "&LName=" & Request.Form("LName") url = url & "&Phone=" & Request.Form("Phone") url = url & "&Address=" & Request.Form("Address") url = url & "&City=" & Request.Form("City") url = url & "&State=" & Request.Form("State") url = url & "&Zip=" & Request.Form("Zip") url = url & "&Email=" & Request.Form("Email") url = url & "&Fax=" & Request.Form("Fax") url = url & "&Comments=" & Request.Form("Comments") 'logit() 'response.write "url =
" & url response.Redirect (url) end if %>
     
 








4275 MAIN AVENUE • FARGO, ND 58103 • 701.282.4321

 



<% if len( strValidationMessage ) > 0 then response.write strValidationMessage end if %>

* Required Fields
First Name  
> *
Last Name  
" size="16"> *
Address  
" size="40"> *
City  
" size="16"> *
State   
" size="5"> *
Zip  
"> *
Phone  
" size="35"> *
Email  
" size="28"> *
Fax  
">
   
   
Comments  


(Maximum characters: 800)
You have   characters left.

 

 
 © Copyright 2006-2008, Union Storage, All Rights Reserved.