Kolla om ordet &page=* finns med

Har denna funktion:

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

Men jag vill att om url slutar på &page=vilkensiffrasomhellst
så ska det bort.

Hur löser man det?