<% 'THIS WORKS WITH THE LOCALHOST WITH A PASSWORD PROTECTED DATABASE... Dim dbConn Set dbConn = Server.CreateObject("ADODB.Connection") If UCase(Request.ServerVariables("SERVER_NAME")) = "LOCALHOST" then dbConn.ConnectionString = "DBQ=D:\vote\database\dbNVS.mdb;Driver={Microsoft Access Driver (*.mdb)};UID=" & Session.Contents("dbUserName") & ";PASSWORD=" & Session.Contents("dbPwd") + ";" Else sSource = """" & Server.MapPath("../../database/dbNVS.mdb") & """" dbConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sSource & ";" 'Uid=" & Session.Contents("dbUserName") & ";Pwd=" & Session.Contents("dbPwd") + ";" End If 'Response.Write "PWD ConnectionString: " + Cstr(dbConn.ConnectionString) + "

" 'Response.End %>