Ir para conteúdo

POWERED BY:

Arquivado

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

BelTavares

erro no asp

Por , em ASP Clássico

Recommended Posts

BelTavares    0

BelTavares
Postado

Olá à todos,

 

Não sei programar direito, mas uso o dreamweaver pra me auxiliar, e tenho obtido sucesso com isso.

Porém, ultimamente, as páginas que contém paginação ou repetição de região estão dando o seguinte erro:

 

Microsoft VBScript runtime error '800a01fb'

An exception occurred: 'MoveNext'

 

/adm/lista_emails.asp, line 277

 

 

Na linha 277 tem isso:

 

<% Repeat1__index=Repeat1__index+1Repeat1__numRows=Repeat1__numRows-1emails.[b]MoveNext[/b]()Wend%>
Não alterei a programação, ou qq outra coisa nas páginas, e isso tem a aparecido, inclusive em outro site que faço e que está hospedado em outro servidor.

 

Uso o MySQL e o seguinte arquivo de conexão:

 

<%' FileName="Connection_ado_conn_string.htm"' Type="ADO" ' DesigntimeType="ADO"' HTTP="false"' Catalog=""' Schema=""Dim MM_xx_STRINGMM_xx_STRING = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=xx; DATABASE=xx; USER=xx; PASSWORD=xx;"%>
Por favor, preciso contar com a ajuda de vcs pois não sei mais como fazer pra essas páginas funcionarem

 

Aguardo respostas

 

Um grd abraço

 

Isabel

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

tente isso cara

 

<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
emails.MoveNext : Wend
%>

Verifique se "emails" é a variável correta para o Loop

Compartilhar este post

Link para o post
Compartilhar em outros sites

BelTavares    0

BelTavares
Postado

Segue code:

 

