<%@ Language=VBScript %>
<%
Option Explicit
%>
<!--#include file="datastore.asp"-->

<%

Dim sUserID
sUserID = trim(Request.form("txtUserID"))

Dim objConn
Dim objRs

' if empty redirect to login screen
if sUserID = "" then 
	Response.Redirect "default.asp"
end if


Set objConn = server.CreateObject("ADODB.Connection")	'Connection object
Set objRs = server.CreateObject("ADODB.Recordset")	'Recordset object

'open the connection object
	if objConn.State = 0 then	'only open if the connection is closed
		objConn.Open sConnect
	end if

'open the READER table
objRs.Open "READER", objConn, 3, 3

'filter the recordset
objRs.Filter = "readerid = '" & sUserID & "'"

if objRs.EOF = true then 
	Response.redirect "default.asp"
end if

if objRs("count")= 0 then
	objRs("firstlogin")= date()
end if
objRs("lastlogin") = date()
objRs("count") = objRs("count") + 1  ' add 1 to the reader count

objRs.Update
objRs.Close

response.redirect "ScientificSpirituality.pdf"	


%>