" & rs("datum"))
end if
response.write(rs("text") & "
")
temp = rs("datum")
rs.movenext
loop[/red]
```
Permalänk: https://www.webforum.nu/p/1592628
## #9 — Fraggel, 2005-04-17T18:21Z
Detta borde vara enkelt att lösa med lite rekursivt tänkande...
har en snutt kod någonstans skall leta lite efter den...
Permalänk: https://www.webforum.nu/p/1596240
## #10 — Fraggel, 2005-04-17T18:24Z
Hmm detta löser inte problemet direkt med det är ett steg i rätt riktning...
OBS detta är en test jag gjorde för ett tag sedan så den ser lite rörigt ut men det går att bena ut ;) .
Found it
```
<%
Dim d1,d2,d3,d4,d5,dtemp
Set d1 = Server.CreateObject("scripting.dictionary")
Set d2 = Server.CreateObject("scripting.dictionary")
Set d3 = Server.CreateObject("scripting.dictionary")
Set d4 = Server.CreateObject("scripting.dictionary")
Set d5 = Server.CreateObject("scripting.dictionary")
Set d1("meny1") = d2
Set d1("meny2") = d3
Set d3("meny8") = Server.CreateObject("scripting.dictionary")
Set d3("meny8")("meny9") = Server.CreateObject("scripting.dictionary")
Set d2("meny3") = d4
Set d2("meny4") = d5
Set d1("meny1")("meny4")("meny5") = Server.CreateObject("scripting.dictionary")
Set d1("meny1")("meny4")("meny5")("meny6") = Server.CreateObject("scripting.dictionary")
set dtemp = d1("meny1")
set dtemp = dtemp("meny4")
set dtemp("meny7") = Server.CreateObject("scripting.dictionary")
%>
<%
Sub rec(ByRef o,i)
Dim key,t
For each key in o.keys
For t = 0 To i
Response.Write " "
Next
Response.Write "["& key &"]" & key & vbcrlf
rec o(key),i+1
Response.Write "[\"&key&"]" & vbcrlf
Next
End Sub
rec d1,0
%>
```
Permalänk: https://www.webforum.nu/p/1596243
## #11 — emission, 2005-04-17T21:58Z
Guffas exempel är alldeles utmärkt. Kör på det.
Permalänk: https://www.webforum.nu/p/1596338
## #12 — MrMojo, 2005-07-13T21:07Z
Ok, inget klart!
Har fastnat igen. Detta har jag legat lågt med, men nu måste jag få till det.
Jag bifogar min .asp fil. Finns det någon vänlig själ som kan fixa till koden i den som jag vill ha det?
Bilagor:
- [turneguide.zip](https://www.webforum.nu/a/6986.zip)
Permalänk: https://www.webforum.nu/p/1645721
## #13 — @nders, 2005-07-14T06:12Z
Bifoga koden i inlägget istället, och rensa bort det som är irrelevant.
Gör det inte onödigt svårt för folk att hjälpa till!
Permalänk: https://www.webforum.nu/p/1645783
## #14 — MrMojo, 2005-07-14T06:25Z
Ok, ursäkta min klantighet. :r
Först ut är min databaskoppling:
```
<%
Dim rs_turne
Dim rs_turne_numRows
Set rs_turne = Server.CreateObject("ADODB.Recordset")
rs_turne.ActiveConnection = MM_smm_STRING
rs_turne.Source = "SELECT * FROM turneguide WHERE turne_datum > date()-1 ORDER BY turne_datum ASC"
rs_turne.CursorType = 0
rs_turne.CursorLocation = 2
rs_turne.LockType = 1
rs_turne.Open()
%>
```
Sen där jag hämtar datum och evenemang:
```
<%=(rs_turne.Fields.Item("turne_datum").Value)%>