Tengo un sencillo buscador instalado en mi web conectado a una base en SQL y es muy curioso ya que funciona bien, salvo con "algunas" palabras.
Tiene narices:
Le pongo sic y me da error
Le pongo sec y funciona
(...)
El error es el siguiente:
Tipo de error:
(0x80020009)
Ocurrió una
excepción .
/sql/include/new_search.asp, línea 65
Què significa?
ESte es el código de esas líneas
Set objRec2 = Server.CreateObject("ADODB.Recordset")
objRec2.PageSize = iPageSize
objRec2.CacheSize = iPageSize
objRec2.Open strSQL, my_Conn, 3, 3
reccount = objRec2.recordcount
iPageCount = objRec2.PageCount
If iPageCurrent > iPageCount Then iPageCurrent = iPageCount
If iPageCurrent < 1 Then iPageCurrent = 1
If iPageCount = 0 Then
Response.Write "<center><font color=red size=3>No records found!</font></center>"
Else
objRec2.AbsolutePage = iPageCurrent
%>
<center>
<font face="<%= strDefaultFontFace %>" size="<%= strDefaultFontSize %>" color="#FF0000">found <%=reccount%><% if reccount = 1 then %> link <% else %> links<% end if %></font>
<br>
<%
iRecordsShown = 0
Do While iRecordsShown < iPageSize or Not objRec2.EOF
65 If objRec2("CatID") <> "" Then
If objRec2("CatID") <> 0 Then
Set rscat = CreateObject("ADODB.Recordset")
Set rscat.ActiveConnection = my_Conn
rscat.LockType = 2
rscat.Open("SELECT Title, CatID, Template FROM " & strTablePrefix & "Site_Cats WHERE CatID=" & objRec2("CatID"))
if not rscat.eof then
curCat = rscat("Title")
curCatID = rscat("CatID")
curCatArea = rscat("Template")
end if
rscat.close
set rscat = nothing
Else
curCat = "Top Level Link"
curCatID = "0"
End If
End If
Alguna alma caritativa?
Gracias por su atención y un saludo