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

Error 800a000d

Coxinha

Perguntado por Coxinha,

 Share

Pergunta

Coxinha

Coxinha

Postado
Postado (editado)

galera,

É o seguinte...

tenho o seguinte código:

<!--#include File="..\conexao.asp"--> <%

'Session("Setor")=630104

Set rs1=Server.CreateObject("ADODB.Recordset")
If Request.QueryString("CICLO")="" Then
SQL="SELECT Ciclos.ciclo FROM Ciclos WHERE (((Ciclos.dtInicial)<= GetDate() ) AND ((Ciclos.dtFinal)+1 <= GetDate() ))"
rs.Open SQL,conn,3,3
CICLO=rs.fields(0)
rs.close
Else
    CICLO = Trim(Request.QueryString("CICLO"))    
End If

ANO = Year(Now())

'if (Month(now()) - CICLO) < 0 Then
'    ANOCIC=Year(Now())-1    
'Else
'    ANOCIC=Year(Now())    
'End If

If cInt(CICLO) > Month(Now()) Then
    ANO = ANO -1
End If

SQL = "SELECT dtInicial, dtFinal FROM Ciclos WHERE (ciclo = " & CICLO & ") AND (ano = " & ANO & ")"

rs.open SQL,conn,3,3

Dim DATAIN
Dim DATAFIM

DATAIN=rs.fields(0)
DATAFIM=rs.fields(1)
rs.close
%>
<html>

<head><link REL="stylesheet" HREF="tipo.css">
&lt;script LANGUAGE="JavaScript">
<!--
function loadpage(){
        var select=eval(document.escolha.Config.selectedIndex);
        var texto=document.escolha.Config.options[select].value
        var splitpos = texto.lastIndexOf(",")
        var url = texto.substring(0,splitpos)
        var top = texto.substring(splitpos+1)

        if(top == 0){
                self.location=url;
        } else {
                parent.location=url;
        }
}
// -->
</script>
<title>Relat&oacute;rio de Revisitas</title>
</head>

<body background="images/fundo.jpg" link="#000000" vlink="#FF00FF" alink="#FFFFFF" topmargin="0">

<table border="0" width="100%" cellspacing="1">
  <tr>
    <td width="28%"><font face="Arial" color="#0080FF"><strong><small><img src="images/unidade.gif" WIDTH="200" HEIGHT="60"></small></strong></font></td>
    <td width="72%"><p align="center"><strong><font face="Arial" color="#0080FF">Relatório de Revisitas do SETOR <%=Session("Setor")%><br>
    </p>
    <form method="POST" action="planilhao1.asp" name="escolha">
      </font><font face="Arial" color="#0000FF"><small><div align="center"><center><p>CARREGANDO CICLO <select size="1" name="Config" onChange="loadpage()" style="font-family: Arial; font-size: 14; background-color: rgb(255,255,255); color: rgb(0,101,202)">
<%
For f=12 to 1 STEP -1

If f<1 Then
    VCICL=12+f
Else
    VCICL=f
End If

if INT(VCICL)=INT(CICLO) Then
   VALORSEL="selected"
Else
   VALORSEL=""
End If

%>
<option <%=VALORSEL%> value="http://www.nutrition.unidade.com/planilhao1rev.asp?CICLO=<%=VCICL%>,0"><%=VCICL%></option>

<%
Next
%>
      </select> ( <%=DATAIN & " a " & DATAFIM%> )</small></p>
      </center></div>
    </form>
    <p><br>
    </font></strong><font face="Arial" color="#0080FF"><small><small>Emitido em <%=Now()%></small></small></font></td>
  </tr>
</table>

<table border="1" width="100%" bordercolor="#FFFFFF" cellspacing="1" cellpadding="0">
  <tr>

    <td align="center" bgcolor="#0080FF"><font face="Arial" color="#FFFFFF"><strong><small><small>SETOR</small></small></strong></font></td>
