Tjekke brugernavn og password

Hvilket database har du? Har du allerede en connection-string?

Jeg bruger Access, og jeg har i forvejen denne kode, som skal gemme nogle af felterne:

<%
  Set rs = Server.CreateObject("ADODB.RecordSet")
  Set Conn = Server.CreateObject("ADODB.Connection")
  strDSN = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../admin/db/database.mdb")

  strSQL = "SELECT * FROM forum"

  rs.Open strSQL, strDSN, 2, 2
  rs.AddNew

  rs("forum") = Request.Querystring("forum")
  rs("username") = Request.Form("username")
  rs("email") = Request.Form("email")
  rs("titel") = Request.Form("titel")
  rs("indlaeg") = Request.Form("indlaeg")
  rs("dato") = Now()

  rs.Update

  'lukker pænt igen
  rs.Close
  set rs = Nothing

  response.Write "Indlægget er nu gemt!"
%>

<%'kontroller brugernavn/adgangskode
  set rs = Conn.Execute("SELECT * FROM forum WHERE username = '" & Request.Form("brugernavn") & "' AND password = '" & Request.Form("password") & "'")
  if not rs.eof then
    Response.Write "Du er nu logget ind!"
    Session("bruger") = rs("username")
  else
    Response.Write "Fejl i brugernavn og/eller adgangskode"
  end if
%>

Nu har jeg sat det ind i resten af koden, så det ser således ud:
___________

<%
  Set rs = Server.CreateObject("ADODB.RecordSet")
  Set Conn = Server.CreateObject("ADODB.Connection")
  strDSN = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../admin/db/database.mdb")

  set rs = Conn.Execute("SELECT * FROM brugere WHERE username = '" & Request.Form("username") & "' AND password = '" & Request.Form("password") & "'")

  if not rs.eof then
    Response.Write "Du er nu logget ind!"
    Session("bruger") = rs("username")
  else
    Response.Write "Fejl i brugernavn og/eller adgangskode"
  end if

  strSQL = "SELECT * FROM forum"

  rs.Open strSQL, strDSN, 2, 2
  rs.AddNew

  rs("forum") = Request.Querystring("forum")
  rs("username") = Request.Form("username")
  rs("email") = Request.Form("email")
  rs("titel") = Request.Form("titel")
  rs("indlaeg") = Request.Form("indlaeg")
  rs("dato") = Now()

  rs.Update

  'lukker pænt igen
  rs.Close
  set rs = Nothing

  response.Write "Indlægget er nu gemt!"
%>
___________

Men jeg får denne fejl:
___________

ADODB.Connection error '800a0e78'

Operation is not allowed when the object is closed.

/musicstuff/forum/forum-opretindlaeg_ok.asp, line 29 ( <-- Den sql-sætning, du gav mig!)___________

= ?

Nå, har fundet ud af fejlen... Du får lige pointene...