Hämta adress

Var det månne så här det såg ut...

Request.ServerVariables("URL") & Request.ServerVariables("SCRIPT_NAME")

hum funkade nestan..

Jag har koden

<%=Request.ServerVariables("URL") & Request.ServerVariables("SCRIPT_NAME")%><%=RS("ID")%>

Men den fick bara med detta:
/test/sider/index2.asp/test/sider/index2.asp16

och adressen är (om jag öppnar den i ett nytt fönster)

http://intrasrv/test/sider/index2.asp?ID=16

Du har ju inte skrivit ut querystringen?

Lägg till Request.Querystring till utskriften.

red: du har inte med servernamnet heller, kika på servervariabeln SERVER_NAME.

Mvh

nu har jag kod:

<%=Request.ServerVariables("URL") & Request.ServerVariables("SCRIPT_NAME") & Request.Querystring%>

Adressen den ger mig är:
/test/sider/index2.asp/test/sider/index2.aspID=16

Den riktigt adressen:
http://intrasrv/test/sider/index2.asp?ID=16

<%=Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("SCRIPT_NAME") & Request.Querystring%>

ger adress: intrasrv/test/sider/index2.aspID=16

Lägg till två små strängar då...

2 små? vad menas med det?

Med denna koden

<%=Request.ServerVariables("HTTP_REFERER") & Request.ServerVariables("SCRIPT_NAME") & Request.Querystring%>

Så får jag denna adress:http://intrasrv/test//test/sider/index2.aspID=16
vilket inte är så långt ifrån:http://intrasrv/test/sider/index2.asp?ID=16

Meng skrev:

2 små? vad menas med det?

Det som saknades i din utskrift var ju http:// och ?. Det är ju bara att lägga till dem?

jo visst

<%=Request.ServerVariables("HTTP_REFERER")%>sider/index2.asp?<%=Request.Querystring%>

ger rätt adress men den är ju inte dynamisk och därför KASS, finns det inget inget sätt som funkar eller? måste ju finnas

Det var ju bara http:// och frågetecknet som saknades, så jag förstår inte varför du hårdkodade in filnamnet?

Function GetPageURL()
	Dim sURL
	
	sURL = "http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("SCRIPT_NAME")
	If Len(Request.QueryString) > 0 Then
		sURL = sURL & "?" & Request.QueryString
	End If
	
	GetPageURL = sURL
End Function

Response.Write GetPageURL

Jag förstår inte varför du plockade in http_referer heller. Den innehåller adressen till sidan du kom ifrån, så det är inte rätt.

Tack Kungen-Erik för hjälpen :birp ses imorrn hehe