Error Type:
Microsoft JET Database Engine (0x80040E10)
No value given for one or more required parameters.
/medi/includes/configdb.asp, line 37

My Code: 1. admin.asp

<%
UserID = Request.Form("UserID")
Password = Request.Form("Password")

OpenConnection
    OpenRecorDSet("SELECT * FROM EmpUser where UserName = "& UserID &";")


if UserID = rs("UserName") and Password = rs1("Password") then
    Session("UserLevel") = "Admin"
    else
    server.Transfer("default.asp")
end if

    CloseRecordSet
    CloseConnection
%>

2. Configdb.asp

<% myStart = timer %>
<%
Dim DSN_NAME,DSN_USER,DSN_PASS,Conn,rs, DSN_NAME_USERS, DSN_NAME_CHEF, rs1, rs2, rsb

DSN_NAME = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source="&Server.MapPath("data\db1.mdb")&";Jet OLEDB:System database='';Jet OLEDB:Database Password=''"

Sub OpenConnection
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.ConnectionTimeout = 15
    Conn.CommandTimeout = 30
    Conn.Open DSN_NAME, DSN_USER, DSN_PASS
End Sub

Sub OpenRecordset(sqry)
    Set rs = Server.CreateObject("ADODB.Recordset")
'sql rs.Open sqry, Conn, adOpenForwardOnly, adLockReadOnly
    rs.CursorLocation = 3 'adUseClient
    rs.CursorType = 3 'adOpenStatic
    rs.ActiveConnection = Conn
    rs.Open sqry, Conn
End Sub
%>



rizoriz