<%
A=DateDiff("d", DATAIN,DATAFIM)


for f=DATAIN TO DATAFIM

%>

    <td align="center" bgcolor="#0080FF"><font face="Arial" color="#FFFFFF"><strong><small><small><%=DAY(f)%></small></small></strong></font></td>
<%
Next


%>
  </tr>
<%
'Começa 
Set rs10=Server.CreateObject("ADODB.Recordset")
SQL="SELECT Setor FROM Visitas GROUP BY Setor HAVING (Setor IS NOT NULL) ORDER BY Setor"
rs10.open SQL,conn,3,3
while not rs10.eof
d=d+1
'################################################
vet_setor = rs10("setor")

    Set rs4=Server.CreateObject("ADODB.Recordset")

    converte_data_ini = split(DATAIN,"/")
    converte_data_fim = split(DATAFIM,"/")

    dia_ini = converte_data_ini(0)

    mes_ini = converte_data_ini(1)

    ano_ini = converte_data_ini(2)

    dia_fim = converte_data_fim(0)

    mes_fim = converte_data_fim(1)

    ano_fim = converte_data_fim(2)


    SQL4="SELECT * FROM Visitas WHERE  ((Visitas.Setor)='"&vet_setor&"') AND (DataV BETWEEN CONVERT(DATETIME, '"& ano_ini&"-"& mes_ini&"-"&dia_ini &"', 102) AND CONVERT(DATETIME, '"& ano_fim&"-"& mes_fim&"-"&dia_fim &"', 102)) Order by Medico, datav" 
    'response.write SQL4
    x=0
    p=0
    rs4.Open SQL4,conn,3,3
    Dim ids
    do while not rs4.EOF
    x=x+1
    
        id_med = Rs4.fields("id_visita")
        Set conn2=Server.CreateObject("ADODB.Connection")
        Conexao2 = "DRIVER={SQL Server};server=xxxxxxxxxxxx;UID=xxxxxxxxxx;pwd=xxxxxxxxx;Database=Nutrition"
        conn2.open Conexao2
        set rs2 = Server.CreateObject("ADODB.Recordset")
        Med = rs4("medico")

         SQL2="SELECT Visitas.* FROM Visitas WHERE  ((Visitas.Setor)='"&vet_setor&"') AND (Visitas.Medico='" & Med & "') AND (DataV BETWEEN CONVERT(DATETIME, '"& ano_ini&"-"& mes_ini&"-"&dia_ini &"', 102) AND CONVERT(DATETIME, '"& ano_fim&"-"& mes_fim&"-"&dia_fim &"', 102))"
                                                            
        rs2.Open SQL2,conn2
        z=0
        if not rs2.eof then    
        id = rs2("Id_visita")
        id_medico = CStr(id)
    
        if x = 1 then
            med_ant = rs4("medico")
        end if
        while not rs2.eof
        z= z +1    
        rs2.movenext
        wend
            
        
    
        'tot = rs2("total")
        'tot = tot -1
        if z>1 then
        
            if Med = med_ant then 
                
            if p = 0 then
                ids = id_med
                p=1
                else
                ids = ids & ","  & id_med
                end if
                'ids = ids & id_med
                
            end if
        end if
        end if
    
    
        'response.write SQL2    
            %>
            </small></font></td>
              </tr>
            <%
        med_ant = rs4("medico")
    rs4.moveNext
    Loop
    rs4.close
    
    if p=0 then
    
    ids="0"
    
    end if
    
    SQL3 = "Select * from Visitas where id_visita IN("& ids &")"
    
    'response.write SQL3
    'response.end
    
    'termina
    
    
    
    
    
    
    


    'On error Resume Next
    Dim SETOR(90)
    Dim LINKP(90)
    
    SQL="SELECT CadMedicos.Setor FROM CadMedicos GROUP BY CadMedicos.Setor HAVING (((CadMedicos.Setor)='" & vet_setor & "')) ORDER BY CadMedicos.Setor"
    
    rs.Open SQL,conn,3,3
    x=0
    
    Do while Not rs.EOF
    
    For f=DATAIN to DATAFIM
    x=x+1

    SQL1="SELECT Count(Visitas.Medico) AS ContarDeMedico FROM Visitas " & _
         "WHERE (((Visitas.DataV)='" & AAMMDD(Day(f) & "/" & Month(f) & "/" & Year(f)) & "') AND ((Visitas.Setor)='" & Rs.Fields(0) & "') ) and  id_visita IN("& ids &")"
    'response.write SQL1
    'response.end
    rs1.Open SQL1,conn,3,3
    
    SETOR(x)=rs1.Fields(0)
    
    If SETOR(x)<>0 OR SETOR(x)<>"0" Then
    LINKP(x)="<a href='http://www.nutrition.unidade.com/diariodetalherev.asp?DataV=" & f & " & datai=" & DATAIN & " & dataf=" & DATAFIM & "&Setor=" & rs.fields(0) & "&where="& ids &"' target='_blank'>"
    Else
    LINKP(x)=""
    End If
    
    rs1.close
    
    Next
    
    TOTSET=SETOR(1)+SETOR(2)+SETOR(3)+SETOR(4)+SETOR(5)+SETOR(6)+SETOR(7)+SETOR(8)+SETOR(9)+SETOR(10)+SETOR(11)+SETOR(12)+SETOR(13)+SETOR(14)+SETOR(15)+SETOR(16)+SETOR(17)+SETOR(18)+SETOR(19)+SETOR(20)+SETOR(21)+SETOR(22)+SETOR(23)+SETOR(24)+SETOR(25)+SETOR(26)+SETOR(27)+SETOR(28)+SETOR(29)+SETOR(30)+SETOR(31)+SETOR(32)+SETOR(33)+SETOR(34)+SETOR(35)+SETOR(36)+SETOR(37)+SETOR(38)+SETOR(39)+SETOR(40)+SETOR(41)+SETOR(42)+SETOR(43)+SETOR(44)+SETOR(45)+SETOR(46)+SETOR(47)+SETOR(48)+SETOR(49)+SETOR(50)+SETOR(51)+SETOR(52)+SETOR(53)+SETOR(54)+SETOR(55)+SETOR(56)+SETOR(57)+SETOR(58)+SETOR(59)+SETOR(60)
    
    %>
      <tr>
        <td align="center" bordercolor="#0080FF"><font face="Arial" color="#FF00FF"><small><strong><small><%=Rs.Fields(0)%><font face="Arial" color="#000000">-<%=TOTSET%></small></strong></small></font></td>
    
    <%
    
    DATADIFERENCA=DateDiff("d", DATAIN,DATAFIM)
    
    For zz=1 to DATADIFERENCA+1
    
    %>
       <td align="center" bordercolor="#0080FF"><font face="Arial" color="#0080FF"><strong><small><small><%=LINKP(zz)%><%=SETOR(zz)%></a></small></small></strong></font></td>
    <%
    'response.write SQL1
    'response.end
    Next
    
    %>
    
      </tr>
    <%
    
    Rs.MoveNext
    Loop

