<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% if (cStr(cStr(Request.Form("autologinoption"))) <> "") then myExpire = DateAdd("d", 30, Now()) cookieName = "AutoLoginPWD" Response.Cookies(cookieName) = "" & cStr(cStr(Request.Form("userpassword"))) & "" Response.Cookies(cookieName).Expires = myExpire Response.Cookies(cookieName).Path = "/" if ("" <> "") then Response.Cookies(cookieName).Domain = "" end if Response.Cookies(cookieName).Secure = 0 end if %><% if (cStr(cStr(Request.Form("autologinoption"))) <> "") then myExpire = DateAdd("d", 30, Now()) cookieName = "AutoLoginUN" Response.Cookies(cookieName) = "" & cStr(cStr(Request.Form("username"))) & "" Response.Cookies(cookieName).Expires = myExpire Response.Cookies(cookieName).Path = "/" if ("" <> "") then Response.Cookies(cookieName).Domain = "" end if Response.Cookies(cookieName).Secure = 0 end if %><% if (cStr(cStr(Request.Form("remembermeoption"))) <> "") then myExpire = DateAdd("d", 30, Now()) cookieName = "RememberMePWD" Response.Cookies(cookieName) = "" & cStr(cStr(Request.Form("userpassword"))) & "" Response.Cookies(cookieName).Expires = myExpire Response.Cookies(cookieName).Path = "/" if ("" <> "") then Response.Cookies(cookieName).Domain = "" end if Response.Cookies(cookieName).Secure = 0 end if %><% if (cStr(cStr(Request.Form("remembermeoption"))) <> "") then myExpire = DateAdd("d", 30, Now()) cookieName = "RememberMeUN" Response.Cookies(cookieName) = "" & cStr(cStr(Request.Form("username"))) & "" Response.Cookies(cookieName).Expires = myExpire Response.Cookies(cookieName).Path = "/" if ("" <> "") then Response.Cookies(cookieName).Domain = "" end if Response.Cookies(cookieName).Secure = 0 end if %><% if (cStr(cStr(Request.Form("LogIn.x"))) <> "" AND cStr(cStr(Request.Form("remembermeoption"))) = "") then myExpire = DateAdd("d", 30, Now()) cookieName = "RememberMePWD" Response.Cookies(cookieName) = "" Response.Cookies(cookieName).Expires = myExpire Response.Cookies(cookieName).Path = "/" if ("" <> "") then Response.Cookies(cookieName).Domain = "" end if Response.Cookies(cookieName).Secure = 0 end if %><% if (cStr(cStr(Request.Form("LogIn.x"))) <> "" AND cStr(cStr(Request.Form("remembermeoption"))) = "") then myExpire = DateAdd("d", 30, Now()) cookieName = "RememberMeUN" Response.Cookies(cookieName) = "" Response.Cookies(cookieName).Expires = myExpire Response.Cookies(cookieName).Path = "/" if ("" <> "") then Response.Cookies(cookieName).Domain = "" end if Response.Cookies(cookieName).Secure = 0 end if %> <% If (Request.ServerVariables("Request_Method") = "POST") Then Dim WA_AuthParameter100 : Set WA_AuthParameter100 = Server.CreateObject("Scripting.Dictionary") WA_AuthParameter100.Add "connection" , MM_testme_STRING WA_AuthParameter100.Add "tableName" , "Mail" WA_AuthParameter100.Add "columns" , Split("Email"&WA_Auth_Separator&"PasswordEnc", WA_Auth_Separator) WA_AuthParameter100.Add "columnValues" , Split("" & cStr(cStr(Request.Form("username"))) & ""&WA_Auth_Separator&"" & cStr(cStr(Request.Form("userpassword"))) & "", WA_Auth_Separator) WA_AuthParameter100.Add "columnTypes" , Split("200"&WA_Auth_Separator&"200", WA_Auth_Separator) WA_AuthParameter100.Add "columnSizes" , Split("100"&WA_Auth_Separator&"50", WA_Auth_Separator) WA_AuthParameter100.Add "sessionColumns" , Split("ID", WA_Auth_Separator) WA_AuthParameter100.Add "sessionNames" , Split("ID", WA_Auth_Separator) WA_AuthParameter100.Add "successRedirect" , "freeresources/index.asp" WA_AuthParameter100.Add "failRedirect" , "Mail_EmailPW.asp" WA_AuthParameter100.Add "gotoPreviousURL" , True WA_AuthParameter100.Add "keepQueryString" , True WA_AuthenticateUser WA_AuthParameter100 End If %> Notes101.com - Free Resources
It's here! The home study course you asked for

Please Go to our New Blog by clicking below for the free Resources.

http://www.Howtobuynotes.com