%@LANGUAGE="VBSCRIPT"%>
<%
If ((Request.ServerVariables("Request_Method") = "POST") AND (inStr(Unescape(cStr(Request.ServerVariables("HTTP_REFERER"))),Unescape(Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("SCRIPT_NAME"))) > 0)) Then
Dim WA_AuthParameter1 : Set WA_AuthParameter1 = Server.CreateObject("Scripting.Dictionary")
WA_AuthParameter1.Add "connection" , MM_con_bsmart_STRING
WA_AuthParameter1.Add "tableName" , "clients"
WA_AuthParameter1.Add "columns" , Split("usrname"&WA_Auth_Separator&"usrpass", WA_Auth_Separator)
WA_AuthParameter1.Add "columnValues" , Split("" & cStr(cStr(Request.Form("username"))) & ""&WA_Auth_Separator&"" & cStr(cStr(Request.Form("password"))) & "", WA_Auth_Separator)
WA_AuthParameter1.Add "columnTypes" , Split("200"&WA_Auth_Separator&"200", WA_Auth_Separator)
WA_AuthParameter1.Add "columnSizes" , Split("50"&WA_Auth_Separator&"50", WA_Auth_Separator)
WA_AuthParameter1.Add "sessionColumns" , Split("ID", WA_Auth_Separator)
WA_AuthParameter1.Add "sessionNames" , Split("ID", WA_Auth_Separator)
WA_AuthParameter1.Add "successRedirect" , "intranet/formcalc.asp"
WA_AuthParameter1.Add "failRedirect" , "loginfail.asp"
WA_AuthParameter1.Add "gotoPreviousURL" , False
WA_AuthParameter1.Add "keepQueryString" , False
WA_AuthenticateUser WA_AuthParameter1
End If
%>
BabySmart USA
NJ Website Design - Flying Turtle Studio 2007 -