Erro No Codigo Q Naum Consigo Resolver

fabiosilva1 · Fevereiro 24, 2005

to com esse codigo e tá dando erro na linha 180 por favor quem puder analisar e me dar um toque agradeço demais

<%'conexão bd de noticias'%>

<%'conexão bd de eventos'%>

<%

'conexao banco de classificados-------------------

Set clsCx = Server.CreateObject("ADODB.Connection")

Set clsRs = Server.CreateObject("ADODB.Recordset")

clsCXpath="DBQ=" & Server.MapPath("class/database/dados.mdb")

clsCX.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & clsCxpath

WSql = "SELECT i.itemcodigo, f.fabricantedescricao, i.itemdescricao, i.itemcilindrada, i.itemano, i.itemvalor "

WSql = WSql & "FROM tbitem i, tbfabricante f "

WSql = WSql & "WHERE (i.itemfabricante = f.fabricanteid) "

WSql = WSql & "ORDER BY i.itemdata DESC"

Set clsRS = clsCx.Execute(WSql)

%>

<!--

function NewWindow(mypage, myname, w, h, scroll) {

var winl = (screen.width - w) / 0;

var wint = (screen.height - h) / 0;

winprops = 'height='+h+',width='+w+',top='+wint+',left='+winl+',scrollbars='+scroll+',resizable'

win = window.open(mypage, myname, winprops)

if (parseInt(navigator.appVersion) >= 4) { win.window.focus(); }

}

//-->

</script>

<style>

<!--

a{text-decoration:none}

//-->

</style>

<html>

<head>

<title>V I A M O T O S - A estrada para o seu sonho</title>

</head>

<tr>

</object>

</div>

</td>

</tr>

<tr>

<tr>

</tr>

<tr>

<% sqlstmt = "SELECT * FROM eventos ORDER BY id DESC"

Set rs1 = Server.CreateObject("ADODB.Recordset")

rs1.Open sqlstmt, Dados, 3, 3

TotalRecs1 = rs1.recordcount

y = 0

For y = 1 to 1

If rs1.eof then

Exit For

Else

date1 = rs1("data")

id = rs1("ID")

name1 = rs1("titulo")

link = "<a href='news/evview.asp?id=" & id & "'>" & date1 & "</a>"

description = name1

%>

<tr>

<% =link %>

</span></font></strong></div>

</tr>

<tr>

<% =description%>

</span></font></strong></div>

</tr>

<%

rs1.MoveNext

End If

Next%>

</table></td>

</tr>

<tr>

</tr>

</table></td>

</tr>

<tr>

<tr>

<td width="129" height="12" bgcolor="#FFFFFF" class="style20"><div align="center"><span class="style20"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>Revenda

Autorizada:</strong></font></span></div>

</td>

</tr>

<tr>

</td>

</tr>

<tr>

</td>

</tr>

</table>

</td>

<tr>

<td width="251" height="12" bgcolor="#FFFFFF"><div align="center"><span class="style20"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Classificados</strong></font></span></div></td>

</tr>

<tr>

<% WCor = "branco"

For i = 1 to 3

If Not clsRS.EOF Then

WItem = clsRS("fabricantedescricao").Value & " " & clsRS("itemdescricao").Value & " " & clsRS("itemcilindrada").Value%>

<tr bgcolor="<%If WCor = "amarelo" Then

WCor = "branco"

Response.Write("#FFFFFF")

Else

WCor = "amarelo"

Response.Write("#FFCC66")

End if %>">

<td width="120"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> <a href="class/abreitem.asp?cod=<%=clsRS("itemcodigo").Value%>" class="style6" onClick="NewWindow(this.href,'name','540','300','no');return false;"><%=WItem%></a></font></td>

<% =clsRS("itemano").Value %>

</font></td>

<% =FormatNumber(clsRS("itemvalor").Value,2) %>

</font></td>

</tr>

<% clsRS.MoveNext

End If

Next %>

</table>

</div>

</td>

</tr>

<tr>

<td height="19"><div align="center"><span class="style17"><a href="class/consulta.asp"><font color="#FF0000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>confira

mais ofertas de motos clicando aqui</strong></font></a></span></div>

</td>

</tr>

</table>

</td>

<tr>

