InStr?

http://www.w3schools.com/vbscript/func_instr.asp
Denna kod borde fungera

dim villha as string
dim lank as string
lank="artiklar.asp?view=47&delete=24"
villha=mid(lank,1,instr(lank,"&delete=24")

Kör efter "&delete=24", när det hittas så retuneras indexet där det finns i strängen.

/Viktor

Ska bygga lite med den koden! Tack!

Gjorde så här där man ska skickas tillbaka till den sida man var på. Kanske helt onödigt mycket kod men det funkar iallafall. Har nån tips på bättre kod som är jag tacksam.

If Request.QueryString("delete") <> "" Then
    Conn.Execute("Delete From temp Where idNr=" & Request.QueryString("delete") & " And sid=" & Session.SessionID)

    Page   = Request.ServerVariables("SCRIPT_NAME")
    Page2  = Request.ServerVariables("QUERY_STRING")
    Delete = Request.QueryString("delete")
    Url   = Mid(Page, InStrRev(Page, "/") + 1) & "?" & Page2
    If Left(Page2,6) = "delete" Then
      Url   = Mid(Url,1,InStr(Url,"?delete=" & Delete)-1)
    Else
      Url   = Replace(Mid(Url,1,InStr(Url,"&delete=" & Delete)-1),"&delete=" & Delete," ")
    End If

    Response.Redirect Url
End If

response.redirect(Request.ServerVariables("HTTP_REFERER")) ?

Det var ju ett smidigt sätt :) Den hade jag helt glömt bort! Funkar den alltid?

Asa skrev:

Det var ju ett smidigt sätt :) FUnkar det alltid?

Inte på söndagar.. §e :e :e
tihi, skämt åsido...

Yupp, HTTP_REFERER är alltid sidan man kommer ifrån. Denna är blank om man skriver adressen direkt i adressfältet.

Här är annars en intressant kodsnutt du kan testa. Finns mycket smått och gött här.

Dim x
For each x in request.servervariables
response.write(x & " = " & request.servervariables(x) & "<br>")
next

Ska testa!

Asa skrev:

Det var ju ett smidigt sätt :) Den hade jag helt glömt bort! Funkar den alltid?

request.servervariables("http_referer") fungerar bara när du surfar runt på din server. Om kommer från en annan tar inte med "?blopp=blablabla&topp=sniffsniff"

SKa använda det i en shop så det är ju ett smidigt sätt. Hoppas jag iallafall!