Ir para conteúdo

POWERED BY:

Arquivado

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

designmix

alguem ja viu esse erro???

Por , em ASP Clássico

Recommended Posts

designmix    0

designmix
Postado

galera local funciona normal a minha paginação mais na web não na esse erro

 

Microsoft VBScript runtime error '800a000d' Type mismatch /copa2006/paginacao.asp, line 39

 

resto = cint(NRecords) mod 17IF resto > 0 then paginas = (cint(NRecords) / 17) + 1Elsepagina = NRecords / 17 ---- linha 39End Ifpagina = pagina + 1

o que pode ser isso valeu

Compartilhar este post

Link para o post
Compartilhar em outros sites

AspAL    0

AspAL
Postado

galera local funciona normal a minha paginação mais na web não na esse erro

Microsoft VBScript runtime error '800a000d' Type mismatch /copa2006/paginacao.asp, line 39
resto = cint(NRecords) mod 17IF resto > 0 then paginas = (cint(NRecords) / 17) + 1Elsepagina = NRecords / 17 ---- linha 39End Ifpagina = pagina + 1
o que pode ser isso valeu
tem poucas informações aí... mas creio q pode ser um erro de interpretação do seu código com o banco... os campos do banco estão definidos de forma correta?

Compartilhar este post

Link para o post
Compartilhar em outros sites

designmix    0

designmix
Postado

vou posta o codigo todo

<!--#include file="conn/bib_conexao.asp"--><%call abre_conexaoSet rsMAX = Server.CreateObject("ADODB.Recordset")rsMAX.Open "SELECT COUNT(*) AS NRecords FROM copa", connNRecords = rsMAx("NRecords")rsMAX.CloseSet rsMAX = NothingIf Request.QueryString("pagina") <> "" thenpagina = Request.QueryString("pagina")End IfIf pagina = "" thenpagina = 1End IfIf pagina < 1 ThenResponse.Write"<html><h1>Erro 69</h1></html>"Response.EndEnd IfNumReg = 17 * (pagina - 1)strSQL = "SELECT * FROM copa ORDER BY id"Set rscopa = conn.Execute (strSQL)resto = cint(NRecords) mod 17IF resto > 0 then paginas = (cint(NRecords) / 17) + 1Elsepagina = NRecords / 17End Ifpagina = pagina + 1%><html><head><title>Acessorios</title><link href="estilos.css" rel="stylesheet" type="text/css"><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><script language="javascript">function confirmar(vCodigo){	if (confirm("Os dados vao ser excluidos") == true)	window.location = 'deletar.asp?id='+vCodigo;	}</script></head><body topmargin="0" leftmargin="0" bgcolor="#FFFFFF"><table border="0" cellpadding="0" cellspacing="0" background="images"><tr><td height="539"><table width="100%" border="0" cellspacing="0" cellpadding="0">  <tr>	<td><img src="imagens/topo.jpg" width="780" height="216" border="0" usemap="#Map"></td>  </tr></table>  <table width="100%" border="0" cellspacing="0" cellpadding="0">	<tr>	  <td width="10%"><img src="imagens/esq.jpg" width="78" height="554"></td>	  <td width="79%" valign="top" background="imagens/fundo2.jpg"><p><br>		<br>		<br>	  </p>		<table width="87%" border="0" cellpadding="0" cellspacing="5">		<tr>		  <td width="84%" valign="top" aling="center" height="328"> <div align="center">Pagina <%= int (pagina) -1%> de <%= cint (paginas)%>.<br>			Total de paginas			<%= NRecords%>		  </div>			<table width="100%" border="0" cellspacing="0" cellpadding="0">			  <tr>				<td width="19%">Nomes</td>				<td width="56%">E-mails</td>				<td width="25%">Telefones</td>			  </tr>			</table>			<table width="100%" border="0" cellpadding="0" cellspacing="2" bgcolor="#F4F4F4"><%If NumReg > 0 ThenFor LinkTemp = 1 to NumRegif rscopa.EOF = Flase then rscopa.MoveNextNextEnd If regAtual = 1While Not rscopa.EOF AND regAtual <= 17%>			  <tr>				<td width="19%" bgcolor="#F8FCFF" height="13"><div align="left"><small><font face="Arial"><%= rscopa ("nome")%></font></small> </div></td>				<td height="13" colspan="4" bgcolor="#F9FDFE"><small><font face="Arial"><strong><%= rscopa ("email")%></strong></font></small></td>				<td width="19%" height="13" bgcolor="#F9FDFE"><%= rscopa("tel_1")%></td>				<td width="3%" bgcolor="#F9FDFE"><a href="visualizar.asp?id=<%=rscopa("id")%>"><img src="imagens/f.gif" alt="Visualizar Completo" border="0"></a></td>				<td width="3%" bgcolor="#F9FDFE"><a href="javascript: confirmar(<%=rscopa("id")%>);"><img src="imagens/x.gif" alt="Deletar" height="15" border="0"></a></td>			  </tr>			  <%rscopa.MoveNextMunReg = NumReg + 1regAtual = regAtual + 1Wend%>			</table>			<table align="center">				<tr>				  <%For Linktemp = 1 to paginas %>				  <td><a href="paginacao.asp?pagina=<%= LinkTemp%>"><%= LinkTemp%></a></td>				  <%next%>				  <td align="right" valign="bottom" style="padding-right: 8px;"><% if pagina < paginas then %>					  <a href="paginacao.asp?pagina=<%=(pagina)%>" target="_self"><img src="next.gif" alt="Ir para a próxima página" width="42" height="13" border="0" /></a>					  <% end if %>				  </td>				</tr>			</table></td>		</tr>	  </table>		<%rscopa.Closeset rscopa = Nothingfecha_conexao%></td>	  <td width="11%"><img src="imagens/dir.jpg" width="89" height="554"></td>	</tr>  </table>  <table width="100%" border="0" cellspacing="0" cellpadding="0">	<tr>	  <td><img src="imagens/baixo.jpg" width="780" height="127"></td>	</tr>  </table></td></tr></table> <td width="16%" align="center" valign="top"><p></td><td width="10" align="center" valign="top"></td><map name="Map"><area shape="rect" coords="122,177,263,207" href="promocao.asp"><area shape="rect" coords="310,174,456,211" href="participe.asp"><area shape="rect" coords="498,176,646,207" href="regulamento.asp"></map></body></html>

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