<%

Function Aranan()
Set oRegEx = New RegExp
oRegEx.Pattern = "([?|&])q=([^&#]*)"
oRegEx.Global = True
For Each oMatch In oRegEx.Execute(Request.ServerVariables("HTTP_REFER ER"))
sMatch = oMatch.Value
Next
sMatch = replace(sMatch,"&q=","")
sMatch = replace(sMatch,"?q=","")
Aranan = sMatch
Set oRegEx = Nothing
End Function





response.write Aranan()

%>