riduzione delle sessioni in pagina asp

[d_felloni]

Sto cercando di capire se posso ridurre le sessioni che servono per inserire dati prelevati da db in una pagina asp.
mi spiego...
La pagina in questione è collegata ad una tabella e contiene sei record. Ogni record ha dei contenuti inseriti in campi.
Ho creato sei tabelle e in ogni tabella devo inserire il valore contenuto del tipo:
recod1=valore_campo
record2=valore_campo
ecc...

ecco attualmente come sta funzionando la cosa.
<%
set rsArea1= Server.CreateObject("ADODB.Recordset")
rs1.ActiveConnection = MM_conn_STRING
rs1.Source = "SELECT * FROM tabella WHERE ID=1"
rs1.CursorType = 0
rs1.CursorLocation = 2
rs1.LockType = 3
rs1.Open()
rs1_numRows = 0
%>

poi ne realizzo altri 5 cambiando l'ID e mettendoci il valore 2-3-4-5-6 del tipo:
<%
set rsArea1= Server.CreateObject("ADODB.Recordset")
rs2.ActiveConnection = MM_conn_STRING
rs2.Source = "SELECT * FROM tabella WHERE ID=2"
rs2.CursorType = 0
rs2.CursorLocation = 2
rs2.LockType = 3
rs2.Open()
rs2_numRows = 0
%>


Nelle sei tabelle della pagina poi inserisco lo script:


<%=(rs1.Fields.Item("valore_campo").Value)%>
poi chiudo la sessione
<%
rs1.Close()
%>

Domanda:
è possibile con una sola sessione richiamare i valori di diversi record in tabelle diverse posizionate nella pagina?

[optime]

certo, basta intercalare le tabelle con le letture...

leggo rs con id=1
scrivo tabella1
leggo stesso rs con id=2
scrivo tabella2
ecc

in alternativa (molto più comodo) puoi farti una sub del tipo

ScriviTabella(myID, altro...)
leggo rs con ID=myID
scrivo tabella
End Sub

che richiamerai con

for myID=1 to 6
ScriviTabella (myID, altro...)
next

[d_felloni]

grazie,
il secondo è interessante ma spero di interpretarlo bene

<%
set myID=Request("myID")
set rsa = Server.CreateObject("ADODB.Recordset")
rsa.ActiveConnection = MM_conn_STRING
rsa.Source = "SELECT * FROM index WHERE ID= "&myID&" ORDER BY ID ASC"
rsa.CursorType = 0
rsa.CursorLocation = 2
rsa.LockType = 3
rsa.Open()
rsa_numRows = 0%
end sub
%>


<%
for myID=1 to 6
response.Write ("<table><tr><td>Valore: <%=rsa("myID")%></td></tr></table>")
next
%>

[d_felloni]

sbagliato tutto, ci lavoro e poi posto tutto quando funge

[d_felloni]

ecco il codice funzionante nella prima ipotesi:

<tr>
<td colspan="3" valign="top">
<% Set conn1=Server.CreateObject("ADODB.Connection")
conn1.Open MM_conn_STRING
Set rs1 = Server.CreateObject("ADODB.Recordset")
%>

<% rs1.Open "SELECT * FROM tabella WHERE ID=1", conn1 %><%=rs1("titolo")%>


<% Set conn2=Server.CreateObject("ADODB.Connection")
conn2.Open MM_conn_STRING
Set rs2 = Server.CreateObject("ADODB.Recordset")
%>
<% rs2.Open "SELECT * FROM tabella WHERE ID=2", conn2 %><%=rs2("titolo")%></td>
</tr>

.... e via dicendo

adesso qualcuno vuole risolvere con me la seconda modalità?

[optime]

perché apri mille rs* ? ti ho detto di aprirne uno solo!

[d_felloni]

se faccio così non funziona....

<tr>
<td colspan="3" valign="top">
<% Set conn1=Server.CreateObject("ADODB.Connection")
conn1.Open MM_connIndex_STRING
Set rsAree1 = Server.CreateObject("ADODB.Recordset")
%>

<% rsAree1.Open "SELECT * FROM aree WHERE ID=1", conn1 %><%=rsAree1("titolo")%>


<% rsAree1.Open "SELECT * FROM aree WHERE ID=2", conn1 %><%=rsAree1("titolo")%></td>
</tr>

[optime]

se non funziona ci sarà qualcosa di sbagliato

[d_felloni]

certo ma se non ripeto l'rs funziona

[optime]

si, ma mmmmmmmmmmmmmmmmmmmmmmmmmm che vuol dire 'non funziona'?