Hente info fra QueryString

Så kan du prøvet dette:


str = Request.QueryString
index = inStr(1,str,"vis=")
if index > 0 then str = mid(str,index+4)
arr = split(str,"&")
nyStr = ""
if isArray(arr) then  nyStr = arr(0) & "?"
for i = lbound(arr)+1 to ubound(arr)
  nyStr = nyStr & arr(i) & "&"
next
if Right(nyStr,1) = "&" then nyStr = Left(nyStr,Len(nyStr)-1)


Response.Write Server.HTMLEncode(nyStr)

Eller denne her.

<%
StrSide = Request.QueryString("Vis")

For Each Item In Request.QueryString
If Not Item = "Vis" Then
    strQuerystr = strQuerystr & "&" & Item & "="
    strQuerystr = strQuerystr & Request.QueryString(Item)
End If
Next

strQuerystr = Replace(Right(strQuerystr,1),"")

Response.redirect StrSide &"?"& strQuerystr
%>

master.... Din giver følgende fejl:

Microsoft VBScript runtime error '800a01c2'

Wrong number of arguments or invalid property assignment: 'Replace'

/default.asp, line 29

Virke den jeg har vist ikke?

Du kan bare lave response.write om til redirect
Response.redirect nyStr

eagle.... Din ender med en querystring:

http://www.minside.dk/vis=side1.asp&funktion=test&valg=ok

Heller ikke rigtigt

Den giver da dette i variablen nyStr:  "side1.asp?funktion=test&valg=ok"
Præsis som du beskrev:  minVariabel = "side1.asp?funktion=test&valg=ok"

Sorry min fejl, det er da også helt forkert den måde som jeg laver det på, prøv den her :

<%
StrSide = Request.QueryString("Vis")

For Each Item In Request.QueryString
If Not Item = "Vis" Then
    strQuerystr = strQuerystr & "&" & Item & "="
    strQuerystr = strQuerystr & Request.QueryString(Item)
End If
Next

strQuerystr = Left(strQuerystr,Len(strQuerystr)-1)

Response.redirect StrSide &"?"& strQuerystr
%>

eagle.... ikke her.....

Master.... Din virker hvis jeg ændrer Left til Right:

    StrSide = Request.QueryString("vis")
    For Each Item In Request.QueryString
    If Not Item = "vis" Then
        strQuerystr = strQuerystr & "&" & Item & "="
        strQuerystr = strQuerystr & Request.QueryString(Item)
    End If
    Next
    strQuerystr = Right(strQuerystr,Len(strQuerystr)-1)
    side = StrSide & "?" & strQuerystr