Hmm... Fejlmelding...

Dette er Linie 17

Conn.Open \"DBQ=\" & ODBCpath & DBName & \";DefaultDir=\" & ODBCpath & \";Driver={Microsoft Access Driver (*.mdb)}\"

Hvad er de to variablers værdi: ODBCpath og DBName?

Her er hele scriptet...

<%
   
    dim conn
   
    function OpenConn( DBName )

        Set Conn = Server.CreateObject(\"ADODB.Connection\")
        ODBCpath = left(request.servervariables(\"PATH_TRANSLATED\"), instrrev(request.servervariables(\"PATH_TRANSLATED\"), \"\\\"))
        Conn.Open \"DBQ=\" & ODBCpath & DBName & \";DefaultDir=\" & ODBCpath & \";Driver={Microsoft Access Driver (*.mdb)}\"

    end function

    OpenConn(\"guestbook.mdb\")
   
    if request (\"mode\") = \"opret\" then
        SQL = \"insert into guestbook (guest_name, comments, from_where, email) values (\'\" & request(\"guest_name\") & \"\', \'\" & request(\"comments\") & \"\', \" & request(\"from_where\") & \", \'\" & request(\"email\") & \"\'  )\"
        Conn.execute( SQL )
        Besked = \"<br><h3>Dine kommentare er modtaget!</h3>\"
        Besked2 = \"Eller klik <a href=\'viewviewguest.asp\'>her</a> for at se indlægene !<br><br>\"
       
    end if

%>

Her er en forenkling af din funktion:

Dim conn, DBName

Function OpenConn( DBName )
  Set Conn = Server.CreateObject(\"ADODB.Connection\")
  DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath & \"\" & DBName & \"\"
  Conn.Open DSN
End Function

OpenConn(\"guestbook.mdb\")

Didn´t help me mutch...  Hmm... Men tak for hjælpen... :-)

1. Får du samme fejl?
2. Har du oprettet spm\'et på Sharksforum?