Ir para conteúdo

POWERED BY:

Arquivado

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

Kibe_Ghost

erro de for...

Por , em ASP Clássico

Recommended Posts

Kibe_Ghost    0

Kibe_Ghost
Postado

Galera.. erro de FOR to ficando malucoo vejamm

 

Ele pega os dados do form e gera uma lista...

 

Abraços...

 

<%Dim operadora, nome, DDD, de, ate, comentariooperadora = Trim(Request.Form("operadora"))nome = Trim(Request.Form("nome"))DDD = Trim(Request.Form("DDD"))de = Trim(Request.Form("de"))ate = Trim(Request.Form("ate"))comentario = Trim(Request.Form("comentario"))%><%Dim intNumFor intNum = de to ate%>Fone: <%=intNum%>,<%=operadora%>,<%=DDD%>,<%=intNum%>,<%comentario%><br><% Next %>

 

:blink:

Compartilhar este post

Link para o post
Compartilhar em outros sites

Kibe_Ghost    0

Kibe_Ghost
Postado

Apareceu o seguinte erroo..Erro de tempo de execução do Microsoft VBScript erro '800a000d' Tipos incompatíveis: 'cint' /gerar_sequencia.asp, line 74 Abraços..

Compartilhar este post

Link para o post
Compartilhar em outros sites

rOcKLoCo    0

rOcKLoCo
Postado

veja se as variaveis DE e ATE estão recebendo mesmo os valores certos!!falows

Compartilhar este post

Link para o post
Compartilhar em outros sites

Kibe_Ghost    0

Kibe_Ghost
Postado

CODIGO COMPLETO

 

VEjam...

 

 

 

ASP [/tr][tr]

 

 

<form name="get" method="post" action="gerar_sequencia.asp">

<table border="1" align="center" cellpadding="5" cellspacing="5">

<tr>

<td colspan="2"><div align="center"><font color="#FF0000" size="3" face="Tahoma"><strong>GERADOR

DE SEQUÊNCIA</strong></font></div></td>

</tr>

<tr bordercolor="#CCCCCC">

<td> <div align="right"><strong><font size="2" face="Tahoma">OPERADORA</font></strong></div></td>

<td> <div align="center"> <strong><font size="2" face="Tahoma">

<input name="operadora" type="text" id="operadora" value="CTBC">

</font></strong></div></td>

</tr>

<tr bordercolor="#CCCCCC">

<td> <div align="right"><strong><font size="2" face="Tahoma">DDD</font></strong></div></td>

<td> <div align="right"><strong><font size="2" face="Tahoma">

<input name="ddd" type="text" id="ddd">

</font></strong></div></td>

</tr>

<tr bordercolor="#CCCCCC">

<td> <div align="right"><strong><font size="2" face="Tahoma">Numero</font></strong></div></td>

<td> <div align="right"> <strong><font size="2" face="Tahoma">

<input name="nome" type="text" id="nome">

</font></strong></div></td>

</tr>

<tr bordercolor="#CCCCCC">

<td> <div align="right"><strong><font size="2" face="Tahoma">NOME</font></strong></div></td>

<td> <div align="right"><strong><font size="2" face="Tahoma">

<input name="nome" type="text" id="nome">

</font></strong></div></td>

</tr>

<tr bordercolor="#CCCCCC">

<td colspan="2"> <div align="center"><strong><font size="2" face="Tahoma">SEQUENCIA</font></strong></div></td>

</tr>

<tr bordercolor="#CCCCCC">

<td> <div align="center"><strong><font size="2" face="Tahoma">DÊ<br>

<input name="de" type="text" id="de">

</font></strong></div></td>

<td> <div align="center"><strong><font size="2" face="Tahoma">ATÉ<br>

</font></strong>

<input name="ate" type="text" id="ate">

<strong><font size="2" face="Tahoma"> </font></strong></div></td>

</tr>

<tr bordercolor="#CCCCCC">

<td colspan="2"><div align="center">

<input name="enviar" type="submit" id="enviar" value="GERAR">

</div></td>

</tr>

</table>

</form>

 

 

<table border="0" cellpadding="0" cellspacing="0">

<%

Dim operadora, nome, DDD, de, ate, comentario

 

operadora = Trim(Request.Form("operadora"))

