Comment détecter le domaine de la page parente ?

Bon bé j'ai fais un truc je ne sais pas si c'est toujours valable mais voilà....

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim HTTP_REFERER As String = Request.ServerVariables("HTTP_REFERER").ToString()
		Dim Domaine_HOST As String = ""
		If HTTP_REFERER <> "" Then
			HTTP_REFERER = LCase(HTTP_REFERER)
			HTTP_REFERER = Replace(HTTP_REFERER, "http://", "")
			HTTP_REFERER = Replace(HTTP_REFERER, "\", "/")
			Dim intPos As Integer = InStr(HTTP_REFERER, "/")
			If intPos > 0 Then
				Domaine_HOST = Mid(HTTP_REFERER, 1, (intPos - 1))
			Else
				Domaine_HOST = HTTP_REFERER
			End If
		Else
			Domaine_HOST = "unknown"
		End If