<%Option Explicit%> <% dim loginFailed, blnValidField, userID, password loginFailed = false blnValidField = true if request("sf") = "1" then userID=request.form("userID") password=request.form("password") if userID ="" or password ="" then response.Redirect("../client/errorPage.asp?err=1") end if if userID <>"test" and password <>"test" then loginFailed = true end if if validField(userID) = false or validField(password) = false then blnValidField = false end if end if %> Kudosity Web Solutions

Kudosity Web Solutions

skip navigation

Client Extranet

This is a secure area for clients to view their project details, unauthorised access is prohibited.

<%if loginFailed or blnValidField = false then%>

INVALID LOGIN - Please correct and retry or contact your Kudosity account manager if you continue to have difficulties

<%end if%>
 
Contact Kudosity by phone on 07766 537797
<% function validField(strField) validField = true dim StringToSearch, RegularExpressionObject,expressionmatch StringToSearch = strField Set RegularExpressionObject = New RegExp With RegularExpressionObject .Pattern = "[a-c]" .IgnoreCase = False .Global = True End With Set expressionmatch = RegularExpressionObject.Execute(StringToSearch) If expressionmatch.Count > 0 Then validField = false end if Set RegularExpressionObject = nothing end function %>