<% Dim errMsg errMsg = "" txtUser = Request.Form("txtUser") txtPass = Request.Form("txtPass") if Len(Session("MemberID")) = 0 And txtUser <> "" and txtPass <> "" then Dim rsSecurity On Error Resume Next set CN =server.CreateObject("ADODB.connection") set rsSecurity =server.CreateObject("ADOdb.Recordset") cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application("conISBD_DataString") 'cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\inetpub\isbd\data\ISBDData.mdb" if err.number = 0 then rsSecurity.Open "Select * FROM Data_Structure WHERE Password='" & txtPass & "' AND MemberID=" & txtUser , cn, adOpenDynamic err.clear rsSecurity.MoveFirst if err.number = 0 then Session("MemberName")=rsSecurity("FirstnameMI") & " " & rsSecurity("Lastname") Session("MemberID")=rsSecurity("MemberID") Session("MemberTypeJournalAccess")=rsSecurity("MemberType") 'COOKIE 'if ckRemember.getChecked() = true then Response.Cookies("conISBD_Login")("ISBDUserName") =txtUser Response.Cookies("conISBD_Login")("ISBDPassword")=txtPass Response.Cookies("conISBD_Login").expires="January 1, 2020" Response.Cookies("conISBD_Login")("ISBDChecked")="True" 'else ' Response.Cookies("conISBD_Login")("ISBDUserName")="" ' Response.Cookies("conISBD_Login")("ISBDPassword")="" ' Response.Cookies("conISBD_Login").expires="January 1, 2020" ' Response.Cookies("conISBD_Login")("ISBDChecked")="False" 'end if 'check for expiration if rsSecurity("ExpirationDate") < Date() then errMsg = "Sorry your membership has expired. Please contact ISBD." Session("MemberID")="" rsSecurity.Close set rsSecurity =nothing set CN =nothing else rsSecurity.Close set rsSecurity =nothing set CN =nothing ' got something in the varible. a page was visited If Session("PageLast")<>"" then Response.Redirect Session("PageLast") else 'nothing detected send me home Response.Redirect "http://www.isbd.org/EdCenter/index.asp" end if end if else 'EOF=TRUE Session("MemberID")="" errMsg = "Sorry your login credentials have been denied. Please contact ISBD." end if rsSecurity.Close set rsSecurity =nothing set CN =nothing else 'lblStatus.setCaption("ADODB Error: " & Err.Description) errMsg = "ADODB Error: " & Err.Description end if end If %>

<% if Len(Session("MemberID")) = 0 then %> <% End If %> <% if Len(Session("MemberID")) > 0 then %> <% End IF %>

Username ">

Password ">

Remember credentials

Request Password

My Account

Logout

<% If errMsg<>"" Then %>

<% Response.Write(errMsg) %>

<% End If %>

Page Title Goes Here

---

Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Pellentesque pharetra, urna in laoreet tincidunt, nunc quam eleifend libero, a tincidunt purus augue eu felis. Phasellus quis ante. Sed mi. Quisque nisi velit, sagittis id, facilisis eu, pulvinar quis, tortor. Donec leo mauris, convallis eget, sodales eget, dictum ac, ligula.

Lorem ipsum dolor sit

Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Pellentesque pharetra, urna in laoreet tincidunt, nunc quam eleifend libero, a tincidunt purus augue eu felis. Phasellus quis ante. Sed mi. Quisque nisi velit, sagittis id, facilisis eu, pulvinar quis, tortor.

Lorem ipsum dolor sit

Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Pellentesque pharetra, urna in laoreet tincidunt, nunc quam eleifend libero, a tincidunt purus augue eu felis. Phasellus quis ante. Sed mi. Quisque nisi velit, sagittis id, facilisis eu, pulvinar quis, tortor.

Lorem ipsum dolor sit

Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Pellentesque pharetra, urna in laoreet tincidunt, nunc quam eleifend libero, a tincidunt purus augue eu felis. Phasellus quis ante. Sed mi. Quisque nisi velit, sagittis id, facilisis eu, pulvinar quis, tortor.

Back to top