Hur gör man för att slippa flera recordset?? Så här kanske är en variant du kan prova med: Hej,Flera recordset?
Jag har koden nedan:
/HH
<%@ Language=VBScript %>
<!-- #include file="include.asp" -->
<%
StrId = Request.QueryString("Id")' Id på vad som skall visas...
'StrId = Request.Form("Id")' Id på vad som skall visas...
'Skapa kopplingen till databasen.
Set ObjConn = Server.CreateObject("ADODB.Connection")
SET ObjConn = System_GetDatabaseConn()
Set ObjRs1 = Server.CreateObject("ADODB.Recordset")'recordset för ämne
Set ObjRs2 = Server.CreateObject("ADODB.Recordset")'recordset för artikelinnehåll
strSQL1 = "SELECT * FROM Amnesplan_PK WHERE amne_sca_id = " + StrId + ""
strSQL2 = "SELECT * FROM Publ_PK WHERE amne_sca_id = " + StrId + ""
ObjRs1.Open strSQL1,ObjConn,3,1
ObjRs2.Open strSQL2,ObjConn,3,1
%>
<HTML>
<HEAD>
</HEAD>
<BODY>
Ämne: <%=ObjRS1("amne_sca_text")%><p></p>
Artikelinnehåll:<br>
<table border="1" cellpadding="5" cellspacing="0">
<tr>
<td>Titel</td>
<td>Tid</td>
<td>Art Nr:</td>
<td>Vol Nr:</td>
</tr>
<%
DO UNTIL ObjRS2.EOF
'varannan rad annan färg
i = i+1
If i Mod 2 <> 0 Then
bgcolor = "E8EAF0" 'ljusblå färg
Else
bgcolor = ""
End If
%>
<tr bgcolor="<%=bgcolor%>">
<td><%=ObjRs2("doktitel")%></td>
<td><%=ObjRs2("dokdatum")%></td>
<td><%=ObjRs2("vol_sca_id")%></td>
<td><%=ObjRs2("art_nr1_sca")%></td>
</tr>
<%
ObjRs2.MoveNext()
Loop
%>
</table>
</BODY>
</HTML>Sv: Flera recordset?
strSQL1 = "SELECT * FROM Amnesplan_PK, Publ_PK WHERE Amnesplan_PK.amne_sca_id = Publ_PK.amne_sca_id AND Amnesplan_PK.amne_sca_id = " & StrId & ""
//FredrikSv: Flera recordset?
Det funkar jättebra, men jag får inte till "paging" på detta??
Kan nån skriva en enkel förklaring eller kod?
Kollade på några exempel men jag fick ej till det.
mvh
/HH
<%@ Language=VBScript %>
<!-- #include file="include.asp" -->
<%
StrId = Request.QueryString("Id")' Id på vad som skall visas...
StrFriText = Request.Form("FriText")' Id på vad som skall visas...
'Skapa kopplingen till databasen.
Set ObjConn = Server.CreateObject("ADODB.Connection")
SET ObjConn = System_GetDatabaseConn()
Set objRs = Server.CreateObject("ADODB.Recordset")'recordset för ämne
strSQL = "SELECT * FROM Amnesplan_PK, Publ_PK WHERE Amnesplan_PK.amne_sca_id = Publ_PK.amne_sca_id AND Amnesplan_PK.amne_sca_id = " & StrId & ""
'strSQL2 = "SELECT * FROM Publ_PK WHERE doktitel Like " + "'%" + StrFriText + "%'" + ""
objRs.Open strSQL,ObjConn,3,1
%>
<HTML>
<HEAD>
</HEAD>
<BODY>
Ämne: <%=objRs("amne_sca_text")%><p></p>
Artikelinnehåll:<br>
<table border="1" cellpadding="5" cellspacing="0">
<tr>
<td>Titel</td>
<td>Tid</td>
<td>Art Nr:</td>
<td>Vol Nr:</td>
</tr>
<%
DO UNTIL objRs.EOF
'varannan rad annan färg
i = i+1
If i Mod 2 <> 0 Then
bgcolor = "E8EAF0" 'ljusblå färg
Else
bgcolor = ""
End If
%>
<tr bgcolor="<%=bgcolor%>">
<td><%=objRs("doktitel")%></td>
<td><%=objRs("dokdatum")%></td>
<td><%=objRs("vol_sca_id")%></td>
<td><%=objRs("art_nr1_sca")%></td>
</tr>
<%
objRs.MoveNext()
Loop
%>
</table>
</BODY>
</HTML>