'################################################
rs10.MoveNext
wend


    






%>
</table>

<p align="center"><a href="java script:window.print()"><img src="i_imprima.gif" border="0" WIDTH="56" HEIGHT="14"></a> </p>
</body>
</html>
se eu rodar essa rotina, listando por um único setor.... ela roda normal.... agora eu preciso listar todos os setores, e coloquei dentro de um while... e sempre dá error.... Erro de tempo de execução do Microsoft VBScript erro '800a000d' Tipos incompatíveis /Novartis/planilhaorev.asp, line 232 que é essa parte 
Dim SETOR(90)
    Dim LINKP(90)

não sei mas o que faço....

e desde já, obrigado a quem leu até aqui, hehehehheh

quem puder me ajudar ficaria muito agradecido!!!!

Valeu gagega!!!!!

Editado por Coxinha
Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0
Carlos Munhoz

Carlos Munhoz

Postado
Postado

Ola pessoal, direto do tunel do tempo... sou meio leigo neste assunto, porem preciso resolver isso...

Estou com este problema e não consigo resolvel, alguém pode me ajudar?

Está me retornando este erro:

Erro de tempo de execução do Microsoft VBScript erro '800a000d'

Tipos incompatíveis: 'abre_conexao'

/painelCtrl/ADM_check_usuario.asp, line 20

