øv adgang til database

<%
response.buffer = true
set connect = server.createobject(\"ADODB.Connection\")
Connect.open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.mappath(\"dindatabase.mdb\")
Set rs = Connect.Execute(\"SELECT DISTINCT varegruppe, varegruppenr from varer\")
%>

jeg får nu denne fejl
--------
Der opstod en Microsoft VBScript-kørselsfejl fejl \'800a01a8\'

Et objekt er obligatorisk: \'\'

/dt/forhandler/produktdatabase/top.asp, linje 75

Hej

Det kan godt være, at du lige skal fortælle, hvordan koden ser ud - ellers er det lidt svært at hjælpe

lars-k

her er hele koden

----
<%@ LANGUAGE=\"VBSCRIPT\" %>
<%Response.Expires=0%>
<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML//EN\">
<html>

<head>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 4.0\">
<title>Data Team ApS</title>
</head>
<script language=\"javascript\">
<!--

function setCookie(name, value, expire) {
document.cookie = name + \"=\" + escape(value)
+ ((expire == null) ? \"\" : (\"; expires=\" + expire.toGMTString()))
}

function getCookie(Name) {
var search = Name + \"=\"
if (document.cookie.length > 0) { // if there are any cookies
offset = document.cookie.indexOf(search)
if (offset != -1) { // if cookie exists
offset += search.length
// set index of beginning of value
end = document.cookie.indexOf(\";\", offset)
// set index of end of cookie value
if (end == -1)
end = document.cookie.length
return unescape(document.cookie.substring(offset, end))
}
}
}


function register(name) {
var today = new Date()
var expires = new Date()
expires.setTime(today.getTime() + 1000*60*60*24*365)
setCookie(\"kristian\", name, expires)
}


function basket(){
var today = new Date()
var yourname = getCookie(\"kristian\")
if (yourname != null) {
//kundenummer ok
}
else {
alert(\'top\')
//kundenummer oprettet
}
//parent.side.location=\"basket.asp?yourname=\"+yourname;
parent.side.location=\"basket.asp\";

}

function Produkter(formular)
{
if (formular==\"los\") location=\"top.asp?vis=los\";
if (formular==\"system\") location=\"top.asp\"
}
//-->
</script>

<body bgcolor=\"#FFFFFF\">
<%

Public dbTeam
Public rsTeam
Dim strSQL

Set dbTeam = Server.CreateObject(\"ADODB.Connection\")
dbTeam.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DSN=kristian;DriverId=281;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;\"

strSQL = \"SELECT DISTINCT varegruppe, varegruppenr from varer \"

If (Request.QueryString(\"vis\") = \"los\") Then
strSQL = strSQL & \" WHERE system = 0\"
Else
strSQL = strSQL & \" WHERE system > 0\"
End If


Set rsTeam = Server.CreateObject(\"ADODB.Recordset\")
rsTeam.Open strSQL, dbTeam, 3

%>
<!-- Build the results table -->
<%
If rsTeam.BOF and rsTeam.EOF Then%>


<h2 align=\"center\"><font face=\"Verdana\" size=\"4\">fejl! - prøv igen.</font></h2>
<%Else
    \' Populate the cursor
    rsTeam.MoveLast
    rsTeam.MoveFirst
End If

If rsTeam.RecordCount > 200 Then%>

<h2 align=\"center\"><font face=\"Verdana\" size=\"4\">fejl! - for mange grupper.</font></h2>
<%Else%>
<%End If%>

<%
\' Close database
rsTeam.Close
dbTeam.Close
Set rsTeam = Nothing
Set dbTeam = Nothing
%>

<Table>
  <tr>
  <td>       
    <a href=\"top.asp?hvad=software\"><img src=\"../../images/software.gif\" border=\"0\" WIDTH=\"87\" HEIGHT=\"21\"></a>
  </td>
  <td>
    <a href=\"top.asp?hvad=pcer\"><img src=\"../../images/pcer.gif\" vspace=\"2\" border=\"0\" WIDTH=\"87\" HEIGHT=\"21\"></a>
  </td>
  </tr>
  <tr>
  <td>
    <a href=\"top.asp?hvad=notebook\"><img src=\"../../images/notebook.gif\" border=\"0\" WIDTH=\"87\" HEIGHT=\"21\"></a>
  </td>
  <td>
    <a href=\"top.asp?hvad=hardware\"><img src=\"../../images/hardware.gif\" vspace=\"2\" border=\"0\" WIDTH=\"87\" HEIGHT=\"21\"></a>
  </td>
  </tr>
</table> 
<%
Set dbTeam = Server.CreateObject(\"ADODB.Connection\")
dbTeam.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DSN=kristian;DriverId=281;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;\"

strSQL = \"SELECT DISTINCT varegruppe, varegruppenr from varer\"

If Request.Querystring(\"hvad\") = \"software\" then strSQL = strSQL & \" WHERE (varegruppe LIKE \'%Software%\') AND system = 0\" End If
If Request.Querystring(\"hvad\") = \"pcer\" then strSQL = strSQL & \" WHERE (varegruppe LIKE \'%PC%\') AND system <> 0\" End If
If Request.Querystring(\"hvad\") = \"notebook\" then strSQL = strSQL & \" WHERE (varegruppe LIKE \'%Mitac Model%\') AND system <> 0\" End If
If Request.Querystring(\"hvad\") = \"hardware\" then strSQL = strSQL & \" WHERE Not (varegruppe LIKE \'%Software%\') AND system = 0\" End If
Set rsTeam = Server.CreateObject(\"ADODB.Recordset\")
rsTeam.Open strSQL, dbTeam, 3
Do While Not rsTeam.EOF
Response.write \"<font face=\'Verdana\' size=\'1\'><a href=\'locate.asp?varegr=\" & rsTeam(\"varegruppenr\") & \"\' target=\'side\'>\" & rsTeam(\"varegruppe\") & \"</a><br>\"
rsTeam.movenext
loop
%><br><br>
</body>
</html>

----
db filen hedder kristian.mdb

ingen hjælp - prøver igen