Ir para conteúdo

POWERED BY:

Arquivado

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

Legionario-rs

Erro no script

Por , em ASP Clássico

Recommended Posts

Legionario-rs    0

Legionario-rs
Postado

Boa noite pessoal,

 

Espero que possam me ajudar.

 

Grato a todos.

 

Erro:

 

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A0400)

Instrução esperada

paginacao2.asp, line 109

end if

 

<%
StringDeConexao = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("/banco/loja.mdb")
Set Conexao = Server.CreateObject("AdoDb.Connection")
Conexao.Open StringDeConexao

Set RS = Server.CreateObject("AdoDb.RecordSet")

nomepagina = "paginacao2.asp"
registros = 3

col=3

if not rs.eof then

colu=1

response.write "<table><tr><td>"

while not rs.eof

RS.CacheSize = registros
RS.PageSize = registros

SQL = "Select * from produtos"

RS.Open SQl,Conexao,3,3

If RS.Eof then
Response.Write("Nenhum registro encontrado.")

else

if Request.QueryString("pagina")="" then
pagina = 1
elseif cint(Request.QueryString("pagina"))<1 then
pagina = 1
elseif cint(Request.QueryString("pagina"))>RS.PageCount then
pagina = RS.PageCount
else pagina=Request.QueryString("pagina")
end if
end if

RS.AbsolutePage = pagina

contador = 0

While contador<registros and not RS.eof

%>
<table valign=top width=205 border="1" cellspacing="2" cellpadding="7">

  <tr>
	<td background="images/BottomCol1.jpg"><font face="verdana" size="1" color="white"><b><%response.write rs ("nome")%><b></td></tr>
	<td align="center"><center><a href="detalhe_acervo.asp?id=<%=rs("id")%>" target="_self"><%=imagem%><img src='images/<%response.write rs ("imagem")%>' height="100" border="0" alt="Clique na imagem e veja os detalhes"/></a></tr>
  <tr>
	<td background="images/BottomCol1.jpg"><font face="verdana" size="1" color="white"><b>» Locação R$: <%response.write formatnumber (rs("preco"),2)%></b>
	<br><font face="verdana" size="1" color="white"><b>» Áudio: <%response.write rs ("condicoes")%><b>
	<br><font face="verdana" size="1" color="white"><b>» Categoria: <%response.write rs ("descricaop")%><b></td></tr>
  </tr>
</table>
<%

RS.MoveNext

contador = contador + 1

If RS.eof then
if colu=col then
response.write "</td><tr><td>"
Response.Write("")

colu=1

else

response.write "</td><td>"

colu=colu+1

end if

rs.movenext


for i=1 to RS.PageCount

response.write "</td></tr></table>"
response.Write("<a href="&nomepagina&"?pagina="&i&">"&replace(i,pagina,"<font color=blue><b>"&i&"</b>")&"</a>  ")

rs.close

end if


Next
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Legionario-rs    0

Legionario-rs
Postado

Boa noite pessoal,

 

To tão pilhado em conseguir consertar esse script que acabei trocando tudo agora sim vai o script com o erro certo.

Desculpem e obrigado pela ajuda.

 

Legionario

 

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A0400)

Instrução esperada

/Projetos/Videobluemix/Projeto Piloto Mix/paginacao3.asp, line 91

end if

 

<%
StringDeConexao = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("/banco/loja.mdb")
Set Conexao = Server.CreateObject("AdoDb.Connection")
Conexao.Open StringDeConexao

Set RS = Server.CreateObject("AdoDb.RecordSet")

nomepagina = "paginacao2.asp"
registros = 3

col=3

if not rs.eof then

colu=1

response.write "<table><tr><td>"

while not rs.eof

RS.CacheSize = registros
RS.PageSize = registros

SQL = "Select * from produtos"

RS.Open SQl,Conexao,3,3

If RS.Eof then
Response.Write("Nenhum registro encontrado.")

else

if Request.QueryString("pagina")="" then
pagina = 1
elseif cint(Request.QueryString("pagina"))<1 then
pagina = 1
elseif cint(Request.QueryString("pagina"))>RS.PageCount then
pagina = RS.PageCount
else pagina=Request.QueryString("pagina")
end if
end if

RS.AbsolutePage = pagina

contador = 0

While contador<registros and not RS.eof