nome = Trim(Request.Form("nome"))

DDD = Trim(Request.Form("DDD"))

de = Trim(Request.Form("de"))

ate = Trim(Request.Form("ate"))

comentario = Trim(Request.Form("comentario"))

%>

 

<%

Dim intNum

 

 

For intNum = cint(de) to cint(ate)

%>

 

Fone: <%=intNum%>,<%=operadora%>,<%=DDD%>,<%=intNum%>,<%comentario%>

<br>

<% Next %>

 

</table>

[/tr]

 

 

Abraços

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

cara antes do for da um response.write nos valores das citadas variaveis e veja se esta vindo algo que possa ser convertido para numeros...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Kibe_Ghost    0

Kibe_Ghost
Postado

Mesmo erro------------Erro de tempo de execução do Microsoft VBScript erro '800a000d' Tipos incompatíveis: 'cint' /gerar_sequencia.asp, line 77 ------------

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

o cara o que pedi pra fazer não ia corrigir nada era só pra tentar descobrir o erro...posta aqui o que apareceu...

Compartilhar este post

Link para o post
Compartilhar em outros sites

rOcKLoCo    0

rOcKLoCo
Postado

cara, você está mandando o For sem enviar primeiro o formulário, entao nao tem como saber os valores da var DE e ATE, então cria um campo hidden para confirmacao se foi ou nao enviado o form, caso sim, você executa o FOR caso não, ele não faz nada!!falows

Compartilhar este post

Link para o post
Compartilhar em outros sites

Kibe_Ghost    0

Kibe_Ghost
Postado

RESOLVIDOO http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

ASP [/tr][tr]

 

 

<form name="get" method="post" action="gerar_sequencia.asp">

<table border="1" align="center" cellpadding="5" cellspacing="5">

<tr>

<td colspan="2"><div align="center"><font color="#FF0000" size="3" face="Tahoma"><strong>GERADOR

DE SEQUÊNCIA</strong></font></div></td>

</tr>

<tr bordercolor="#CCCCCC">

<td> <div align="right"><strong><font size="2" face="Tahoma">OPERADORA</font></strong></div></td>

<td> <div align="center"> <strong><font size="2" face="Tahoma">

<input name="operadora" type="text" id="operadora" value="CTBC">

</font></strong></div></td>

</tr>

<tr bordercolor="#CCCCCC">

<td> <div align="right"><strong><font size="2" face="Tahoma">DDD</font></strong></div></td>

<td> <div align="right"><strong><font size="2" face="Tahoma">

<input name="ddd" type="text" id="ddd">

</font></strong></div></td>

</tr>

<tr bordercolor="#CCCCCC">

<td> <div align="right"><strong><font size="2" face="Tahoma">Comentario</font></strong></div></td>

<td> <div align="right"><strong><font size="2" face="Tahoma">

<input name="comentario" type="text" id="comentario">

</font></strong></div></td>

</tr>

<tr bordercolor="#CCCCCC">

<td colspan="2"> <div align="center"><strong><font size="2" face="Tahoma">SEQUENCIA</font></strong></div></td>

</tr>

<tr bordercolor="#CCCCCC">

<td> <div align="center"><strong><font size="2" face="Tahoma">DÊ<br>

<input name="de" type="text" id="de">

</font></strong></div></td>

<td> <div align="center"><strong><font size="2" face="Tahoma">ATÉ<br>

</font></strong>

<input name="ate" type="text" id="ate">

<strong><font size="2" face="Tahoma"> </font></strong></div></td>

</tr>

<tr bordercolor="#CCCCCC">

<td colspan="2"><div align="center">

<input name="enviar" type="submit" id="enviar" value="GERAR">

</div></td>

</tr>

</table>

</form>

 

 

<p align="center">

<textarea name="textarea" cols="80" rows="15"><%

Dim intNum

operadora = Trim(Request.Form("operadora"))

DDD = Trim(Request.Form("DDD"))

comentario = Trim(Request.Form("comentario"))

For intNum = Request.Form("de") to Request.Form("ate")

%>

Fone: <%=intNum%>,<%=operadora%>,<%=DDD%>,<%=intNum%>,<%=comentario%>

<% Next %></textarea>

</p>

 

<p> </p>

[/tr]

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