Problemas com array

claytonprog · Julho 13, 2009

Pessoal Boa Tarde!

Estou com um problema de array aqui neste código:

<HTML><HEAD>
<TITLE>Fotos ( Clientes )</TITLE>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<script language=JavaScript>

<!--

codigo = request.querystring("id")

strDBPath = Server.MapPath("painel/db/desing.mdb")
Set cnnSearch = Server.CreateObject("ADODB.Connection")
cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"

strSQL = "SELECT * from tblfotos where id_evento ="&codigo

Set rs = cnnSearch.Execute(strSQL)



NewImg = new Array (
<%Do While Not Rs.EOF%> // o erro está nesta linha  Objeto necessário: ''/foto_ampli.asp, line 21

Response.Write """" & Rs("Foto") & ""","
<%Rs.MoveNext
Loop%>
);



var ImgNum = 0;
var ImgLength = NewImg.length - 1;
//Time delay between Slides in milliseconds
var delay = 1000;
var lock = false;
var run;
function chgImg(direction) {
if (document.images) {
ImgNum = ImgNum + direction;
if (ImgNum > ImgLength) {
ImgNum = 0;
}
if (ImgNum < 0) {
ImgNum = ImgLength;
}
document.slideshow.src = NewImg[ImgNum];
}
}
function auto() {
if (lock == true) {
lock = false;
window.clearInterval(run);
}

else if (lock == false) {
lock = true;
run = setInterval("chgImg(1)", delay);
}
}
//-->
</SCRIPT>

<STYLE type=text/css>
#divContainer {
 Z-INDEX: 0; LEFT: 0px; OVERFLOW: hidden; WIDTH: 700px; POSITION: relative; TOP: 0px; HEIGHT: 373px
}
</STYLE>

<META content="MSHTML 6.00.2900.2668" name=GENERATOR></HEAD>
<BODY bgColor=#333333 >
<TABLE borderColor=#000000 height=373 cellSpacing=0 cellPadding=0 width=700 align=center bgColor=#000000 border=0>
<TR vAlign=top align=left>
  <TD bgColor=#000000 height=373>
  <DIV id=divContainer>
   <TABLE height=373 cellSpacing=0 cellPadding=0 width=700 border=0>
  <TR>
  <TD width=700 height=373>
  <IMG src="painel/imagens/<%=rs("foto")%>" name=slideshow width="700" height="373" align="left" hspace="0">
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<br>
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <TR>
  <TD vAlign=top height=23>
  <DIV align=center><A href="java script:chgImg(-1)"><IMG height=52
  src="esquerda.png" width=52 border=0></A> <A
  href="java script:auto()"><IMG height=52
  src="slide.png" width=52 border=0></A> <A
  href="java script:chgImg(1)"><IMG height=52
  src="direita.png" width=52 border=0></A> </DIV></TD>
  </TR>
</table>
</BODY></HTML>

Rafael Spilki · Julho 13, 2009

Ahm... uhm... e qual seria exatamente esse problema? Acontece algum erro? Se sim, em qual linha?

[]'s Rafael Spilki

claytonprog · Julho 13, 2009

Veja uma coisa interessante! No código abaixo reformulado funciona normalmente porém só traz um registro do banco, eu tenho vários registros só preciso agora de uma ajuda para colocar o while e trazer todos os registros!!

<HTML><HEAD>
<TITLE>Fotos ( Clientes )</TITLE>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">




<script language=JavaScript>
<!--
<%

codigo = request.querystring("id")


Set Conexao = Server.CreateObject("AdoDb.Connection")
Conexao.provider="Microsoft.Jet.OLEDB.4.0"
Conexao.connectionstring=Server.Mappath("painel/db/desing.mdb")
Conexao.open 

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

strSQL = "SELECT * from tblfotos where id_evento ="&codigo
'strSQL = "SELECT * from tblfotos"

rs.Open strSQL, Conexao


if RS.eof then
   response.write "nenhum registro encontrado"
   response.end 'paramos o programa
else



%>


var NewImg=new Array("painel/imagens/<%=RS("foto")%>");


<% end if %>

var ImgNum = 0;
var ImgLength = NewImg.length - 1;
//Time delay between Slides in milliseconds
var delay = 1000;
var lock = false;
var run;
function chgImg(direction) {
if (document.images) {
ImgNum = ImgNum + direction;
if (ImgNum > ImgLength) {
ImgNum = 0;
}
if (ImgNum < 0) {
ImgNum = ImgLength;
}
document.slideshow.src = NewImg[ImgNum];
}
}
function auto() {
if (lock == true) {
lock = false;
window.clearInterval(run);
}

else if (lock == false) {
lock = true;
run = setInterval("chgImg(1)", delay);
}
}

//-->
</SCRIPT>



<STYLE type=text/css>
#divContainer {
 Z-INDEX: 0; LEFT: 0px; OVERFLOW: hidden; WIDTH: 700px; POSITION: relative; TOP: 0px; HEIGHT: 373px
}
</STYLE>