______________________

Meu código está assim:

<%

'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#

' Loja Exemplo

'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#

%>

<!--#INCLUDE FILE="funcoes/ADM_funcoes_pedidos.asp"-->

<!--#INCLUDE FILE="../funcoes/funcoes_mail.asp"-->

<!--#INCLUDE FILE="../funcoes/funcoes.asp" -->

<!--#INCLUDE FILE="../funcoes/funcoes_valida.asp" -->

<%

'Carrega a configuração dos caminhos a serem usuados na Loja

Call identifica_caminhos()

Call Valida_Request()

varLang = Application("varLang")

varSkin = "default"

'Abre o banco de dados

linha 20 Call abre_conexao(conexao)

If request("alterar") <> "" And Session("StatusSenha") = "inicial" Then

Conexao.execute "UPDATE Usuarios_admin SET chave_admin ='"& Request.Form("senha") &"', status='0' WHERE user_id_admin = '" & request("usuario") & "'"

Session("StatusSenha") = ""

End If

If Request.Form("senha") <> "" or Request("usuario") <> "" Then

senha = Request.Form("senha")

Set RS_pass = Server.CreateObject("ADODB.Recordset")

SQL = " SELECT user_id_admin, nome_usuario, email_usuario, ddd_usuario, fone_usuario, chave_admin, perfil_usuario, status FROM Usuarios_admin WHERE user_id_admin='"&Request("usuario")&"' and status <> 1 "

RS_pass.Open SQL,Conexao,3,3

If RS_pass.Eof Then

RS_pass.Close

Conexao.Close

set RS_pass = nothing

set Conexao = nothing

msgLogin = "?msgLogin=" & Server.URLEncode("USUÁRIO NÃO CADASTRADO.")

Response.Redirect "default.asp" & msgLogin

Else

acao = request("acao")

If (acao = "esquecisenha") Then

envia_senha = Envia_mail_senha(Request("usuario"),"admin",adicional)

msgLogin = "?msgLogin=" & Server.URLEncode("SENHA ENVIADA COM SUCESSO PARA O E-MAIL CADASTRADO.")

If request("url_redirect") <> "" Then

Response.Redirect request("url_redirect")

Else

Response.Redirect "default.asp" & msgLogin

End if

response.end

End If

End If

If Request("usuario") = RS_pass("user_id_admin") and senha = RS_pass("chave_admin") then

session("nome_usuario") = RS_pass("nome_usuario")

session("perfil_usuario") = RS_pass("perfil_usuario")

session("LogadoAdmin") = "LogadoAdmin"

session("usuario_admin") = RS_pass("user_id_admin")

'Verifica se a senha do usuário é inicial

If RS_pass("status") = "2" Then

Session("StatusSenha") = "inicial"

End if

Else

msgLogin = "?msgLogin=" & Server.URLEncode("DADOS INVÁLIDOS.")

Response.Redirect "default.asp" & msgLogin

End if

RS_pass.Close

set RS_pass = nothing

End If

'Destroi objeto

Set oEncryptor = Nothing

'Fecha o banco de dados

Call Fecha_conexao

If Session("StatusSenha") = "inicial" Then

%>

<HTML>

<HEAD>

<TITLE> <%=Application("NomeLoja")%> </TITLE>

