plock ur värden från querystring

Detta står i adressfälltet:
foto.asp?album=Dagbok&sub=2004-03-10&bild=IMGP4715.jpg&m=2004-02-10

Jag lägger det i en variabel och nu till problemet, om jag vill ändra eller tabort t,ex "sub=2004-03-10" men få resten kvar i min variabel hur gör jag då? har testat:

tmpvar = "=" & request.querystring(""& query &"")
strQuery = left((Request.Querystring),instr(Request.Querystring,Query))
strQuery = strQuery & mid((Request.Querystring),left(instr(Request.Querystring,Query),1) + len(tmpvar),len(request.querystring))

men det fungerar icke.

query har värdet "sub" och det jag vill är att tabort både sub och dess värde ifrån min variabel, går detta?

Jag hade nog gjort typ så här:

strQuerystring = ""
For each query in Request.Querystring
      if not query = "sub" then strQuerystring = strQuerystring & query & "=" & server.urlencode(request.querystring(query)) & "&"
Next
strQuerystring = left(strQuerystring, len(strQuerystring)-1)

(otestat, givetvis)

mvh

Kan ju fungera, just nu är jag för trött för att ens orka, försökte lösa det med split men det vill sig inte iaf.
Ska testa detta när jag återstår från de sömniga :)

Natti på er alla morgonpigga :)

Tack @nders, det löste ett av problemen, nu till nästa.
Jag kan ju inte loopa den afunktion om jag vill ta ut fler värden, funderade på att göra en 2d array av request.querystring men är lite osäker på hur jag skulle lösa detta, några tips?

Problemet nu är att den skriver ut dubletter iallafall och sen katsar scriptet om värdena lite som det vill :(

dim arrMin(1,10)
	function getQuery(varQ,var)
	
	queryCount = 0
	for each query in request.QueryString
	arrMin(0,queryCount) = query
	arrMin(1,queryCount) = request.QueryString(query)
	queryCount = queryCount + 1
	next
	
	if instr(varQ,",") then
	arrQuery = split(varQ,",")
	arrVar = split(var,",")
	
	strQuerystring = ""
	
	if request.querystring <> "" then
	for i = 0 to ubound(arrQuery)
	For irow = 0 to queryCount - 1
      if not arrMin(0,irow) = arrQuery(i) then  strQuerystring = strQuerystring & arrMin(0,irow) & "=" & server.urlencode(arrMin(1,irow)) & "&"
	Next
	next
	end if
	
	for i = 0 to ubound(arrQuery)
	strQuerystring = strQuerystring & arrQuery(i) & "=" & arrVar(i) & "&"
	next
	strQuerystring = left(strQuerystring, len(strQuerystring)-1)
	else 
	
	if request.querystring <> "" then
	For irow = 0 to queryCount - 1
      if not varQ = arrMin(0,irow) then  strQuerystring = strQuerystring & arrMin(0,irow) & "=" & server.urlencode(arrMin(1,irow)) & "&"
	Next
	end if
	strQuerystring = strQuerystring & varQ & "=" & Var

	end if
	strURL = request.ServerVariables("SCRIPT_NAME") & "?" & strQuerystring 
	getQuery = strURL
	end function

getQuery("namn,mail,klass","henke,a@a.com,ingen")

Värden som ligger i querystringen nu ska bytas mot dom nya och dom som inte finns ska läggas till.

Jag förstår inte riktigt varför du lägger in din Querysträng i en array. QueryString är redan en array och loopen som anders visat loopar igenom alla variabler. I den loopen kan du då göra dina kontroller och bestämma vad som ska visas och inte visas.

Jo men jag fick inte till det när jag kontrolerade mot flera värden

Får man fråga vad syftet med scriptet är? Vad gör du på sidan innan, vad ska scriptet göra, och vad händer på sidan efter?
Kanske lättare att hitta en lösning då. För mig alltså. :)

tror att jag löst det redan men scriptet är till ett foto album, ist för att skriva alla nödvändiga querys gång på gång ville jag göra nått som jag bara kan skriva:

<a href="<%=getquery("album","hemma")%>">Hemma</a>

så behåller sidan automatiskt övriga querys.

Jo, men det är fäl ungefär det koden i mitt inlägg gör?
Med ytterst lite modifiering kan du få det exakt så.

Ok, är inte riktigt säker på att jag förstår hur du tänker. Låter som att du krånglar till det redan från början när applikationen designades. Men det är kanske för att jag alltid överdesignar allting, särskilt databasen. ;)

Bygger applikationen på en databas eller ett filträd?

på ett filträd, jag gick tillbaka till scriptet @nders ordna och moddade lite så nu funkar det fin fint