Jag har satt databaskopplingen i en include fil som heter databas.asp
Kod för databas.asp:
<%Set cn = Server.Createobject("ADODB.Connection")
cn.Open = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("db/db.mdb")%>

När jag kör sidan för jag följande fel:
Körningsfel i Microsoft VBScript (0x800A01A8)
Objekt krävs.: ''
/left.asp, line 234

Rad 234 ser ut så här:
<%cn.Close
Set cn = Nothing%>

Jag måste väl kunna stänga databaskopplingen.
Vad är felet?

MVH/Marcus

är det bara att stänga som inte funkar? testat hämta något från databasen innan du stänger?

Det är inte så att du har en if-sats någonstans ovanför kopplingen?
Alltså att du bara öppnar kopplingen i vissa fall? I så fall kan du ju bara stänga den i de fall den öppnats.

Är du med hur jag menar?

/Jocke

Detta är några rader ovanför cn.Close

<tr>
<td width="132">&nbsp;&raquo; Nyheter</td>
</tr>
<tr>
<td width="132">&nbsp;&raquo; Discgolfare
<%If Request.QueryString("action") = "disc" Then%>
<table width="130" border="0" cellspacing="0" cellpadding="0">
<%sql = "SELECT * FROM Spelare ORDER BY enamn ASC"
rs1.Open sql, cn, adOpenStatic, adLockReadOnly
If Not rs1.EOF Then
Do While Not rs1.EOF
str = rs1("fnamn") & " " & rs1("enamn")%>
<tr>
<td width="16"></td>
<td width="130"><b>- </b>" class="A"><%=str%></td>
</tr>
<%rs1.MoveNext
Loop
End If
rs1.Close
Set rs1 = Nothing
%>
</table>
<%End If%></td>
</tr>
<tr>
<td width="132">&nbsp;&raquo; Banan
<%If Request.QueryString("action") = "hal" Then%>
<table width="130" border="0" cellspacing="0" cellpadding="0">
<%For i = 1 To 9%>
<tr>
<td width="16"></td>
<td width="130"><b>- </b>Hål <%=i%></td>
</tr>
<%Next%>
<tr>
<td width="16"></td>
<td width="130"><b>- </b>Översikt banan</td>
</tr>
<tr>
<td width="16"></td>
<td width="130"><b>- </b>Banrekord & BIO</td>
</tr>
</table>
<%End If%></td>
</tr>
<tr>
<td width="132">&nbsp;&raquo; Kvällsdiscen
<%If Request.QueryString("action") = "kvall" Then%>
<table width="130" border="0" cellspacing="0" cellpadding="0">
<%sql = "SELECT ar FROM Kvallsdiscen GROUP BY ar HAVING COUNT(*) >= 1 ORDER BY ar ASC"
rs1.Open sql, cn, adOpenStatic, adLockReadOnly
j = 1
Do While Not rs1.EOF
If j <= 2 Then%>
<tr>
<td width="16"></td>
<td width="130"><b>- </b>" class="A">Resultat <%=rs1("ar")%></td>
</tr>
<tr>
<td width="16"></td>
<td width="130"><b>- </b>Slutställning 200<%=j%></td>
</tr>
<tr>
<td width="16"></td>
<td width="130"><b>- </b>Snittställning 200<%=j%></td>
</tr>
<%Else%>
<tr>
<td width="16"></td>
<td width="130"><b>- </b>" class="A">Resultat <%=rs1("ar")%></td>
</tr>
<tr>
<td width="16"></td>
<td width="130"><b>- </b>Slutställning 200<%=j%></td>
</tr>
<tr>
<td width="16"></td>
<td width="130"><b>- </b>Snittställning 200<%=j%></td>
</tr>
<%End If
rs1.MoveNext
j = j + 1
Loop
rs1.Close
Set rs1 = Nothing%>
</table>
<%End If%></td>
</tr>

HAr du provat att ta bort likamed tecknet?:
<code>
<%
Set cn = Server.Createobject("ADODB.Connection")
cn.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("db/db.mdb")
%>
</code>