Ok so I have a form that is pulling in through a quearystring a value for a field. This is what I have for it:
<%
Dim Referer : Referer = Request.ServerVariables("HTTP_REFERER")
Dim Location
Select Case(InStr(Referer, "http://www.jiffylube") > 0)
Case True: Location = Mid(Referer, 21, InStr(21, Referer, ".") - 21)
Case Else:
End Select
%>