Hej

Håller på att trixa med en meny
det jag skulle vilja göra är att ändra färgen på länken på sidan som man befinner sig på

har hittat i allafall sid namnet.
<code>varSida = Request.ServerVariables("SCRIPT_NAME")</code>

testade med select case... men det blev knas

kan nån snälla hjälpa mig på traven!

Mvh

Hector

Hej Hector,

Ska detta vara dynamiskt eller statiskt?

Kan visa lite hur det skulle kunna se ut med ett dynamiskt system med databas.

' Deklarera variablar tillhörande databas rutinerna mfl...

Dim SitePage = Request.ServerVariables("SCRIPT_NAME")

If Not RecordSet.EOF Then
     Do Until RecordSet.EOF
          If RecordSet("SiteUrl") Then
               Response.Write("" & RecordSet("SiteText") & "
          Else
               Response.Write("" & RecordSet("SiteText") & "
          End If
     Else
          ' Finns inga poster i tabellen/databasen...
     End If
RecordSet.MoveNext
Loop

' Stänger objekten tillhörande databas och recordset rutirnerna.

dynamisk? menas det då med databaser eller?

det är 4 länkar som finns... rakt av!

ska testa din kod

mvh hector

-EDIT-
Men länkarna finns inte i en databas!

finns det inte nått annat sätt?

mvh Hecto

Ja, det går utan databas också, men enligt mig lite svårare. Med ASP.net skulle det vara enkelt då det har "Visible"-egenskapen. Tyvärr saknas ASP det, det är väldigt synd. Därför så ska man använda ASP.net :)

/m

aja... .net är nästa steg... måste först klara mig med ASP
kan du eller... någon annan?

:)
<b>- EDIT -</b>

något såhär hade jag tänkt mig
http://www.pellesoft.se/communicate/forum/view.aspx?msgid=139956&forumid=1&sum=0
[Aktuell länk markerad..]
fast inte från databas..

needing help // Hector

Hector,

Då är det nog lättast att ha allt i en Array, om du inte vill ha det i en databas.

/m

Satt och lekte lite efter mina läxor,

Resultatet blev det här, kanske inte så bra kod. Men Det funkar. Förhoppningsvis kan någon göra det mycket bättre.

Men här kommer iallafall koden.

	Dim MenuUrl(20), MenuTxt(20), i
	MenuUrl(0) = "/sidan.asp"
	MenuTxt(0) = "En sida"
	
	MenuUrl(1) = "/default.asp"
	MenuTxt(1) = "Startsida"
	
	MenuUrl(2) = "/Test.asp"
	MenuTxt(2) = "Test"
			
	Dim TempUrl
	TempUrl = Request.ServerVariables("SCRIPT_NAME")

	For i = 0 to UBound(menuUrl)
		If Not MenuUrl(i) = "" Then
			If LCase(MenuUrl(i)) = LCase(TempUrl) Then
				Response.Write("" & MenuTxt(i) & "<br/>" & VbCrlf)
			Else
				Response.Write("" & MenuTxt(i) & "<br/>" & VbCrlf)
			End If
		End If
	Next

tack för du har tagit dig din tid...

ska med desamma testa detta!

meddelar senare om det funkar

Mvh Hector

<b>- EDIT -</b>
Tjena!

Ville bara säga att det funkar! ;) har ändrar lite på koden bara:
<code>
<%
Dim MenuUrl(20), MenuTxt(20), i

MenuUrl(0) = "/index.asp"
MenuTxt(0) = "Hem"

MenuUrl(1) = "/omoss.asp"
MenuTxt(1) = "Om företaget"

MenuUrl(2) = "/tjanster.asp"
MenuTxt(2) = "Tjänster"

MenuUrl(3) = "/galleri.asp"
MenuTxt(3) = "Bildgalleri"

MenuUrl(4) = "/mall.asp"
MenuTxt(4) = "Kontakt"


Dim TempUrl
TempUrl = Request.ServerVariables("SCRIPT_NAME")

For i = 0 to UBound(menuUrl)

if Not MenuUrl(i) = "" Then
If LCase(MenuUrl(i)) = LCase(TempUrl) Then
Response.Write("<td width=100 align=center><font color=#cc0000><b>" & MenuTxt(i) & "</b></font><br/></td>" & VbCrlf)

Else
Response.Write("<td width=100 align=center>" & MenuTxt(i) & "<br/></td>" & VbCrlf)

End If
End If

Next

%>
</code>

Kan du bara förklara varför man sätter <code>Dim MenuUrl(20), MenuTxt(20), i</code>

och en sista grej går det möjligtvis göra så att mina länkar ser ut så här

Hem | Om oss | Tjänster | Bildgalleri | <b>Kontakta oss</b>

just den där "Fnutten" mellan länkar, som jag helst skulle vilja ha... har försökt, men jag har bara lyckats att förstöra strukturen... har du nån ide??

Än en gång tack så mycket för din hjälp
Hector

Finns det fler varianter förresten som nån kanske kan?

Mvh Hector

Skulle inte detta fungera?
<code>
Response.Write("" &   & MenuTxt(i) & "<br/>" & VbCrlf)
</code>
...bara en chansning

Hej igen,

Du skulle kunna göra ungefär så här om du vill att det ska skrivas vågrätt.

Response.Write("" & MenuTxt(i) & " |" & VbCrlf)

Visst det har jag testat!... men problemet då är att eftersom länkarnar loopas ut så kommer allstå sista "fnutten" | efter <b>Kontakt</b>|

och där är då strukturen förstörs går det inte på nåt vis att fixa det där

Testa:
<code>
For i = 0 To UBound(MenuUrl) -1
Response.Write "" & MenuTxt(i) & " |" & VbCrlf
Next
Response.Write "" & MenuTxt(UBound(MenuTxt)) & "
</code>


Thomas

Hector,

Har du löst det? Ifall du gjort det, sätt gärna tråden löst då.

/m

nä... det är just det inte är.... grejen är den att mitt internet har pajat... så jag har inte kunnat testa det!

återkommer så fort jag löst det!

mvh hector

så....

då har jag testat
funkade inte det där med fnuttarna, så jag löste det på annat vis
jag la fnuttarna som bakgrund till menyn

Mvh Hector