<%@ Language=VBScript %> <% Const VALIDATE_EMAIL = "^[w.-]{1,}@([da-zA-Z-]{1,}.){1,}[da-zA-Z-]+$" Const VALIDATE_INTEGER = "^[0-9]+$" Const VALIDATE_STRING = "^([a-z\x80-\xFF]+(. )?[ ]?)+$" Const VALIDATE_ALPHA = "^[a-zA-Zs]+$" Const VALIDATE_ADDRESS ="([\<\>\;\:\'\""])+" Const VALIDATE_REGNNO = "^(([a-zA-Z0-9\s][a-zA-Z0-9\s':.,\/-]*[a-zA-Z0-9':.,/\\s])|([a-zA-Z0-9\s]))$" Const VALIDATE_PHONE = "^(([0-9\s][0-9\s':.,\/-]*[0-9':.,/\\s])|([0-9\s]))$" name=session("name") email=session("email") address=session("address") city=session("city") phone=session("phone") country = session("country") description = session("description") state = session("state") fax = session("fax") %> <% if request.form("Submit")<>"" then c=request.Form.count For Each Item In Request.Form pos=0 pos1=0 fieldName = Item fieldValue = Request.Form(Item) pos=instr(1,fieldValue, "

Please take a few minutes to fill in the questionnaire below.
* Mandatory fields ]

<%=session("Message")%><%session("Message")=""%>

Name*

Address*

City*

State*

Country*

Phone*

Fax

E-mail*

Description

<% function MakeStringSafe(s) dim tmpStr tmpStr = replace(s,chr(13),"
") 'to replace newline with
tmpStr = replace(tmpStr,chr(10),"") 'to remove linefeed tmpStr = replace(tmpStr,chr(39),"''") 'to replace single quotes with two single quotes tmpStr = replace(tmpStr,chr(38),"&")'to replace & with its html encode & Dim re Set re = new RegExp With re .Global = True .IgnoreCase = True .Pattern = "[^a-zA-Z0-9.,-s ?]" End With tmpStr=re.Replace(tmpStr,"") MakeStringSafe = tmpStr end function %> <% function IsValidEmail(email) isitvalid = true dim names, name, i, c names = Split(email, "@") if UBound(names) <> 1 then isitvalid = false exit function end if for each name in names if Len(name) <= 0 then isitvalid = false exit function end if for i = 1 to Len(name) c = Lcase(Mid(name, i, 1)) if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then isitvalid = false exit function end if next if Left(name, 1) = "." or Right(name, 1) = "." then isitvalid = false exit function end if next if InStr(names(1), ".") <= 0 then isitvalid = false exit function end if i = Len(names(1)) - InStrRev(names(1), ".") if i <> 2 and i <> 3 then isitvalid = false exit function end if if InStr(email, "..") > 0 then isitvalid=false end if IsValidEmail=isitvalid end function function IsValidEmail1(txtUName) isitvalid = true dim names, name, i, c names = Split(txtUName, "@") if UBound(names) <> 1 then isitvalid = false exit function end if for each name in names if Len(name) <= 0 then isitvalid = false exit function end if for i = 1 to Len(name) c = Lcase(Mid(name, i, 1)) if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then isitvalid = false exit function end if next if Left(name, 1) = "." or Right(name, 1) = "." then isitvalid = false exit function end if next if InStr(names(1), ".") <= 0 then isitvalid = false exit function end if i = Len(names(1)) - InStrRev(names(1), ".") if i <> 2 and i <> 3 then isitvalid = false exit function end if if InStr(txtUName, "..") > 0 then isitvalid=false end if IsValidEmail1=isitvalid end function Function validateInput(str, vType) dim re set re = New RegExp with re .global = true .ignorecase = true .pattern = vType end with validateInput = re.test(str) End Function %>