Microsoft JET Database Engine error '80040e37'
The Microsoft Jet database engine cannot find the input table or query 'titles'. Make sure it exists and that its name is spelled correctly.
/funciones.asp, line 56
Tengo este error y no se que pasa. Aqui va el codigo:
if (Application("SN_String") = "") then
Application("SN_String") = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='"+Server.MapPath ("DWDataB/SN.mdb")+"';Persist Security Info=False"
end if
MM_Tablename_Bateo = "bateoSNActual"
MM_Tablename_Pitcheo = "pitcheoSNActual"
MM_Tablename_BateoHistorico = "bateoHistorico"
MM_Tablename_PitcheoHistorico = "pitcheoHistorico"
MM_Tablename_Marcadores = "marcadores"
MM_Tablename_Innings = "innings"
MM_Tablename_Jonrones = "jonrones"
if (Application("MM_News_STRING") = "") then
Application("MM_News_STRING") = Server.MapPath ("DWDataB/news.mdb")
end if
if (Application("MM_Video_STRING") = "") then
Application("MM_Video_STRING") = Server.MapPath ("DWDataB/videos.mdb")
end if
rem cantidad de veces al bate para sacar lider de bateo historico
MM_MaxVB = 1000
rem cantidad de inn lanzados para sacar lider de pitcheo historico
MM_MaxINN = 800
rem cantidad de veces al bate para sacar lider de bateo de la serie actual
MM_MaxVBSNActual = 20
rem cantidad de inn lanzados para sacar lider de pitcheo de la serie actual
MM_MaxINNSNActual = 20
function nombreAbrev (s)
nombreAbrev = left(s,1)+". "
end function
function comaParaPunto (value)
comaParaPunto = Replace (value,",",".")
end function
function getTitleById (id)
Set rsBateo = Server.CreateObject("ADODB.Recordset")
rsBateo.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Application("MM_News_STRING")+";Persist Security Info=False"
rsBateo.Source = "SELECT title FROM news WHERE id=" & id
rsBateo.Open()
rsBateo.MoveFirst()
rsBateo_numRows = 0
getTitleById = "<a href='newsContainer.asp?id=" & id & "'>"+rsBateo("title")+"</a>"
rsBateo.Close()
Set rsBateo = nothing
end function
function getNewsTitle()
Set rsBateo = Server.CreateObject("ADODB.Recordset")
rsBateo.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Application("MM_News_STRING")+";Persist Security Info=False"
rsBateo.Source = "SELECT idNews FROM titles"
rsBateo.Open() (Esta es la linea 56)
rsBateo.MoveFirst()
rsBateo_numRows = 0
Do Until rsBateo.EOF
Response.Write ("<tr>")
Response.Write(" <td height='22' valign='middle' bordercolor='#FFFF00' background='Images/CajaCells.jpg' bgcolor='#FFFFFF'>")
Response.Write(" <font color='#FFFFFF' size='1' face='Arial'>")
Response.Write( getTitleByID( rsBateo("idNews") ) )
Response.Write(" </font>")
Response.Write(" </td>")
Response.Write("</tr>")
rsBateo.MoveNext
Loop
rsBateo.Close()
Set rsBateo = nothing
end function
function getRelaciones(id)
if id=0 then exit function
Set rsBateo = Server.CreateObject("ADODB.Recordset")
rsBateo.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+Application("MM_News_STRING")+";Persist Security Info=False"
rsBateo.Source = "SELECT idRelaciones FROM relaciones WHERE idNews=" & id
rsBateo.Open()
rsBateo_numRows = 0
Do UNTIL rsBateo.EOF
Response.Write ("<tr>")
Response.Write(" <td height='22' valign='middle' bordercolor='#FFOO00' bgcolor='#FFFFFF'>")
Response.Write(" <font color='#FFFFFF' size='2' face='Arial'>")
Response.Write( getTitleByID( rsBateo("idRelaciones") ) )
Response.Write(" </font>")
Response.Write(" </td>")
Response.Write("</tr>")
rsBateo.MoveNext
Loop
rsBateo.Close()
Set rsBateo = nothing
end function
%>