<META content="MSHTML 6.00.2900.2668" name=GENERATOR></HEAD>
<BODY bgColor=#333333 >
<TABLE borderColor=#000000 height=373 cellSpacing=0 cellPadding=0 width=700 align=center bgColor=#000000 border=0>
<TR vAlign=top align=left>
  <TD bgColor=#000000 height=373>
  <DIV id=divContainer>
   <TABLE height=373 cellSpacing=0 cellPadding=0 width=700 border=0>
  <TR>
  <TD width=700 height=373>
  <IMG src="painel/imagens/<%=rs("foto")%>" name=slideshow width="700" height="373" align="left" hspace="0">
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<br>
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <TR>
  <TD vAlign=top height=23>
  <DIV align=center><A href="java script:chgImg(-1)"><IMG height=52
  src="esquerda.png" width=52 border=0></A> <A
  href="java script:auto()"><IMG height=52
  src="slide.png" width=52 border=0></A> <A
  href="java script:chgImg(1)"><IMG height=52
  src="direita.png" width=52 border=0></A> </DIV></TD>
  </TR>
</table>
</BODY></HTML>

Jonathan Queiroz · Julho 13, 2009

Seria +- isso:

do while not rs.eof
response.write(rs("valor") & "<br>")
rs.movenext
loop

claytonprog · Julho 14, 2009

Veja como ficou!! O grande problema é que quando se coloca o while dá esse erro aqui:

ADODB.Field (0x80020009)

BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.

<HTML><HEAD>
<TITLE>Fotos ( Clientes )</TITLE>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">




<script language=JavaScript>
<!--
<%

codigo = request.querystring("id")


Set Conexao = Server.CreateObject("AdoDb.Connection")
Conexao.provider="Microsoft.Jet.OLEDB.4.0"
Conexao.connectionstring=Server.Mappath("painel/db/desing.mdb")
Conexao.open 

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

strSQL = "SELECT * from tblfotos where id_evento ="&codigo

rs.Open strSQL, Conexao


if RS.eof then
   response.write "nenhum registro encontrado"
   response.end 'paramos o programa
else

%>


%>
var NewImg=new Array(
<%
while rs.EOF=false

%>"painel/imagens/<%=RS("foto")%>,"<%

rs.MoveNext : wend
%>);

<% end if %>

var ImgNum = 0;
var ImgLength = NewImg.length - 1;
//Time delay between Slides in milliseconds
var delay = 1000;
var lock = false;
var run;
function chgImg(direction) {
if (document.images) {
ImgNum = ImgNum + direction;
if (ImgNum > ImgLength) {
ImgNum = 0;
}
if (ImgNum < 0) {
ImgNum = ImgLength;
}
document.slideshow.src = NewImg[ImgNum];
}
}
function auto() {
if (lock == true) {
lock = false;
window.clearInterval(run);
}

else if (lock == false) {
lock = true;
run = setInterval("chgImg(1)", delay);
}
}

//-->
</SCRIPT>



<STYLE type=text/css>
#divContainer {
 Z-INDEX: 0; LEFT: 0px; OVERFLOW: hidden; WIDTH: 700px; POSITION: relative; TOP: 0px; HEIGHT: 373px
}
</STYLE>

<META content="MSHTML 6.00.2900.2668" name=GENERATOR></HEAD>
<BODY bgColor=#333333 >
<TABLE borderColor=#000000 height=373 cellSpacing=0 cellPadding=0 width=700 align=center bgColor=#000000 border=0>
<TR vAlign=top align=left>
  <TD bgColor=#000000 height=373>
  <DIV id=divContainer>
   <TABLE height=373 cellSpacing=0 cellPadding=0 width=700 border=0>
  <TR>
  <TD width=700 height=373>
  <IMG src="painel/imagens/<%=rs("foto")%>" name=slideshow width="700" height="373" align="left" hspace="0">
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
<br>
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <TR>
  <TD vAlign=top height=23>
  <DIV align=center><A href="java script:chgImg(-1)"><IMG height=52
  src="esquerda.png" width=52 border=0></A> <A
  href="java script:auto()"><IMG height=52
  src="slide.png" width=52 border=0></A> <A
  href="java script:chgImg(1)"><IMG height=52
  src="direita.png" width=52 border=0></A> </DIV></TD>
  </TR>
</table>
</BODY></HTML>

Jonathan Queiroz · Julho 17, 2009

Ao invés de while...wend tente do while...loop

bareta · Julho 17, 2009

<%
x=""
while not rs.EOF

x=x&"painel/imagens/<%=RS("foto")%>,"

rs.MoveNext
wend
%>
var NewImg=new Array(<%=left(x,Len(x)-1)%>);

Entrar

Problemas com array

Pergunta

claytonprog

Link para o comentário

Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

Rafael Spilki

Link para o comentário

Compartilhar em outros sites

claytonprog

Link para o comentário

Compartilhar em outros sites

Jonathan Queiroz

Link para o comentário

Compartilhar em outros sites

claytonprog

Link para o comentário

Compartilhar em outros sites

Jonathan Queiroz

Link para o comentário

Compartilhar em outros sites

bareta

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades