webForumDet fria alternativet

Fundersam.

ASP

7 svar · 237 visningar · startad av Fredde Mannen

Medlem sedan nov. 20014 054 inlägg
Frågan#1

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

Medlem sedan jan. 20032 285 inlägg
#2

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
%>
Medlem sedan nov. 20014 054 inlägg
#3

Funkade inge bättre...

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

Medlem sedan jan. 20032 285 inlägg
#4

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
Medlem sedan nov. 20014 054 inlägg
#5

funkar inte eftersom id är m_id.

Medlem sedan jan. 20032 285 inlägg
#6

Okidoki.

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

Medlem sedan nov. 20014 054 inlägg
#7

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!! :)

Medlem sedan jan. 20032 285 inlägg
#8

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

311 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
122 ms — deklarationer (db)
0 ms — hämta statistik (cache)
183 ms — hämta tråd, inlägg och bilagor (db)
125 ms — ändringar (db)