| Author |
 Topic  |
|
|
richfed
Average Member
United States
999 Posts |
 Posted - 13 October 2009 : 07:02:43
|
Have had this MOD installed for quite some time with no problems that I was aware of. Yesterday, a fellow alerted me that upon entering a term in the Search box [of this MOD], he received the following error:
Microsoft VBScript runtime error '800a0005'
Invalid procedure call or argument: 'Left'
/messageboard/myowngoogle.asp, line 122
Sure enough, I get the same. The referenced page is a stand-alone. I have not touched that page other than to enter my "key" long ago.
Anyone have any ideas as to what is causing this? Is it key-related? Expired, maybe??? |
Rich
[size=1]A Complete Idiot's Guide to MOD Implementation || On the Trail of the Last of the Mohicans[/size=1] |
|
|
AnonJr
Moderator
United States
5768 Posts |
Posted - 13 October 2009 : 07:46:20
|
| What is around line 122? maybe 5 or 6 lines above and below? |
 |
|
|
modifichicci
Average Member
Italy
787 Posts |
|
|
richfed
Average Member
United States
999 Posts |
Posted - 13 October 2009 : 18:17:38
|
Line 122 in RED
If Request.Querystring = "" Then
Call DisplaySearchForm()
Else
Call DisplaySearchForm
Set objXML = CreateObject("Microsoft.XMLHTTP")
objXML.open "POST",strGoogleURL,"False"
objXML.setRequestHeader "Man", "POST"+" "+strGoogleURL+" HTTP/1.1"
objXML.setRequestHeader "MessageType", "CALL"
objXML.setRequestHeader "Content-Type", "text/xml"
objXML.send strSearchRequest
strResponsePage = objXML.responseText
Set objXML = Nothing
If intGetSuggestion = 1 Then
Response.Write GetSpellingSuggestion & "<br />"
End If
strResponsePage=Replace(strResponsePage," xsi:type=" & CHR(34) & "xsd:string" & CHR(34),"")
strResponsePage=Replace(strResponsePage,"<b>","")
strResponsePage=Replace(strResponsePage,"</b>","")
strResponsePage=Replace(strResponsePage,"<br>","<br>")
strSearchResults = left(strResponsePage,inStr(strResponsePage,"</estimatedTotalResultsCount>")-1)
strSearchResults = right(strSearchResults,len(strSearchResults)-inStr(strSearchResults,"<estimatedTotalResultsCount")-46)
strSearchTime = left(strResponsePage,inStr(strResponsePage,"</searchTime>")-1)
strSearchTime = right(strSearchTime,len(strSearchTime)-inStr(strSearchTime,"<searchTime")-33)
Response.write "Estimated results for <b>" & request.querystring("q") & "</b>: " & strSearchResults & ". Search Time: " & strSearchTime & " seconds. </td></tr><tr><td bgcolor=""" & strForumCellColor & """><br /><br />" & _ |
Rich
[size=1]A Complete Idiot's Guide to MOD Implementation || On the Trail of the Last of the Mohicans[/size=1] |
|
|
|
AnonJr
Moderator
United States
5768 Posts |
Posted - 14 October 2009 : 07:58:44
|
| Off the cuff I'd say the issue is that strResponsePage isn't populated with anything, and that is giving you the error. It may be because Google changed the URL, or the response format, or any number of other issues - like the limit modifichicci mentioned. |
|
|
|
richfed
Average Member
United States
999 Posts |
Posted - 15 October 2009 : 06:46:07
|
Thanks -
Does anyone else use this MOD? Experiencing anything similar? |
|
|
|
modifichicci
Average Member
Italy
787 Posts |
|
|
richfed
Average Member
United States
999 Posts |
|
| |
Topic |
|
Topic Locked