</HEAD>

<body bgcolor="#EFEFEF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<table width="778" height="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">

<tr>

<td width="1" bgcolor="#CCCCCC"><img src="images/regua1x1.gif" height="1"></td>

<td valign="top">

<!--##################################################################################-->

<table width="778" height="100%" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>

<td height="45"><!--#INCLUDE FILE="ADM_layout_inicio.asp"--></td>

</tr>

<tr>

<td height="1" bgcolor="#CCCCCC"><img src="images/regua1x1.gif" height="1"></td>

</tr>

<tr>

<td width="100%" bgcolor="#FFFFFF" valign="top" style="padding:10px;" align="center">

<!--##################################################################################-->

<table width="100%" border="0" cellpadding="4" cellspacing="0" bgcolor="#f9f9f9">

<tr>

<td colspan="2"><font color="#666666">

&lt;script type="text/javascript">

var d=new Date()

var weekday=new Array("Domingo","Segunda","Terça","Quarta","Quinta","Sexta","Sábado")

var monthname=new Array("Janeiro","Fevereiro","Março","Abril","Março","Junho","Julho","Agosto","Setembro","Outubro","Novembro","Dezembro")

document.write(weekday[d.getDay()] + ", ")

document.write(d.getDate() + " de ")

document.write(monthname[d.getMonth()] + " de ")

document.write(d.getFullYear())

</script></font></td>

<td width="32%"><font color="#666666"><b>IP de acesso: </b><%= Request.ServerVariables("REMOTE_ADDR")%></font></td>

</tr>

<tr>

<td width="6%"><img src="images/locked.gif"></td>

<td colspan="2" vAlign="bottom"><span class="TituloLoja"><font color="#333333">Prezado Administrador, seja bem vindo!</font></span></td>

</tr>

</table>

<br>

<table width="70%" border="0" cellPadding="4" cellSpacing="1" class="BordaTabela">

<form name="AlteraSenha" onSubmit="return valida_senha(this)" method="post">

<tr class="Linha2Tabela">

<td colspan="2" height="60"><div align="justify">Para ter acesso às funcionalidades de seu usuário será necessário cadastrar uma nova senha, para isso utlize o formulário abaixo.</div></td>

</tr>

<tr class="Linha2Tabela">

<td align="right">Usuário:</td>

<input type="hidden" name="usuario" value="<%=session("usuario_admin")%>">

<input type="hidden" name="alterar" value="sim">

<td align="left"><B><%=session("usuario_admin")%></td>

</tr>

<tr class="Linha2Tabela">

<td align="right">Nova senha:</td>

<td align="left"><input type="PASSWORD" name="senha" class="FORMbox"></td>

</tr>

<tr class="Linha2Tabela">

<td align="right">Redigite senha:</td>

<td align="left"><input type="PASSWORD" name="senha2" class="FORMbox"></td>

</tr>

<tr class="Linha3Tabela">

<td colspan="2" align="center"><input type="submit" name="Submit" value="Enviar" class="bttn1"></td>

</tr>

</form>

</table>

<!--##################################################################################-->

</td>

</tr>

<tr>

<td height="1" bgcolor="#CCCCCC"><img src="images/regua1x1.gif" height="1"></td>

</tr>

<tr>

<td align="center" height="20" bgcolor="#F2F2F2"><!--#INCLUDE FILE="ADM_layout_termino.asp"--></td>

</tr>

</table>

<!--##################################################################################-->

</td>

<td width="1" bgcolor="#CCCCCC"><img src="images/regua1x1.gif" height="1"></td>

</tr>

</table>

</BODY>

</HTML>

<%

Else

'Registra log de acesso do usuario

Call RegistraLog()

Response.redirect "adm_home.asp"

End if

%>

____________________________________________

Seria aqui o erro mesmo?

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,1k
    • Posts
      651,8k
×
×
  • Criar Novo...