Ir para conteúdo

POWERED BY:

Arquivado

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

lezão

Paginanação com link '"VBSCRIPT"'

Por , em ASP Clássico

Recommended Posts

lezão    0

lezão
Postado

hargon copiei seu script e agora esta dando o seguinte erro

 

Microsoft VBScript compilation error '800a0400'

 

Expected statement

 

/nova/prod.asp, line 89

 

Wend

^

e agora oq eu faço ??????

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Tenta aí o código todo abaixo:

CODE

<%

registros = 2

pagina = Request.QueryString("pagina")

If pagina = "" Then

pagina = 1

End If

 

'Efetuando a conexão com a base de dados criada -----------------------

Set conexao = Server.CreateObject("AdoDb.Connection")

conexao.provider="Microsoft.Jet.OLEDB.4.0"

conexao.connectionstring=Server.Mappath("banco.mdb")

conexao.open

 

Set rs = Server.Createobject("ADODB.RECORDSET")

set rs.ActiveConnection = Conexao

rs.CursorType = 1

rs.PageSize = registros

 

sql = "SELECT * FROM produtos ORDER BY id DESC"

rs.Open sql

If rs.EOF Then

Response.Write "<center><font face=Verdana size=2><b>Nenhum registro encontrado!</b><br><br><a href=java script:history.back(-1)><font face=Verdana, Arial, Helvetica, sans-serif size=1>Voltar</font></a> </center></font>"

Else

rs.AbsolutePage = pagina

x = x + 1

%>

<html>

<head>

<STYLE type=text/css>

A:link { text-decoration: none}

A:visited { text-decoration: none}

</STYLE>

 

<title></title>

</head>

 

<body topmargin="0" leftmargin="0" link="#000000" vlink="#000000" alink="#000000" text="#000000">

<table width="100%" height="1">

<tr>

<%

While Not rs.EOF AND x < rs.PageSize

q = q + 1

%>

<td height=1 width=2>

<table width="311" >

<tr>

<td height="17" width="303" style="height: 12.75pt">

<table width="325" class="texto" style="border: 1px solid #b9b9b9">

<col width="64" span="2" style="width:48pt">

<tr height="17" style="height:12.75pt">

<td colspan="2" height="51" class="xl24" width="64" style="height: 38.25pt">

<p align="center">

<a href="#" onClick="window.open('<%=rs("foto_grd")%>','Janela','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,res

izable=no,width=500,height=500'); return false;">

<font size="2" face="Verdana" color="#FF0000">

<b><img border="1" src="<%=rs("foto_grd")%>" width="133" height="110"></b>

</font>

</a>

</p>

</td>

<td width="247" colspan="2" align="center">

<p align="center">

<font size="2" face="Verdana">

<b><%=rs("nome")%></b>

</font>

</p>

</td>

</tr>

<tr height="17" style="height:12.75pt">

<td colspan="2" height="17" style="height: 12.75pt" width="247">

<font size="2" face="Verdana">

<%=rs("descricao")%>

</font>

</td>

<td colspan="2"height="17" style="height: 12.75pt" width="247"> </td>

</tr>

<tr colspan="2" height="17" style="height:12.75pt">

<td colspan="2"height="17" style="height: 12.75pt" width="247">

<font size="2" face="Verdana" color="#FF0000">

<b><%=rs("valor")%></b>

</font>

</td>

<td> </td>

</tr>

<tr colspan="2" height="17" style="height:12.75pt">

<td colspan="2" height="17" class="xl24" style="height: 12.75pt" width="317">

<font face="Verdana" size="1">Atualizado em: <%=rs("data")%></font>

</td>

<td> </td>

</tr>

</table>

</td>

</tr>

</table>

</td>

<%

If q = 3 Then

%>

</tr><tr>

<%

q = 0

End If

 

rs.MoveNext

Wend

%>

</tr>

</table>

<font face="Verdana" size="1">

<%

anterior = pagina - 1

proxima = pagina + 1

ultima = rs.PageCount

primeira = 1

ultm2 = FormatNumber(rs.PageCount - 1,0)

 

If pagina <> 1 Then

Response.Write "<b>« <a href=prod.asp?pagina="&primeira&">Primeira Página</a></b> "

End If

 

If pagina > 1 AND pagina <> 2 Then

Response.Write "<b>[ <a href=prod.asp?pagina="&anterior - 1&">"&anterior - 1&"</a> ]</b> "

End If

 

If pagina > 1 Then

Response.Write "<b>[ <a href=prod.asp?pagina="&anterior&">"&anterior&"</a> ]</b> "

End If

 

Response.Write "<b>[ "&pagina&" ]</b> "

If Not rs.EOF Then

Response.Write "<b>[ <a href=prod.asp?pagina="&proxima&">"&proxima&"</a> ]</b> "

End If

If Not rs.EOF AND pagina <> ultima AND pagina <> ultm2 Then

Response.Write "<b>[ <a href=prod.asp?pagina="&proxima + 1&">"&proxima + 1&"</a> ]</b> "

End If

If Not rs.EOF Then

Response.Write "<b><a href=prod.asp?pagina="&ultima&">Última Página</a> »</b> "

End If

%>

</font>

<%

End If

rs.Close

Set rs = Nothing

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

lezão    0

lezão
Postado

ola hargon agora esta dando o seguinte erro

 

Microsoft VBScript runtime error '800a005b'

 

Object variable not set: 'rs'

 

/nova/prod1.asp, line 125

 

 

oq quer dizer isso ????

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Está falando que rs não foi declarado.

 

Posta a linha 61.

Compartilhar este post

Link para o post
Compartilhar em outros sites

lezão    0

lezão
Postado

Ola hargon bom dia

 

hargon eu arrumei os rs, agora esta funcionando as imagens estaun aparecedno do q eu queria

mas ainda tem erro naun esta dando a paginação.

 

agora esta aparecendo este erro

 

 

Microsoft VBScript runtime error '800a01b6'

 

Object doesn't support this property or method: 'rs.CloseSet'

 

/nova/prod1.asp, line 127

 

 

 

de uma olhadinha no site http://www.sonhoefesta.com.br/nova/prod1.asp

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

O correto é rs.Close

Compartilhar este post

Link para o post
Compartilhar em outros sites

lezão    0

lezão
Postado

sim corrigi o "rs.close", mas ainda naun esta fazendo a paginação eu adiciono produto e naun aparece o link nº 2 3 4 enfim .....

naun sai da 1ª

 

no codigo esta com assim em registro 2 para cada pagina e esta aparecendo dos produtos numa só....

 

registros = > 2 <

pagina =

Request.QueryString("pagina")

If pagina = "" Then

pagina = 1

End If

 

veja no site acima como esta .....

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