<%@LANGUAGE="VBSCRIPT"%><!--#include file="../Connections/Vodu.asp" --><%Dim emailsDim emails_numRowsSet emails = Server.CreateObject("ADODB.Recordset")emails.ActiveConnection = MM_Vodu_STRINGemails.Source = "SELECT * FROM voduband.email ORDER BY email ASC"emails.CursorType = 0emails.CursorLocation = 2emails.LockType = 1emails.Open()emails_numRows = 0%><%Dim Repeat1__numRowsDim Repeat1__indexRepeat1__numRows = -1Repeat1__index = 0emails_numRows = emails_numRows + Repeat1__numRows%><%'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variablesDim emails_totalDim emails_firstDim emails_last' set the record countemails_total = emails.RecordCount' set the number of rows displayed on this pageIf (emails_numRows < 0) Then  emails_numRows = emails_totalElseif (emails_numRows = 0) Then  emails_numRows = 1End If' set the first and last displayed recordemails_first = 1emails_last  = emails_first + emails_numRows - 1' if we have the correct record count, check the other statsIf (emails_total <> -1) Then  If (emails_first > emails_total) Then	emails_first = emails_total  End If  If (emails_last > emails_total) Then	emails_last = emails_total  End If  If (emails_numRows > emails_total) Then	emails_numRows = emails_total  End IfEnd If%><%' *** Recordset Stats: if we don't know the record count, manually count themIf (emails_total = -1) Then  ' count the total records by iterating through the recordset  emails_total=0  While (Not emails.EOF)	emails_total = emails_total + 1	emails.MoveNext  Wend  ' reset the cursor to the beginning  If (emails.CursorType > 0) Then	emails.MoveFirst  Else	emails.Requery  End If  ' set the number of rows displayed on this page  If (emails_numRows < 0 Or emails_numRows > emails_total) Then	emails_numRows = emails_total  End If  ' set the first and last displayed record  emails_first = 1  emails_last = emails_first + emails_numRows - 1    If (emails_first > emails_total) Then	emails_first = emails_total  End If  If (emails_last > emails_total) Then	emails_last = emails_total  End IfEnd If%><HTML><HEAD><TITLE>Painel de Controle</TITLE><LINK href="../adm/arquivos/css.css" type=text/css rel=stylesheet><STYLE type=text/css><!--a{  color: #666666; text-decoration: none}a:hover {  color: #000000; text-decoration: underline}#main{  color: #ffffff; text-decoration: none}#main:hover {  color: #ffffff; text-decoration: underline}#main1{  color: #666666; text-decoration: none}#main1:hover {  color: #666666; text-decoration: underline}--></STYLE><style type="text/css"><!--.fonte-cinzaC {	FONT-WEIGHT: normal; FONT-SIZE: 11px; COLOR: #6d7077; FONT-FAMILY: tahoma; TEXT-DECORATION: none}.copyright {	font-family: Verdana, Arial, Helvetica, sans-serif;	font-size: 10px;	color: #FFFFFF;}.style6 {color: #666666}.style8 {	color: #FFFFFF;	font-weight: bold;}--></style></HEAD><BODY leftMargin=0 background=../adm/arquivos/fundo.gif topMargin=0  marginheight="0" marginwidth="0"><TABLE cellSpacing="0" cellPadding="0" width="100%" border="0">  <TR>	<TD height="64" colspan="3" vAlign=top>	  <table width="781" border="0" cellpadding="0" cellspacing="0" bgcolor="#BDCAD5">		<tr>		  <td width="781"><a href="inicio.asp"><img src="arquivos/topo.gif" width="668" height="100" border="0"></a></td>		</tr>	  </table>	</TD>  </TR>  <TR>	<TD width="200" vAlign=top><TABLE cellSpacing="0" cellPadding="0" width="200" border="0">	  <TR>		<TD align=middle><div align="left"><img src="../images/spacer.gif" width="10" height="20"></div>			<IMG height="12" src="../adm/arquivos/bar_up.gif" width="200"></TD>	  </TR>	  <TR>		<TD align=middle><TABLE cellSpacing="0" cellPadding="0" width="100%" border="0">			<TR>			  <TD width="17"><TABLE cellSpacing="0" cellPadding="0" width="100%"  bgColor="#ffffff" border="0">				  <TR>					<TD height="250" bgcolor="#95A8A4"> </TD>				  </TR>			  </TABLE></TD>			  <TD valign="top" bgcolor="#eaeeef"><TABLE width="100%" border="0" cellPadding="0" cellSpacing="0">				  <TR>					<TD width="5" height="1" align=right></TD>					<TD colspan="2" class=fonte-item> </TD>				  </TR>				  <TR>					<TD height=1 rowspan="2" align=right></TD>					<TD colspan="2" ><span class="fonte"><img src="../adm/mapa/img/base.gif" width="19" height="18" align="absmiddle"> Vodu</span></TD>				  </TR>				  <TR>					<TD height="19" valign="middle" background="../adm/mapa/img/line.gif" ><img src="../adm/mapa/img/main.gif" width="18" height="18"></TD>					<TD width="160" height="19" valign="middle" ><img src="../adm/mapa/img/folderopen.gif" width="18" height="18" align="absmiddle"> <span class="fonte">Agenda</span></TD>				  </TR>				  <TR>					<TD height=2 rowspan="5" align=right></TD>					<TD width="18" background="../adm/mapa/img/line.gif" class=fonte-item> </TD>					<TD class=fonte-item><img src="../adm/mapa/img/joinbottom.gif" width="18" height="18"><img src="../adm/mapa/img/page.gif" width="18" height="18"><span class="fonte"><a id="main1" href="cadastro_agenda.asp">Cadastro</a></span></TD>				  </TR>				  <TR>					<TD width="18" background="../adm/mapa/img/line.gif" class=fonte-item><img src="../adm/mapa/img/main.gif" width="18" height="18"></TD>					<TD class=fonte-item><img src="../adm/mapa/img/folderopen.gif" width="18" height="18" align="absmiddle"> <span class="fonte-cinzaC">Fotos</span></TD>				  </TR>				  <TR>					<TD background="../adm/mapa/img/line.gif" class=fonte-item> </TD>					<TD class=fonte-item><img src="../adm/mapa/img/join.gif" width="18" height="18"><img src="../adm/mapa/img/page.gif" width="18" height="18"><span class="fonte"><a id="main1" href="cadastro_fotos.asp">Cadastro</a></span></TD>				  </TR>				  <TR>					<TD background="../adm/mapa/img/line.gif" class=fonte-item><img src="../adm/mapa/img/main.gif" width="18" height="18"></TD>					<TD class=fonte-item><img src="../adm/mapa/img/folderopen.gif" width="18" height="18" align="absmiddle"> <span class="style6">Notícias</span></TD>				  </TR>				  <TR>					<TD background="../adm/mapa/img/line.gif" class=fonte-item> </TD>					<TD class=fonte-item><img src="../adm/mapa/img/joinbottom.gif" width="18" height="18"><img src="../adm/mapa/img/page.gif" width="18" height="18"><span class="fonte"><a id="main1" href="cad_noticias.asp">Cadastro</a></span></TD>					</TR>				  <TR>					<TD height=0 align=right></TD>					<TD background="../adm/mapa/img/line.gif" class=fonte-item><img src="../adm/mapa/img/main.gif" width="18" height="18"></TD>					<TD class=fonte-item><img src="../adm/mapa/img/folderopen.gif" width="18" height="18" align="absmiddle"> <a id="main1" href="guestbook_lista.asp">Guestbook</a></TD>				  </TR>				  <TR>					<TD height=0 align=right></TD>					<TD background="../adm/mapa/img/line.gif" class=fonte-item><img src="../adm/mapa/img/main.gif" width="18" height="18"></TD>					<TD class=fonte-item><img src="../adm/mapa/img/folderopen.gif" width="18" height="18" align="absmiddle"> <a id="main1" href="lista_emails.asp">Lista de e-mails </a></TD>				  </TR>				  <TR>					<TD height=0 align=right></TD>					<TD colspan="2" class=fonte-item><span class="fonte"><img src="../adm/mapa/img/base.gif" width="19" height="18" align="absmiddle"> <a href="http://www.voduband.com" target="_blank" id="main1">Site Vodu </a></span></TD>				  </TR>				  <TR>					<TD height=0 align=right></TD>					<TD colspan="2" class=fonte-item> </TD>				  </TR>				  <TR>					<TD height=1 align=right></TD>					<TD colspan="2" class=fonte-item><span class="fonte"><img src="../adm/mapa/img/base.gif" width="19" height="18" align="absmiddle"> <a id="main1" href="../adm/logout.asp"><strong>Sair</strong></a></span></TD>				  </TR>			  </TABLE></TD>			</TR>		</TABLE></TD>	  </TR>	  <TR>		<TD align=middle><IMG height=12 src="../adm/arquivos/bar_down.gif" width=200></TD>	  </TR>	</TABLE></TD>	<TD width="10"> </TD>	<TD vAlign=top>	  <TABLE cellSpacing=0 cellPadding=0 width=570 border=0>		<TR>		  <TD class=fonte-item> 			</TD>		</TR>		<TR>		  <TD height=10><IMG height=10 src="../adm/arquivos/mio_br_top.gif" width=571></TD>		</TR>		<TR>		  <TD class=borda-lados bgColor=#ffffff>			<TABLE cellSpacing=0 cellPadding=0 width=569 border=0>			  <TR>				<TD height=22 align=middle bgcolor="#E0E0E0" class="fonte-cinza"><table width="100%" border="0" cellpadding="0" cellspacing="5">				  <tr>					<td width="73%" height="25" bgcolor="#E0E0E0" class="fonte-cinza"><strong>    Lista de e-mails cadastrados no site </strong></td>					<td width="27%" bgcolor="#E0E0E0" class="fonte-cinza"><div align="center"><%=date%></div></td>				  </tr>				</table></TD>			  </TR>			  <TR>				<TD align=middle height=1><IMG height=1 src="../adm/arquivos/l_pix_cinza.gif" width=569></TD>			  </TR>			</TABLE>			<TABLE cellSpacing=5 cellPadding=0 width="100%" bgColor=#fafafa border=0>			  <TR>				<TD width="578" height=25 align=middle class="fonte"><div align="left">				  <table width="100%" border="0" cellpadding="0" cellspacing="5">					<tr>					  <td height="31" valign="top"><p><span class="fonte"><font color="#666666">Selecione os e-mails abaixo.<br>						</font>Copie e cole em uma mensagem de e-mail (Outlook Express)<br>						<br>						Obs: cole os e-mails no campo Cco (Com cópia oculta)<font color="#666666"> do Outlook Express, assim nenhum e-mail será divulgado para os demais destinatários. </font></span><font color="#666666" class="fonte"><br>						</font></p>						</td>					</tr>				  </table>				  </div></TD>			  </TR>			  <TR>				<TD height=10 align=middle> </TD>			  </TR>			  <TR>				<TD height=10 align=middle class="fonte">Total de e-mails cadastrados: <strong><%=(emails_total)%></strong></TD>			  </TR>			  <TR>				<TD height=10 align=middle><table width="100%"  border="0" cellpadding="0" cellspacing="5">				  <tr bgcolor="#9FA2A8">					<td height="20"><div align="center"><span class="fonte-cinzaC"><span class="style8">e-mails</span></span></div></td>					</tr>				  <% While ((Repeat1__numRows <> 0) AND (NOT emails.EOF)) %>					<tr>					  <td bgcolor="#F2F2F2" class="fonte-cinza"><%=(emails.Fields.Item("email").Value)%></td>					</tr><%Repeat1__index=Repeat1__index+1Repeat1__numRows=Repeat1__numRows-1emails.MoveNext : Wend%>					<tr>					<td><div align="center"> </div></td>				  </tr>				</table></TD>			  </TR>			  <TR>				<TD height=25 align=middle> </TD>			  </TR>			</TABLE>			<TABLE cellSpacing=0 cellPadding=0 width=569 border=0>			  <TR>				<TD align=middle height=1><IMG height=1 src="../adm/arquivos/l_pix_cinza.gif" width=569></TD>			  </TR>			</TABLE>		  </TD>		</TR>		<TR>		  <TD height=10><IMG height=10 src="../adm/arquivos/mio_br_bot.gif" width=571></TD>		</TR>	  </TABLE>	  <BR>	</TD>  </TR></TABLE></BODY></HTML><%emails.Close()Set emails = Nothing%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Fabrico    0

Fabrico
Postado

Olá a todos, sei que esta dúvida é bem antiga, mas como passei por isso hoje e vi que esta questão ainda não foi fechada, comecei a verificar com outra página que estava exatamente igual a esta que aparecia este mesmo erro mencionado, porém estava funcionado normalmente.

Verifiquei o banco de dados e vi que os tamanhos dos campos estavam bem altos ex: Varchar(255), baixei para (200), isso no MySQL e funcionou.

 

Abraços!

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