get site referers in asp ???

hi all ...

I use    request.ServerVariables("HTTP_REFERER")     to get my sitereferer adress ....

but this show the full adress of refferer like this : http://www.site.com/forum/post.aspx?pid=444&Page=5


but I need to get only the domain name of the referer ...

for example when the referer adress is : http://www.site.com/forum/post.aspx?pid=444&Page=5 ,  I need to get "Site.com"

anyone can help ???

thanks a lot
it work correctly ...

now I write a code for webwizforum thet :
add site referers to database if the referer doesn't exist in database, and if the referer exist in database the input numper update ( refs = refs + 1) ...
I write this code ...
but I get one error :(  any one can help ????

<%
    dim strURL
    dim blnnewref
    strURL = Request.ServerVariables("HTTP_REFERER")
    strURL = Replace(strURL,"http://","")
    strURL = Replace(strURL,"https://","")
    strURL = Replace(strURL,"www.","")
    strURL = Left(strURL,InStr(1, strURL, "/", 1))
    if strURL <> "" then
    Response.Write(strURL)


'Check the database
strSQL = "SELECT " & strDbTable & "Refs.Url " & _
"FROM " & strDbTable & "Refs" & strDBNoLock & "  " & _
"WHERE " & strDbTable & "Refs.Url = '" & strURL & "';"
rsCommon.Open strSQL, adoCon
If NOT rsCommon.EOF Then blnnewref = true
rsCommon.Close

' Add Site Referer to database
If blnnewref = false then
strSQL = "SELECT tblrefs.url, tblrefs.title FROM tblrefs ;"
With rsCommon
.CursorType = 2
.LockType = 3
.Open strSQL, adoCon
.AddNew
.Fields("url") = strURL
.Fields("title") = strURL
.Update
.Close
End With

else

dim refs
dim refid
strSql = "Select tblrefs.* From  tblrefs Where url =" & strURL
rscommon.Open strSQL, adoCon
refs = rscommon("refs")
refid = rscommon("ref_id")
adocon.Execute "UPDATE tblrefs SET refs = refs + 1 WHERE id =" & refid       
rscommon.close
 
End if
End if 
%>