2 gange database læs i samme asp
Jeg vil gerne læse base 2 gange i dette script. Kan det lade sig gøre? Nedenstående giver en fejl.ADODB.Recordset error '800a0e79'
Operation is not allowed when the object is open.
/blogview_indlag.asp, line 84
som er denne linie : rs.Open strSQL1, StrDSN, 1
<body>
<%
blogid = request.querystring("id")
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM blog where id=" & blogid
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("familiencaroe.mdb")
rs.Open strSQL, StrDSN, 1
If Not (rs.BOF Or rs.EOF) Then
%>
<br>
<table style="width: 100%" cellspacing="0">
<tr>
<td align="left" class="style7" colspan="2"><strong> <% Response.write rs("overskrift") %></strong>
</td>
</tr>
<tr>
<td align="left" class="style2"><img src="grafik/bruger.gif" class="style5">Skrevet af: <% response.write Rs("Brugernavn")%> </td>
<td align="right" class="style2">den.<% Response.write rs("dato") %> kl.<% Response.write rs("tid") %> </td>
</tr>
</table>
<table style="width: 100%">
<tr>
<td align="left" class="style2"><% Response.write rs("tekst")%></td>
</tr>
</table>
<br>
<Table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#E6E6E6" align="center">
<tr>
<td width="50%"><img src="grafik/1x1pix_trans.gif" alt="" width="10" height="10" border="0"></td>
<td rowspan="3" align="center" width="18"><img src="grafik/stjerne.gif" alt="" width="16" height="15" border="0"></td>
<td width="50%"><img src="grafik/1x1pix_trans.gif" alt="" width="10" height="10" border="0"></td>
</tr>
<tr>
<td bgcolor="white" width="50%"><img src="grafik/1x1pix_trans.gif" alt="" width="1" height="1" border="0"></td>
<td bgcolor="white" width="50%"><img src="grafik/1x1pix_trans.gif" alt="" width="1" height="1" border="0"></td>
</tr>
<tr>
<td width="50%"><img src="grafik/1x1pix_trans.gif" alt="" width="10" height="10" border="0"></td>
<td width="50%"><img src="grafik/1x1pix_trans.gif" alt="" width="10" height="10" border="0"></td>
</tr>
</table>
<%
End If
strSQL1 = "SELECT * FROM kommentar where blogid=" & blogid
rs.Open strSQL1, StrDSN, 1
rs.Close
Set rs = Nothing
%>
<br>
</body></html>
