<%
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
'**********************
' function cleantext
' 10-28-05 ntz
' purpose - remove any special characters so SQL will not die
' returns cleaned text
function cleantext(text)
text = replace(text,"'","")
text = replace(text,":","")
text = replace(text," " & Chr(13),Chr(13))
text = replace(text,Chr(13) & Chr(13)," ")
text = replace(text," " & Chr(10),Chr(10))
text = replace(text,Chr(10) & Chr(10)," ")
text = replace(text,";","")
' text = replace(text,",","")
text = replace(text,"&","and")
cleantext = text
end function
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")
' 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
%>
<%
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 & "&Comments=" & cleantext(Request.Form("Comments"))
url = url & "&Fax=" & Request.Form("Fax")
response.Cookies("comment") = cleantext(Request.Form("Comments"))
'logit()
response.write "url = " & url
response.Redirect (url)
end if
%>
