Ir para conteúdo
Fórum Script Brasil
  • 0

Erro Microsoft Vbscript Compilation Error '800a040e'

PRISCILA STOCHINI

Perguntado por PRISCILA STOCHINI,

 Share

Pergunta

PRISCILA STOCHINI

PRISCILA STOCHINI

Postado
Postado

Pessoal, estou com esse erro...

Microsoft VBScript compilation error '800a040e'

'loop' without 'do'

/suporte/relatorio_FILTRO.asp, line 133

Loop

^

Já tirei e coloquei tudo que era possivel no código e não consigo fazer.

é um relatorio com uma especia de "filtros"...

Quem pode me auxiliar.???

 <% 

'**************************
'RECEBENDO AS INFORMAÇÔES
'**************************

vdata = request.querystring ("data")
If data <> "" Then
sql = sql & " where data='"&vdata&"'"
End If

vcodigo = request.querystring ("codigo")
If vcodigo <> "" Then
sql = sql & " where codigo='"&vcodigo&"'"
End If

vusuario = request.querystring ("usuario")
If vusuario <> "" Then
sql = sql & " where usuario='"&vusuario&"'"
End If

vddd = request.querystring ("ddd")
If vddd <> "" Then
sql = sql & " where ddd='" & vddd &"'"
End If

vtipo = request.querystring ("tipo")
If vtipo <> "" Then
sql = sql & " where tipo='" & vtipo &" '"
End If

vsoftware = request.querystring ("software")
If vsoftware <> "" Then
sql = sql & " where software='" & vsoftware&"'"
End If


sql = "Select * From suptec Where pendencia = true ORDER BY data DESC"
    
Set rs = bco.Execute(sql)

if rs.eof then 
Response.Write("<p align=""center"">Não há pendências.</p>") 
else

count = 0
Do While Not rs.eof
If count Mod 2 = 0 then
%>
    <table width="513" border="1" align="center" cellspacing="1" bordercolor="#CCCCCC">
    <tr>
      <td colspan="10"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 16px; font-weight: bold">Relat&oacute;rio de Pend&ecirc;ncias de D&uacute;vidas do SIM </span></div></td>
    </tr>
    <tr>
      <td width="28"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Data</span></div></td>
      <td width="44"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">C&oacute;digo</span></div></td>
      <td width="49"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Usuario</span></div></td>
      <td width="49"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Contato</span></div></td>
      <td width="26"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">DDD</span></div></td>
      <td width="26"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Tipo</span></div></td>
      <td width="58"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Software</span></div></td>
      <td width="48"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Assunto</span></div></td>
      <td width="44"><span class="style7">Arquivo</span></td>
      <td width="88"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Resposta</span></div></td>
      </tr>
    <%else%>
    <tr>
      <td nowrap="nowrap"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><a href="relatorio_FILTRO.asp?data=<%=rs("data")%>"><%=rs("data")%></a></span></div></td>
      <td nowrap="nowrap"><div align="left"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><a href="relatorio_FILTRO.asp?codigo=<%=rs("codigo")%>"><%=rs("codigo")%></a></span></div></td>
      <td nowrap="nowrap"><div align="left"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><a href="relatorio_FILTRO.asp?usuario=<%=rs("usuario")%>"><%=rs("usuario")%></a></span></div></td>
      <td nowrap="nowrap"><div align="left"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("contato")%></span></div></td>
      <td nowrap="nowrap"><div align="left"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><a href="relatorio_FILTRO.asp?ddd=<%=rs("ddd")%>"><%=rs("ddd")%></a></span></div></td>
      <td nowrap="nowrap"><div align="left"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><a href="relatorio_FILTRO.asp?tipo=<%=rs("tipo")%>"><%=rs("tipo")%></a></span></div></td>
      <td nowrap="nowrap"><div align="left"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><a href="relatorio_FILTRO.asp?software=<%=rs("software")%>"><%=rs("software")%></a></span></div>
      <div align="center"></div></td>
      <td nowrap="nowrap"><div align="left"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("resumo")%></span></div></td>
      <td width="44" nowrap="nowrap"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("arquivo")%></span></td>
      <td nowrap="nowrap"><div align="center">
        <div align="center"><a href="resposta_suporte.asp?id=<%=rs("id")%>" class="link02 style9">[Responder]</a></div>
      </div></td>
      </tr>
   <%
