Funktion reffer

Vilkan reffer :q

Menar du referer?

Response.write Request.Servervariables("HTTP_REFERER")

Ger dock inte alltid ett värde, då vissa brandväggar slänger bort innehållet, t.ex.

tack för koden, men hur gör jag rnt praktiskt?

<% 
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

Response.write Request.Servervariables("HTTP_REFERER") "Denna sidans URL: " & GetCurrentURL() 
 %>

funkar inte, har lagt in även ett annat försök

http://sveriges.com/sveriges/referer.asp

där jag skrivit in koden

<% 
Response.write Request.Servervariables("HTTP_REFERER")
 %>

men den koden genrear ingenting

jag trixade lite till och da dam:

[kod]
<%
Function HTTP_REFERER()
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

HTTP_REFERER = strURL

End Function

Response.write Request.Servervariables("HTTP_REFERER")
%>
[7kod] är rätt kod.

Inte för att jag förstår varför du kallar funktionen för HTTP_REFERER, men...

Funkar det nu alltså som du tänkt?

jepp, den fungerar som jag hade tänkt,
finns att beskåda på http://sveriges.com/sveriges/referer.asp

men finns det alltså något enklare sätt att gära koden på?

Enklare och enklare, det är klart att man kan göra funktionen lite kortare.

Function GetCurrentURL()
	Dim strURL

	strURL = "http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("SCRIPT_NAME")
	If Request.QueryString <> "" Then
		strURL = strURL & "?" & Request.QueryString
	End If

	GetCurrentURL = strURL
End Function

tackar för det