Referer Recording 1

[krappleby025]

Hi all, a couple of simple questions,

1... what is the asp command to get the referrers URL
2... If i use that command, how does the record appear, is it the FULL url or is it just the main url... ie would the referer

http://www.krapp.nl/tester/refer.asp

give the record

http://www.krapp.nl/tester/refer.asp

or

http://www.krapp.nl

thanks in advance

 

[Targol]

the

Request.ServerVariables("HTTP_REFERER")

code works under IIS http servers. Try it and see. Water is not bad as long as it stays out human body ;-)

 

[krappleby025]

Thanks

now the above would generate

http://www.team-law.org/testingref.asp

so how do i remove the last bit and only keep the first bit, What i want is

http://www.team-law.org

thanks

 

[GaryC123]

I would suggest
tempURL = replace(URL,"

http://","")

tempURL = split(tempURL,"/&quot
newURL=tempURL(0) Saturday 12.00

20.00

3.00am

Sunday [img http

 

[krappleby025]

thanks but that is causing an error, here it is as i believe it needs to be in correspondence to the page

tempURL = replace(refererurl,"

http://","";)

tempURL = split(tempURL,"/&quot
newURL=tempURL(0)

thanks

causes page cannot be displayed error

 

[GaryC123]

Dunno where that semicolon came from, it shouldnt be there Saturday 12.00

20.00

3.00am

Sunday [img http

 

[Tarwn]

How about just writing a function that accepts an address and removes the third slash on?

Function GetBaseAddress(fulladdr)
   Dim thrd
   thrd = InStr(7,fulladdr,"/",1)   'textual match starting at 7th character
   If thrd > 0 Then 
      GetBaseAddress = Left(fulladdr,thrd)
   Else
      GetBaseAddress = fulladdr
   EndIf
End Function

Thats untested, but it should work, just call it like so:
Dim refererBase
refererBase = GetBaseAddress(Request.ServerVariables("http_REFERER&quot)
Response.Write "User came from: " & refererBase


-Tarwn --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- ---
For my next trick I will pull a hat out of a rabbit (if you think thats bad you should see how the pigeon feels...)