aktuell url ?

Hur får man in sidan som koden är på, i en varieabel?

(med querystrings o allt)

En funktion. :)

Function GetPageURL()
	
	Dim sProtocol, sServerName, sScriptName, sQueryString
	
	If UCase(Request.ServerVariables("HTTPS")) = "ON" Then
		sProtocol = "https://"
	Else
		sProtocol = "http://"
	End If
	
	sServerName = Request.ServerVariables("SERVER_NAME")
	
	sScriptName = Request.ServerVariables("SCRIPT_NAME")
	
	sQueryString = Request.QueryString
	If Len(sQueryString) Then sQueryString = "?" & sQueryString
	
	GetPageURL = sProtocol & sServerName & sScriptName & sQueryString
	
End Function

http://www.webforum.nu/showthread.php?s=&threadid=39295

strURL = request.servervariables("SERVER_NAME") & _ 
request.servervariables("URL") & "?" & _
request.servervariables("QUERY_STRING")

I request.servervariables("SERVER_PROTOCOL") får du även ut vilket protokol som servern kör sidan igenom.

Mvh, Vide

[R] Argh, jag har tappat stinget, Erik har snabbat till sig!! ;)

Bah! Min funktion har färre rader och klarar även av https protokoll. :p