Sitter och funderar ut hur jag ska gå till väga.
jag har en tabell i den är det lagrat lite olika saker.
Jag vill loopa ut dessa i två omgångar. För varje loop skriva ut särskild information.
När man väl har loopat en gång, så är man ju i slutet på recordsetet, och så vill jag gärna flytta upp han igen för att börja på en ny loop. Kod exempel på hur jag vill att det ska se ut!
Jag vill helst slippa att skapa två SQL Select satser. Man borde väl på något sätt kunna köra en "RS.moveTop" eller något liknande!
'## Loop 1
Do until RS.eof
'massa asp kod
RS.movenext
loop
'## Loop 2
Do until RS.eof
'massa asp kod
RS.movenext
loop
<%
Function GetRows(ByVal SQL)
Dim arrRecords, rs
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open ("DRIVER={MySQL ODBC 3.51 Driver};DATABASE=******;UID=******;PWD=******;SERVER=min.server.com;")
Set rs = Connection.Execute(SQL)
If Not rs.BOF Or Not rs.EOF Then
arrRecords = rs.GetRows()
ELSE
arrRecords = ""
End If
rs.Close : Set rs = nothing
Connection.Close : Set Connection = nothing
GetRows = arrRecords
End Function
X=0
myArr = GetRows("SELECT ett,tva,tre FROM tabell")
'Min första loop
For X = 0 To Ubound(myArr,2)
Response.write "Loop ett: "& myArr(0,X) & " | " & myArr(1,X) & " | " & myArr(2,X) & "<br>"
Next
X=0
'Min andra loop
For X = 0 To Ubound(myArr,2)
Response.write "Loop två: "& myArr(0,X) & " | " & myArr(1,X) & " | " & myArr(2,X) & "<br>"
Next
%>
Hooookay! Det är va way more advanced än jag trodde!
Ska fnula lite med det hela och kolla vad jag kommer fram till :)
en kort fråga innan jag sätter mig in och gör bort mig själv, denna kod
'Min första loop
For X = 0 To Ubound(myArr,2)
Response.write "Loop ett: "& myArr(0,X) & " | " & myArr(1,X) & " | " & myArr(2,X) & "<br>"
Next
X=0
Istället för response.write, skall jag ha lite HTML tabeller, osv, kan jag använda RS("kolumnnamn") på vanligt vis?
Eller är det mer avancerat än så? :)
