---
title: "valt alt. beroende på querystring"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/84199-valt-alt-beroende-på-querystring"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Dee"
published: "2003-08-13T20:25:45.000Z"
updated: "2003-08-13T20:43:46.000Z"
replies: 3
views: 195
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/84199-valt-alt-beroende-på-querystring"
---

# valt alt. beroende på querystring

## #1 — Dee, 2003-08-13T20:25Z

Jag försöker få till det så att selectboxen visar samma sida som man befinner sig på.
Altså, om querystringen är *page=2* så ska *selected=""selected""* läggas till i option-taggen för alternativ 2.
Hur jag än snurrar på det så kan jag inte få det att fungera. :( 

```
<%Option Explicit%>
<html>
<head>
<title>Mummel och en massa svordommar</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
	<script language=JavaScript type="text/javascript">
	<!-- 
	function en(form,callingField)
	{
	top.location.href=form.till.options[form.till.selectedIndex].value
	} 
	// -->
	</script> 
</head>
<body>

<%
'// kör funktionen
testing(6)

Function testing(intEndNum)
	'variabler
	Dim intLinkNum, i
	Dim intX: intX = Request.Querystring("page")

	'fixa så variabeln alltid innehåller ett värde
	If intX = "" Then
		Response.Redirect("try.asp?page=1")
	End If
	
	'skriv ut alla länkarna
	For intLinkNum=1 To intEndNum
		Response.Write("<a href=""try.asp?page="& intLinkNum &""">L&auml;nk "& intLinkNum &"</a><br>") & vbNewLine
	Next

	'skriv ut länklistan
	Response.Write("<form action=""*""><select name=""till"" size=""1"" onChange=""en(this.form, this.name);"">") & vbNewLine & vbNewLine
		For i=1 To intEndNum
			If i = intX Then
				Response.Write("<option selected=""selected"" value="""& i &".asp"">"& i &"</option>") & vbNewLine
			Else
				Response.Write("<option value="""& i &".asp"">"& i &"</option>") & vbNewLine
			End If
		Next
	Response.Write("</select></form>")
End Function
%>

</body>
</html>
```

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

## #2 — LarsG, 2003-08-13T20:27Z

```
If i = clng(intX) Then
```

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

## #3 — solbulle, 2003-08-13T20:29Z

If i = Cint(intX) Then

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

## #4 — Dee, 2003-08-13T20:43Z

**Tack** LarsG och Solbulle!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/84199-valt-alt-beroende-på-querystring