LexTown Publications

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%response.buffer = true%> [an error occurred while processing this directive] <% Response.Buffer = True on error resume next %> <% 'build an ADO connection string 'on error resume next Set cnMembers = Server.CreateObject ("ADODB.Connection") cnStringMembers= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/database/KNJDB.mdb") & ";Jet OLEDB:Database Password=knj15usa21;" & "User ID=;" cnMembers.mode = 3 'adModeReadWrite cnMembers.open cnStringMembers 'cnMembers.open "DSN=SIIJS" if err.number <> 0 then err.clear scr = Request.ServerVariables("SCRIPT_NAME") loc = instrRev(scr,"/") scr = mid(scr, loc+1, len(scr) - loc) 'response.redirect(request.servervariables("URL")) response.redirect(scr) & "?username=" & var_username & "&password=" & var_password & "&login=" & var_login end if Set rsMembers = Server.CreateObject("ADODB.Recordset") sql = "SELECT TBLSECURITY.* " & _ "FROM TBLSECURITY " & _ "WHERE TBLSECURITY.LOGINTYPE = 'USER' " & _ "ORDER BY LNAME,FNAME;" rsMembers.Open sql , cnMembers , adOpenDynamic , adLockOptimistic 'login web visitor if err.number <> 0 then err.clear scr = Request.ServerVariables("SCRIPT_NAME") loc = instrRev(scr,"/") scr = mid(scr, loc+1, len(scr) - loc) 'response.redirect(request.servervariables("URL")) response.redirect(scr) & "?username=" & var_username & "&password=" & var_password & "&login=" & var_login end if %> LexTown Publications

Forgot Your Password? Return to Member Login Page