---

Jeg er ved at lave en navigationsmenu. Jeg vil gerne have at det fungerer
sådan at jeg bruger request.querystring altså noget i retning af:

If Request.QueryString("PageID") = "1" Then

ElseIf Request.QueryString("PageID") = "2" Then osv...

Mit spørgsmål er derfor hvordan jeg får indflettet det i nedenstående kode
sådan så det rigtige vises? ---eller om jeg er helt galt på den og der er en
bedre/nemmere måde at gøre det på???

Al hjælp værdsættes!

På forhånd tak - /Mikkel


<%
Dim adoCon
Dim rsData
Dim strSQL

Set adoCon = Server.CreateObject("ADODB.Connection")

adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("data.mdb")

Set rsData = Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT tblPages.Headline, tblPages.Subheadline, tblPages.Bread,
tblPages.PageCat FROM tblPages WHERE PageCat = 1"

rsData.Open strSQL, adoCon

Do While not rsData.EOF

Response.Write ("<br>")
Response.Write (rsData("Headline"))
Response.Write ("<br>")
Response.Write (rsData("Subheadline"))
Response.Write ("<br>")
Response.Write (rsData("Bread"))
Response.Write ("<br>")
rsData.MoveNext

Loop

rsData.Close
Set rsData = Nothing
Set adoCon = Nothing
%>

---

"Mikkel Gundersen" <mgun@hotmail.dk> wrote in message
news:3f2e32a8$0$24724$edfadb0f@dread14.news.tele.dk...
| Jeg er ved at lave en navigationsmenu. Jeg vil gerne have at det fungerer
| sådan at jeg bruger request.querystring altså noget i retning af:
|
| If Request.QueryString("PageID") = "1" Then
|
| ElseIf Request.QueryString("PageID") = "2" Then osv...
|
| Mit spørgsmål er derfor hvordan jeg får indflettet det i nedenstående kode
| sådan så det rigtige vises? ---eller om jeg er helt galt på den og der er
en
| bedre/nemmere måde at gøre det på???
|
| Al hjælp værdsættes!
|
| På forhånd tak - /Mikkel
|
|
| <%
| Dim adoCon
| Dim rsData
| Dim strSQL
|
| Set adoCon = Server.CreateObject("ADODB.Connection")
|
| adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
| Server.MapPath("data.mdb")
|
| Set rsData = Server.CreateObject("ADODB.Recordset")
|
| strSQL = "SELECT tblPages.Headline, tblPages.Subheadline, tblPages.Bread,
| tblPages.PageCat FROM tblPages WHERE PageCat = 1"
|
| rsData.Open strSQL, adoCon
|
| Do While not rsData.EOF
|
| Response.Write ("<br>")
| Response.Write (rsData("Headline"))
| Response.Write ("<br>")
| Response.Write (rsData("Subheadline"))
| Response.Write ("<br>")
| Response.Write (rsData("Bread"))
| Response.Write ("<br>")
| rsData.MoveNext
|
| Loop
|
| rsData.Close
| Set rsData = Nothing
| Set adoCon = Nothing
| %>


Er det noe slikt du mener?


'------------------ Plasseres før loop
Dim sRQ
sRQ = Request.QueryString("PageID")


'------------------ Settes inn i loop
Select Case sRQ
Case "1"
Response.Write (rsData("Headline"))
Case "2"
Response.Write (rsData("Subheadline"))
Case "3"
Response.Write (rsData("Bread"))
Case Else
End Select


terje