---
title: "Fundersam."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/81122-fundersam"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Fredde Mannen"
published: "2003-07-02T12:08:25.000Z"
updated: "2003-07-02T15:44:26.000Z"
replies: 7
views: 242
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/81122-fundersam"
---

# Fundersam.

## #1 — Fredde Mannen, 2003-07-02T12:08Z

Satt och funderade, jag vill visa en speciell bild bakom det valda meny valet! 

Menyn loopas ut från en tabell på detta sätt.

```
                        <%
	Set rs = Server.CreateObject("ADODB.RecordSet")
	SQL = "SELECT * from m_kategorier WHERE m_sprak='" & Request.Cookies("m_sprak") & "'"	
	rs.Open SQL, AdoConn
	
	Do until rs.eof
	Response.Write "<span class='rubrik'>" & rs("m_kategori") & "</span><br />"

	Set rs2 = Server.CreateObject("ADODB.RecordSet")
	SQL = "SELECT * from m_sidor WHERE m_kategori=" & rs("m_id") & ""
	rs2.open SQL, AdoConn
	
	Do until rs2.eof
    Response.Write "<img src='/images/new/KNAPP.GIF'> <a href='" & Request.ServerVariables("SCRIPT_NAME") & "?id=" & rs2("m_id") & "'>" & rs2("m_linkname") & "</a><br />"
	rs2.MoveNext
	Loop
	Response.Write("<br />")
	
	rs.MoveNext
	Loop
	rs.close
	rs2.close
	%>
```

 Jag vill att när man klickar på någon av dessa länkar så ska det i menyn visas en bild bakom menyalternativet. 

jag tänkte så här:

```
if(Request.QueryString("id") = rs2("m_id")) then
selected = "images.gif"

Else

selected = "none.gif"
End if
```

Detta funkar dock inte, det som händer är att alla meny alternativ får none som bakgrunds bild, hur skall jag göra för att den valda Request.QueryString("id") skall få images.gif som bakgrundsbild?

 :stud

Permalänk: https://www.webforum.nu/p/81122

## #2 — Sebbe, 2003-07-02T13:45Z

Kanske såhär?

```
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
SQL = "SELECT * from m_kategorier WHERE m_sprak='" & Request.Cookies("m_sprak") & "'"	
rs.Open SQL, AdoConn
	
Do until rs.eof
  Response.Write "<span class='rubrik'>" & rs("m_kategori") & "</span><br />"
  Set rs2 = Server.CreateObject("ADODB.RecordSet")
  SQL = "SELECT * from m_sidor WHERE m_kategori=" & rs("m_id")
  rs2.open SQL, AdoConn

  Do until rs2.eof
    If CInt(rs2("m_id")) = CInt(Request.QueryString("id")) Then
      strBild = "images.gif"
    Else
      strBild = "none.gif"
    End If

    Response.Write "<span style=""background: url(" & strBild & ")""><img src='/images/new/KNAPP.GIF'> <a href='" & Request.ServerVariables("SCRIPT_NAME") & "?id=" & rs2("m_id") & "'>" & rs2("m_linkname") & "</a></span><br />"
    rs2.MoveNext
  Loop
  Response.Write("<br />")
	
  rs.MoveNext
Loop
rs.close
rs2.close
%>
```

Permalänk: https://www.webforum.nu/p/1099853

## #3 — Fredde Mannen, 2003-07-02T14:14Z

Funkade inge bättre... 

Samma visa... none.gof visas på alla alternativ, och image.gif visas inte på någon..

Permalänk: https://www.webforum.nu/p/1099877

## #4 — Sebbe, 2003-07-02T14:47Z

Vad händer om du ändrar 

```
If CInt(rs2("m_id")) = CInt(Request.QueryString("id")) Then
```

till

```
If CInt(rs2("m_kategori")) = CInt(Request.QueryString("id")) Then
```

Permalänk: https://www.webforum.nu/p/1099889

## #5 — Fredde Mannen, 2003-07-02T14:53Z

funkar inte eftersom id är m_id.

Permalänk: https://www.webforum.nu/p/1099892

## #6 — Sebbe, 2003-07-02T15:26Z

Okidoki.

Om du byter båda CInt() till CStr()?

Permalänk: https://www.webforum.nu/p/1099905

## #7 — Fredde Mannen, 2003-07-02T15:32Z

Ahhh det fixades.... hade kvar CInt() men ändrade i från Request.QueryString till bara m_id, som jag hade definerad högre upp på sidan.... 

ovanför koden jag hade bifogat!! :)

Permalänk: https://www.webforum.nu/p/1099912

## #8 — Sebbe, 2003-07-02T15:44Z

Vad bra att det löste sig då! :D

Permalänk: https://www.webforum.nu/p/1099922

---

Tråden på webben: https://www.webforum.nu/amne/asp/81122-fundersam