Om jag har en databas (Access) med sju olika fält och jag vill skriva ut samma fält två gånger i samma loop, funkar det eller?

Skriver jag såhär så funkar det perfekt:
<%
Do While Not objRS.EOF
Response.Write objRS("webversion")
Response.Write objRS("header")
Response.Write objRS("meny")
Response.Write objRS("modul1")
Response.Write objRS("modul2")
Response.Write objRS("modul3")
Response.Write objRS("footer")
objRS.MoveNext
Loop
%>

Men skriver jag loopen som nedan så hoppar den över rad 7 & 8 i loopen dvs

"
Response.Write objRS("modul3")
Response.Write objRS("modul2")
"

Men skriver objRS footer.

<%
Do While Not objRS.EOF
Response.Write objRS("webversion")
Response.Write objRS("header")
Response.Write objRS("meny")
Response.Write objRS("modul1")
Response.Write objRS("modul2")
Response.Write objRS("modul3")
Response.Write objRS("modul3")
Response.Write objRS("modul2")
Response.Write objRS("footer")
objRS.MoveNext
Loop
%>

Mmm, det stämmer...

För att du skall kunna återanvända datat så får du skriva

objRS.open "select * from tabell", myConnection, 3, 3

så byt ut set objRS= myConnection.execute(sql) ... mot ovanstående så fungerar det. rs.open måste även användas för att få ut ex rs.recordcount, annars returneras alltid bara -1.

Tekniken kallas disconnected recordset.

Hmm....

Tack, men jag gör nog fel någonstans, jag bifogar koden med ändringen vill du bara kika på den om du är snäll. TACK!


<%
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath (".") & "../databas/databas.mdb"

Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "select * from tblMall", objConn, 3, 3

Do While Not objRS.EOF
Response.Write objRS("webversion")
Response.Write objRS("header")
Response.Write objRS("meny")
Response.Write objRS("modul1")
Response.Write objRS("modul2")
Response.Write objRS("modul3")
Response.Write objRS("footer")
objRS.MoveNext
Loop

objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>

Memo/PM-fält i Access kan bara läsas en gång, testa såhär istället:

Do While Not objRS.EOF
modul2 = objRS("modul2")
modul3 = objRS("modul3")

Response.Write objRS("webversion")
Response.Write objRS("header")
Response.Write objRS("meny")
Response.Write objRS("modul1")
Response.Write modul2
Response.Write modul3
Response.Write modul3
Response.Write modul2
Response.Write objRS("footer")
objRS.MoveNext
Loop

/Johan

Tack grabbar. :)