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ä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>