count = count + 1
rs.movenext
Loop 
End If
rs.close
Set rs=nothing
bco.close
Set rs=nothing

%>

Link para o comentário
Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

  • 0
Marcos-rj

Marcos-rj

Postado
Postado

O que esta linha aqui faz?

If count Mod 2 = 0 then

Tenta assim:

<% 

'**************************
'RECEBENDO AS INFORMAÇÔES
'**************************

vdata = request.querystring ("data")
If data <> "" Then
sql = sql & " where data='"&vdata&"'"
End If

vcodigo = request.querystring ("codigo")
If vcodigo <> "" Then
sql = sql & " where codigo='"&vcodigo&"'"
End If

vusuario = request.querystring ("usuario")
If vusuario <> "" Then
sql = sql & " where usuario='"&vusuario&"'"
End If

vddd = request.querystring ("ddd")
If vddd <> "" Then
sql = sql & " where ddd='" & vddd &"'"
End If

vtipo = request.querystring ("tipo")
If vtipo <> "" Then
sql = sql & " where tipo='" & vtipo &" '"
End If

vsoftware = request.querystring ("software")
If vsoftware <> "" Then
sql = sql & " where software='" & vsoftware&"'"
End If


sql = "Select * From suptec Where pendencia = true ORDER BY data DESC"
    
Set rs = bco.Execute(sql)

if rs.eof then 
Response.Write("<p align=""center"">Não há pendências.</p>") 
else

count = 0
Do While Not rs.eof
%>
    <table width="513" border="1" align="center" cellspacing="1" bordercolor="#CCCCCC">
    <tr>
      <td colspan="10"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 16px; font-weight: bold">Relat&oacute;rio de Pend&ecirc;ncias de D&uacute;vidas do SIM </span></div></td>
    </tr>
    <tr>
      <td width="28"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Data</span></div></td>
      <td width="44"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">C&oacute;digo</span></div></td>
      <td width="49"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Usuario</span></div></td>
      <td width="49"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Contato</span></div></td>
      <td width="26"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">DDD</span></div></td>
      <td width="26"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Tipo</span></div></td>
      <td width="58"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Software</span></div></td>
      <td width="48"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Assunto</span></div></td>
      <td width="44"><span class="style7">Arquivo</span></td>
      <td width="88"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Resposta</span></div></td>
      </tr>
    <tr>
      <td nowrap="nowrap"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><a href="relatorio_FILTRO.asp?data=<%=rs("data")%>"><%=rs("data")%></a></span></div></td>
      <td nowrap="nowrap"><div align="left"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><a href="relatorio_FILTRO.asp?codigo=<%=rs("codigo")%>"><%=rs("codigo")%></a></span></div></td>
      <td nowrap="nowrap"><div align="left"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><a href="relatorio_FILTRO.asp?usuario=<%=rs("usuario")%>"><%=rs("usuario")%></a></span></div></td>
      <td nowrap="nowrap"><div align="left"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("contato")%></span></div></td>
      <td nowrap="nowrap"><div align="left"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><a href="relatorio_FILTRO.asp?ddd=<%=rs("ddd")%>"><%=rs("ddd")%></a></span></div></td>
      <td nowrap="nowrap"><div align="left"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><a href="relatorio_FILTRO.asp?tipo=<%=rs("tipo")%>"><%=rs("tipo")%></a></span></div></td>
      <td nowrap="nowrap"><div align="left"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><a href="relatorio_FILTRO.asp?software=<%=rs("software")%>"><%=rs("software")%></a></span></div>
      <div align="center"></div></td>
      <td nowrap="nowrap"><div align="left"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("resumo")%></span></div></td>
      <td width="44" nowrap="nowrap"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("arquivo")%></span></td>
      <td nowrap="nowrap"><div align="center">
        <div align="center"><a href="resposta_suporte.asp?id=<%=rs("id")%>" class="link02 style9">[Responder]</a></div>
      </div></td>
      </tr>
<%
count = count + 1
rs.movenext
Loop 
end if
rs.close
Set rs=nothing
bco.close
Set rs=nothing

Link para o comentário
Compartilhar em outros sites
  • 0
PRISCILA STOCHINI