%>
<table valign=top width=205 border="1" cellspacing="2" cellpadding="7">

  <tr>
	<td background="images/BottomCol1.jpg"><font face="verdana" size="1" color="white"><b><%response.write rs ("nome")%><b></td></tr>
	<td align="center"><center><a href="detalhe_acervo.asp?id=<%=rs("id")%>" target="_self"><%=imagem%><img src='images/<%response.write rs ("imagem")%>' height="100" border="0" alt="Clique na imagem e veja os detalhes"/></a></tr>
  <tr>
	<td background="images/BottomCol1.jpg"><font face="verdana" size="1" color="white"><b>» Locação R$: <%response.write formatnumber (rs("preco"),2)%></b>
	<br><font face="verdana" size="1" color="white"><b>» Áudio: <%response.write rs ("condicoes")%><b>
	<br><font face="verdana" size="1" color="white"><b>» Categoria: <%response.write rs ("descricaop")%><b></td></tr>
  </tr>
</table>
<%

RS.MoveNext

contador = contador + 1

If RS.eof then
if colu=col then
response.write "</td><tr><td>"
Response.Write("")

colu=1

else

response.write "</td><td>"

colu=colu+1

end if

rs.movenext


for i=1 to RS.PageCount

response.write "</td></tr></table>"
response.Write("<a href="&nomepagina&"?pagina="&i&">"&replace(i,pagina,"<font color=blue><b>"&i&"</b>")&"</a>  ")

rs.close
(ESTA É ALINHA 91 QUE NÃO TEM NENHUMA INSTRUÇÃO!!!)
end if


Next
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Justamente. Tem um END IF perdido aí dentro do FOR. Deveria está após o NEXT.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Legionario-rs    0

Legionario-rs
Postado

Boa noite pessoal,

 

Bom fiz o que foi indicado mas continua aparecendo um erro e toda a instrução que eu acrescento conforme o que o erro solicita gera outro erro.

 

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A03FA)

'Wend' esperado

/Projetos/Videobluemix/Projeto Piloto Mix/paginacao3.asp, line 94

 

Agora a linha 94 é onde está o "end if".

 

Obrigado pela ajuda agurado mais instruções.

 

Legionario.

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Você tem um while not rs.eof e um if rs.eof perdido aí... entendi nada.

 

Dê uma conferida no seu código inteiro. Sempre que abrir um IF, FOR, WHILE, etc, você tem que fechar...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Legionario-rs    0

Legionario-rs
Postado

Bom...

 

