GetCurrentURL

GetCurrentURL - Hämtar den aktuella sidans URL med querystrings.

Användning:
Response.Write "Denna sidans URL: " & GetCurrentURL()

Kod:

Function GetCurrentURL()
	Dim strQueryString
	Dim strServerName
	Dim strScriptName
	Dim strURL

	strQueryString = Request.QueryString
	strServerName = Request.ServerVariables("SERVER_NAME")
	strScriptName = Request.ServerVariables("SCRIPT_NAME")

	strURL = "http://" & strServerName & strScriptName
	If strQueryString <> "" Then
		strURL = strURL & "?" & strQueryString
	End If

	GetCurrentURL = strURL
End Function