PRISCILA STOCHINI

Postado
  • Autor
Postado 

<form><p>
<input name="id" type="hidden" id="id" value="<%=rs("id")%>"></p>
      
<% 
'**************************
'RECEBENDO AS INFORMAÇÔES
'**************************

vdata = request.querystring ("data")
If data <> "" Then
sql = sql & " where data='"&vdata&"'"
End If

vcodigo = request.querystring ("codigo")
If vcodigo <> "" Then
sql = sql & " where codigo='"&vcodigo&"'"
End If

vusuario = request.querystring ("usuario")
If vusuario <> "" Then
sql = sql & " where usuario='"&vusuario&"'"
End If

vddd = request.querystring ("ddd")
If vddd <> "" Then
sql = sql & " where ddd='" & vddd &"'"
End If

vtipo = request.querystring ("tipo")
If vtipo <> "" Then
sql = sql & " where tipo='" & vtipo &" '"
End If

vsoftware = request.querystring ("software")
If vsoftware <> "" Then
sql = sql & " where software='" & vsoftware&"'"
End If


sql = "Select * From suptec Where pendencia = true ORDER BY data DESC"
    
Set rs = bco.Execute(sql)

if rs.eof then 
Response.Write("<p align=""center"">Não há pendências.</p>") 
else

count = 0
Do While Not rs.eof
%>
    <table width="513" border="1" align="center" cellspacing="1" bordercolor="#CCCCCC">
    <tr>
      <td colspan="10"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 16px; font-weight: bold">Relat&oacute;rio de Pend&ecirc;ncias de D&uacute;vidas do SIM </span></div></td>
    </tr>
    <tr>
      <td width="28"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Data</span></div></td>
      <td width="44"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">C&oacute;digo</span></div></td>
      <td width="49"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Usuario</span></div></td>
      <td width="49"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Contato</span></div></td>
      <td width="26"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">DDD</span></div></td>
      <td width="26"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Tipo</span></div></td>
      <td width="58"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Software</span></div></td>
      <td width="48"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Assunto</span></div></td>
      <td width="44"><span class="style7">Arquivo</span></td>
      <td width="88"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold">Resposta</span></div></td>
      </tr>
    <tr>
      <td nowrap="nowrap"><div align="center"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><a href="relatorio_FILTRO.asp?data=<%=rs("data")%>"><%=rs("data")%></a></span></div></td>
      <td nowrap="nowrap"><div align="left"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><a href="relatorio_FILTRO.asp?codigo=<%=rs("codigo")%>"><%=rs("codigo")%></a></span></div></td>
      <td nowrap="nowrap"><div align="left"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><a href="relatorio_FILTRO.asp?usuario=<%=rs("usuario")%>"><%=rs("usuario")%></a></span></div></td>
      <td nowrap="nowrap"><div align="left"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("contato")%></span></div></td>
      <td nowrap="nowrap"><div align="left"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><a href="relatorio_FILTRO.asp?ddd=<%=rs("ddd")%>"><%=rs("ddd")%></a></span></div></td>
      <td nowrap="nowrap"><div align="left"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><a href="relatorio_FILTRO.asp?tipo=<%=rs("tipo")%>"><%=rs("tipo")%></a></span></div></td>
      <td nowrap="nowrap"><div align="left"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><a href="relatorio_FILTRO.asp?software=<%=rs("software")%>"><%=rs("software")%></a></span></div>
      <div align="center"></div></td>
      <td nowrap="nowrap"><div align="left"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("resumo")%></span></div></td>
      <td width="44" nowrap="nowrap"><span style="font-family: Arial, Helvetica, sans-serif; font-size: 12px;"><%=rs("arquivo")%></span></td>
      <td nowrap="nowrap"><div align="center">
        <div align="center"><a href="resposta_suporte.asp?id=<%=rs("id")%>" class="link02 style9">[Responder]</a></div>
      </div></td>
      </tr>
<%
count = count + 1
rs.movenext
Loop 
end if
rs.close
Set rs=nothing
bco.close
Set rs=nothing
%>

Microsoft VBScript runtime error '800a000d'

Type mismatch

/suporte/relatorio_FILTRO.asp, line 46

O que pode ser!!???

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,2k
    • Posts
      651,9k
×
×
  • Criar Novo...