Hi, I wrote this script to use as a login/password check.<BR>A form passes the origional values for the session.<BR>This script is located at the start of every page<BR><BR>The script seems to work cool for a while then the server gives HTTP 500 Internal Server Error.<BR><BR>If I remove the script and reload the page then it all works sweet.<BR>Any suggestions?<BR><BR>&#060;!-- #include file="adovbs.inc" --&#062;<BR>&#060;%<BR>Dim ID<BR>Dim PASS<BR>Dim cnn<BR>Dim rsDB<BR>Dim DBpass<BR>Dim openStr<BR>Dim sql<BR><BR>if request.form("login") = "yes" then<BR>ID = lcase(request.form("loginID"))<BR>PASS = lcase(request.form("password"))<BR>session("loginI D") = ID<BR>session("password") = PASS<BR>end if<BR>ID = session("loginID")<BR>PASS = session("password")<BR><BR>If ID = "" or PASS = "" then<BR> Response.Redirect "login.asp"<BR>End If<BR><BR><BR>Set cnn = Server.CreateObject("ADODB.Connection")<BR>openStr = "driver={Microsoft Access Driver (*.mdb)};" & _<BR>"dbq=c:virtual rimaxdbusersdb.mdb"<BR>cnn.Open openStr,"",""<BR>sql = "SELECT password FROM USERS " & _<BR> "WHERE USERID = &#039;" & ID & "&#039;;"<BR>Set rsDB = Server.CreateObject("ADODB.Recordset")<BR>rsDB.Ope n sql, cnn, adOpenDynamic, adLockOptimistic, adCmdText<BR><BR>DBpass = rsDB.fields("password").value<BR>if DBpass = PASS then <BR> rsDB.close<BR> Set rsDB = Nothing<BR> cnn.close<BR> Set cnn = Nothing<BR>Else<BR> rsDB.close<BR> Set rsDB = Nothing<BR> cnn.close<BR> Set cnn = Nothing<BR> Response.Redirect "login.asp"<BR>End If<BR>%&#062;