Na verdade o que eu preciso mesmo e o que tentei fazer com o script acima foi de uma maneira tosca confesso mas me falta tempo e um pouco mais de conhecimento para aplicar, inserir uma paginação tipo << 1 2 3 4 5 >> póis o script que eu tenho é exatamente o que preciso e não queria troca-lo por outro. Ser´[a que tem como fazer???

 

Segue o código.

 

Ps. to no desespero!!!

 

<body style="background-color: transparent">

<%
'declarando objetos
dim sql, objConn, rs

SET objConn = Server.CreateObject("AdoDB.Connection")
objConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=loja.mdb"
sql = "SELECT ALL * FROM produtos ORDER BY Rnd(Int(Now()*[id])-Now()*[cat_id])"

Set rs = objConn.Execute(sql)

'numero de colunas
col=3

if not rs.eof then

' esta var armazena o numero de colunas

colu=1

'começamos a tabela
response.write "<table><tr><td>"

'iniciamos o loop´
while not rs.eof

%>
<table valign=top width=205 border="1" cellspacing="2" cellpadding="7">

  <tr>
	<td background="images/BottomCol1.jpg"><font face="verdana" size="1" color="white"><b><%response.write rs ("nome")%><b></td></tr>
	<td align="center"><center><a href="detalhe_acervo.asp?id=<%=rs("id")%>" target="_self"><%=imagem%><img src='images/<%response.write rs ("imagem")%>' height="100" border="0" alt="Clique na imagem e veja os detalhes"/></a></tr>
  <tr>
	<td background="images/BottomCol1.jpg"><font face="verdana" size="1" color="white"><b>» Locação R$: <%response.write formatnumber (rs("preco"),2)%></b>
	<br><font face="verdana" size="1" color="white"><b>» Áudio: <%response.write rs ("condicoes")%><b>
	<br><font face="verdana" size="1" color="white"><b>» Categoria: <%response.write rs ("descricaop")%><b></td></tr>
  </tr>
</table>
<%

'fazemos  a contagem das colunas e se tiver no limite faz outra linha
if colu=col then
response.write "</td><tr><td>"

'reinicia contagem
colu=1

else

' como não alcançou o limite fazemos outra coluna
response.write "</td><td>"

'somamos +1 na variavel colu
colu=colu+1

end if

'terminamos o loop
rs.movenext
wend

response.write "</td></tr></table>"

end if
rs.close

set rs=nothing

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

cara o script anterior que você tem, sem ser esse ai de cima, está muito confuso, você tem vários recordset, tem um que está antes do sql, cara tá muito confuso, aconselho você a refazer o código, ou ver algum no laboratório, está confuso demais man!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Legionario-rs    0

Legionario-rs
Postado

Boa noite,

 

Peguei um script de paginação que achei no laboratório de scripts e já fiz alguimas alterações gostaria de saber de existe a possibilidade de faze-lo ser exibido em mais de uma coluna. Ele está em 1 coluna de 4 registros (sei que a quantidade de registros podem variar é só alterar no script) mas quero saber quanto as colunas tem como deixr com 2 ou 3 colunas?

 

Obrigado pela força.

 

Legionario.

 

<style>
<!--
a {text-decoration:none}
a:hover {text-decoration:underline; color:black}
a:active {text-decoration:none; color:black}
a:visited {text-decoration:underline; color:black}
-->
</style>
<title>Paginação feita por CrazyBaby</title>
<%
StringDeConexao = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("../banco/loja.mdb")
Set Conexao = Server.CreateObject("AdoDb.Connection")
Conexao.Open StringDeConexao

Set RS = Server.CreateObject("AdoDb.RecordSet")

nomepagina = "paginacao4.asp" 'IMPOTANTE:Coloque aqui o nome desta página.
registros = 4

RS.CacheSize = registros
RS.PageSize = registros

SQL = "Select * from produtos"

RS.Open SQl,Conexao,3,3

If RS.Eof then
Response.Write("Nenhum registro encontrado.")

else

if Request.QueryString("pagina")="" then
pagina = 1
elseif cint(Request.QueryString("pagina"))<1 then
pagina = 1
elseif cint(Request.QueryString("pagina"))>RS.PageCount then
pagina = RS.PageCount
else pagina=Request.QueryString("pagina")
end if
end if

RS.AbsolutePage = pagina

contador = 0

While contador<registros and not RS.eof

%>
<table valign=top width=205 border="1" cellspacing="2" cellpadding="7">

  <tr>
	<td background="images/BottomCol1.jpg"><font face="verdana" size="1" color="white"><b><%response.write rs ("nome")%><b></td></tr>
	<td align="center"><center><a href="detalhe_acervo.asp?id=<%=rs("id")%>" target="_self"><%=imagem%><img src='images/<%response.write rs ("imagem")%>' height="100" border="0" alt="Clique na imagem e veja os detalhes"/></a></tr>
  <tr>
	<td background="images/BottomCol1.jpg"><font face="verdana" size="1" color="white"><b>» Locação R$: <%response.write formatnumber (rs("preco"),2)%></b>
	<br><font face="verdana" size="1" color="white"><b>» Áudio: <%response.write rs ("condicoes")%><b>
	<br><font face="verdana" size="1" color="white"><b>» Categoria: <%response.write rs ("descricaop")%><b></td></tr>
  </tr>
</table>
<%

RS.MoveNext

contador = contador + 1

If RS.eof then
Response.Write("")
end if

Wend

for i=1 to RS.PageCount

response.Write("<a href="&nomepagina&"?pagina="&i&">"&replace(i,pagina,"<font color=blue><b>"&i&"</b>")&"</a>  ")

Next
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

com este script , você pode exibir em 3 ou + colunas

 

SqlStr = "SELECT Employee, PhNum " & _
		   "FROM TheTable " & _
		   "ORDER BY Employee "

Set objRS = Server.CreateObject ("ADODB.RecordSet")
objrs.Open SqlStr, ConStr, adOpenStatic, adLockOptimistic,adCmdText
   
   'Este é quantas colunas você quiser
   NumCols = 3

   NumRecs = objrs.RecordCount
   NumEachCol = NumRecs/NumCols
   
   If (NumRecs Mod NumCols) > 0 Then
	  TempNumRecs = NumRecs + (NumCols-(NumRecs Mod NumCols))
	  NumEachCol = TempNumRecs /NumCols
   End If

   Response.Write "<table>"

   Response.Write "<tr>"
   For x = 0 to NumCols - 1
	  ' Coluna Headings
	  Response.Write "<td>Trabalhador</td>"
	  Response.Write "<td>Fone</td>"
   Next
   Response.Write "</tr>"

   For y = 0 to NumEachCol-1
	  Response.Write "<tr>"
	  For x = 0 to NumCols-1
		 'Calcular o próximo 
		 RecNum = y + (NumEachCol * x)
		 'Certifique-se de que não esgotou os registros
		 If RecNum < NumRecs Then
			objrs.MoveFirst
			objrs.Move RecNum
			Response.Write "<td>" & objrs("Employee") & "</td>"
			Response.Write "<td>" & objrs("PhNum") & "</td>"
		 Else
			Response.Write "<td> </td>"
			Response.Write "<td> </td>"
		 End If
	  Next
	  Response.Write "</tr>"
   Next

   Response.Write "</table>"

objrs.Close
Set objRS = Nothing

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