Det virker fint... hvis strengen bare kommer fra google... men her for du noget mere kode...:
f_url = rs("url")
f_url = replace(f_url,"
http://www.","")
f_url = "
http://"&f_urlSet regEx = New RegExp
regEx.Global = True
regEx.IgnoreCase = True
regEx.Pattern = "^.*[?&]q=([^&]+).*$"
res1 = regEx.replace(f_url, "$1")
if instr(res1, "
http://")>0 then
res1=""
end if
regEx.Pattern = "^.*[?&]p=([^&]+).*$"
res2 = regEx.replace(f_url, "$1")
if instr(res2, "
http://")>0 then
res2=""
end if
regEx.Pattern = "^.*[?&]sog=([^&]+).*$"
res3 = regEx.replace(f_url, "$1")
if instr(res3, "
http://")>0 then
res3=""
end if
regEx.Pattern = "^.*[?&]query=([^&]+).*$"
res4 = regEx.replace(f_url, "$1")
if instr(res4, "
http://")>0 then
res4=""
end if
regEx.Pattern = "^.*[?&]search=([^&]+).*$"
res5 = regEx.replace(f_url, "$1")
if instr(res5, "
http://")>0 then
res5=""
end if
regEx.Pattern = "^.*[?&]words=([^&]+).*$"
res6 = regEx.replace(f_url, "$1")
if instr(res6, "
http://")>0 then
res6=""
end if
regEx.Pattern = "^.*[?&]keyword=([^&]+).*$"
res7 = regEx.replace(f_url, "$1")
if instr(res7, "
http://")>0 then
res7=""
end if
regEx.Pattern = "^.*[?&]find=([^&]+).*$"
res8 = regEx.replace(f_url, "$1")
if instr(res8, "
http://")>0 then
res8=""
end if
regEx.Pattern = "^.*[?&]search_word=([^&]+).*$"
res9 = regEx.replace(f_url, "$1")
if instr(res9, "
http://")>0 then
res9=""
end if
regEx.Pattern = "^.*[?&]searchterm=([^&]+).*$"
res10 = regEx.replace(f_url, "$1")
if instr(res10, "
http://")>0 then
res10=""
end if
regEx.Pattern = "^.*[?&]searchtxt=([^&]+).*$"
res11 = regEx.replace(f_url, "$1")
if instr(res11, "
http://")>0 then
res11=""
end if
f_url1 = res1 & res2 & res3 & res4 & res5 & res6 & res7 & res8 & res9 & res10 & res11
f_url1 = replace(f_url1,"%c3%86","Æ")
f_url1 = replace(f_url1,"%c3%98","Ø")
f_url1 = replace(f_url1,"%c3%85","Å")
f_url1 = replace(f_url1,"%c3%a6","æ")
f_url1 = replace(f_url1,"%c3%b8","ø")
f_url1 = replace(f_url1,"%c3%a5","å")
f_url1 = replace(f_url1,"%c3%A6","æ")
f_url1 = replace(f_url1,"%c3%B8","ø")
f_url1 = replace(f_url1,"%c3%A5","å")
f_url1 = replace(f_url1,"%C3%86","Æ")
f_url1 = replace(f_url1,"%C3%98","Ø")
f_url1 = replace(f_url1,"%C3%85","Å")
f_url1 = replace(f_url1,"%C3%a6","æ")
f_url1 = replace(f_url1,"%C3%b8","ø")
f_url1 = replace(f_url1,"%C3%a5","å")
f_url1 = replace(f_url1,"%C3%A6","æ")
f_url1 = replace(f_url1,"%C3%B8","ø")
f_url1 = replace(f_url1,"%C3%A5","å")
f_url1 = replace(f_url1,"%20"," ")
if instr(f_url1, "cache")>0 then
f_url1=""
end if
if f_url1<>"" then
regEx.Pattern = "(
http://.*?/).*"
f_url12 = regEx.replace(f_url, "$1")
end if