Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

diegokorvo

Página com apenas ultimo registro

Por , em ASP Clássico

Recommended Posts

diegokorvo    0

diegokorvo
Postado

Olá... a mais ou menos 1 semana atras postei uma dúvida que foi resolvida em partes...

 

eu queria que mostrasse apenas o ultimo registro do meu bd... funcionou, mas logo após dá o seguinte erro:

 

 

ADODB.Recordset error '800a0e78'

 

Operation is not allowed when the object is closed.

 

/diegokorvo/ultimorecado.asp, line 35

 

o código é o seguinte:

ASP [/tr][tr]<%@ Language=VBScript %>

<% Session.LCID = 1046 %>

<html>

<head>

<title>último recado - iframe</title>

</head>

<body bgcolor=#ff9900 leftmargin=0 topmargin=0 rightmargin=0 bottommargin=0 scroll=no>

<%

dbfile=Server.MapPath("recado.mdb")

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

OBJdbConnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbfile

 

Set rs = Server.CreateObject("Adodb.RecordSet")

sql= "SELECT TOP 1 * FROM Recados ORDER BY Id Desc;"

rs.Open sql, OBJdbConnection, 3, 3

%>

<%

Function resumindo(txt,vCrt)

vX = Mid(txt, 1, vCrt)

if NOT Len(txt) <= vCrt then

resumindo = vX &"..."

else

resumindo = vX

end if

end function

%>

<%

While not RS.EOF

 

Response.Write("<table border=0 cellpading=0 cellspacing=0 width='100%'><tr><td align=left>")

Response.Write("<font face='Arial' size=2>Para: ")

Response.write(resumindo(rs.fields("Para"), 10))

Response.write("<br>Vila: ")

Response.write(resumindo(rs.fields("Vila"), 11))

Response.write("<br>")

Response.write(resumindo(rs.fields("Recado"), 45))

Response.Write(" <a href=_recado.asp target='_parent'>mais</a></font></td></tr></table>")

%>

<%

RS.Close

Wend

%>

<%

 

set rs = Nothing

OBJdbConnection.Close

set OBJdbConnection = Nothing

 

%>

[/tr]

 

onde está o erro?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

o erro é isso mesmo, mas se você quer apenas um registro nem precisa do while basta usar um SELECT TOP 1 CAmpo... e depois usar um teste com IF mesmoIF NOT RS.EOF THEN....escreve valorELSE... nada encontradoEND IF

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito