Problemer med Connection-objektet

Hvordan ser scriptet ud og hvilken fejl får du?

Fejlen er: uspecified error i linien: objConn.Open

Scriptet er her:

<!--#include File="adovbs.inc"-->
<% Session.LCID = 1031 %>
<% Response.Buffer = True %>
<% Response.Clear %>
<html>

<head>
<!-- Minus AutoDato -->
<link rel="stylesheet" type="text/css" href="Styles/styles.css" />
<title>Kontrol af indtastet password</title>
<META NAME="Generator" CONTENT="Stone's WebWriter 3.5">
</head>

<body>

<% Dim Brugernavn, Password, objConn
Brugernavn = request.form("Brugernavn")
Password = request.form("Password")

If Brugernavn = "" OR Password = "" then
  Response.Redirect("default.asp")
End If

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "DSN=Adgangscheck.dsn"
objConn.Open

Dim objRS
set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "LoginLog", objConn, , adLockOptimistic, adCmdTable
   
    objRS.AddNew
    objRS("Brugernavn") = Brugernavn
    objRS("Password") = Password
    objRS("LoginDato") = now()
    objRS.update
   
    objRS.close
    Set objRS = Nothing

    Dim bolFundet
  bolFundet = False   
    set objRS = Server.CreateObject("ADODB.Recordset")
    objRS.open "Brugere", objConn,adLockOptimistic, adCmdTable
    Do While Not (objRS.EOF OR bolFundet)
      If (StrComp(objRS("Brugernavn"), Brugernavn, vbTextCompare) =0) Then
          bolFundet = True
      else
          objRS.MoveNext
      End If
  Loop
   
    if objRS.EOF Then
            Session("godkendt")="ikkegodkendt"
            objRS.close
            Set objRS = Nothing
      Response.Write "Brugernavn eller password ikke gyldigt!"
       
    else
            If (StrComp(objRS("Password"), Request.Form("Password"), vbTextCompare) =0) Then
        Session("brugernavn") = objRS.Fields("brugernavn")
              objRS.close
                Set objRS = Nothing
              Session("godkendt")="godkendt"
        Session("Brugernavn")= Brugernavn
                Response.Clear
              Response.Redirect("Hovedmenu.asp")
              Response.End
      else
        Session("godkendt")="ikkegodkendt"
              objRS.close
        Response.Write "Brugernavn eller password ikke gyldigt!"
      End If
  End If
    objConn.Close
    Set objConn = Nothing


%>
<p>Dato: <% =Date %> </p>

<p>Dit forsøg vil blive registreret i databasen! </p>

<p>&nbsp;</p>

<p>&nbsp;</p>

<p>&nbsp;</p>

<p>&nbsp;</p>

<p>&nbsp;</p>

<p align="center"><a href="Default.asp"><img src="Figurer/Tilbage.jpg" border="0" width="107" height="25"
alt="Tilbage.jpg (2150 bytes)"></a></p>
</body>
</html>

Det lyder lidt som om, at du aldrig får lukket for dit connection-object. Prøv at kontroller om dit script rent faktisk når hen til objconn.close linien og får den kørt...

Jeg har selv oplevet noget lignende før, pga. nogle små fejl i et loop...

Har muligvis spottet en fejl...

I den sidste if-then-else-blok, har du en nested if-sætning der mangler en end if... Måske er det den der gør, at du aldrig får lukket connection-objectet?

---
    else
            If (StrComp(objRS("Password"), Request.Form("Password"), vbTextCompare) =0) Then
        Session("brugernavn") = objRS.Fields("brugernavn")
              objRS.close
                Set objRS = Nothing
              Session("godkendt")="godkendt"
        Session("Brugernavn")= Brugernavn
                Response.Clear
              Response.Redirect("Hovedmenu.asp")
              Response.End
      else
-----

Smæk en "end if" ind før din "else" (den sidste af dem)

Så virker det... Helt fint!!! Tak

Øhh, gav du dig selv point for for spotgun's svar eller hvad?

Ren forglemmelse fra min side, at jeg ikke fik lagt et svar... Men ellers blændende metode til gratis hjælp dér, jhoumann!