<td><div align="center"><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Últimas Notícias</font></strong></div>

</td>

</tr>

<tr>

<% sqlstmt = "SELECT * FROM noticias ORDER BY id DESC"

Set rs2 = Server.CreateObject("ADODB.Recordset")

180 rs2.Open sqlstmt, Dados, 3 , 3

TotalRecs2 = rs2.recordcount

x = 0

For x = 1 to 3

If rs2.eof then

Exit For

Else

date2 = rs2("data")

id2 = rs2("ID")

name2 = rs2("titulo")

link2 = "<a href='news/view.asp?id=" & id2 & "'>" & date2 & "</a>"

description = name2

%>

<tr>

<% =link %>

</span></font></strong></div>

</tr>

<tr>

<% =description%>

</span></font></strong></div>

</tr>

<%

rs1.MoveNext

End If

Next%>

</table></td>

</tr>

</table></td>

</tr>

</table>

</td>

</tr>

</table>

</td>

</tr>

</table>

</map>

</p>

</body>

</html>

edmais · Fevereiro 25, 2005

Qual é a Linha 180?

Fevereiro 25, 2005

Qual é a Linha 180?

rs2.Open sqlstmt, Dados, 3 , 3

é o seguinte uso o mesmo codigo pra fazer duas funções ai nesse script, mas já fiz todas as alterações pra eles não ficarem iguais, ´mas essa linha ai sempre dá o erro

Microsoft OLE DB Provider for ODBC Drivers error '80040e37'

[Microsoft][ODBC Microsoft Access Driver] The Microsoft Jet database engine cannot find the input table or query 'noticias'. Make sure it exists and that its name is spelled correctly.

/default_nova2.asp, line 180

edmais · Fevereiro 25, 2005

Recordset.OPEN SQL,CONEXAO,3,3

Testa ae!

Fevereiro 25, 2005

deu esse erro agora

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/default_nova3.asp, line 180

edmais · Fevereiro 25, 2005

Cola aí como ficou o seu código

Fevereiro 25, 2005

<% sqlstmt = "SELECT * FROM noticias ORDER BY data, id DESC"

Set rs2 = Server.CreateObject("ADODB.Recordset")

Recordset.OPEN SQL,CONEXAO,3,3

TotalRecs2 = rs2.recordcount

x = 0

For x = 1 to 3

If rs2.eof then

Exit For

Else

date2 = rs2("data")

id2 = rs2("ID")

name2 = rs2("titulo")

link2 = "<a href='news/view.asp?id=" & id2 & "'>" & date2 & "</a>"

description = name2

%>

edmais · Fevereiro 25, 2005

- fabiosilva1 - Postado em Feb 24 2005, 11:14 PM
<% sqlstmt = "SELECT * FROM noticias ORDER BY data, id DESC"
Set rs2 = Server.CreateObject("ADODB.Recordset")
Recordset.OPEN SQL,CONEXAO,3,3
TotalRecs2 = rs2.recordcount
x = 0
For x = 1 to 3
If rs2.eof then
Exit For
Else
date2 = rs2("data")
id2 = rs2("ID")
name2 = rs2("titulo")
link2 = "<a href='news/view.asp?id=" & id2 & "'>" & date2 & "</a>"
description = name2
%>

Brother,

Quando falei com que você usasse:

Recordset.OPEN SQL,CONEXAO,3,3

Era para que você substituisse o que passei, para o nome dos quais você está usando.

Então na linha que te passei, onde está Recordset, você substiuipara o nome do Recordset que você setou, que é rs2, e aí por diante, entendeu?

Entrar

Erro No Codigo Q Naum Consigo Resolver

Pergunta

fabiosilva1

Link para o comentário

Compartilhar em outros sites

7 respostass a esta questão

Posts Recomendados

edmais

Link para o comentário

Compartilhar em outros sites

Guest - fabiosilva1 -

Link para o comentário

Compartilhar em outros sites

edmais

Link para o comentário

Compartilhar em outros sites

Guest - fabiosilva1 -

Link para o comentário

Compartilhar em outros sites

edmais

Link para o comentário

Compartilhar em outros sites

Guest - fabiosilva1 -

Link para o comentário

Compartilhar em outros sites

edmais

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades