Jump to content


Photo

[Resolvido] Query String


  • Faça o login para participar
2 replies to this topic

#1 EuNaoSei

EuNaoSei

    Novato no fórum

  • Usuários
  • 9 posts
  • Sexo:Feminino

Posted 17/11/2009, 08:30

Oi Pessoaal!

estou com um probleminha nesse codigo..

[codebox]
'*** Declaração de Variáveis ***
Dim pagina_,SQL,ANALISTA,PROJETO,filt_,user_,data_,apon_
Dim i,j,mes

'*** Iniciando as Variáveis ***
Session("janela2")="Filt_Relatorio2.asp?pagina=" & Request.QueryString("pagina") & "&filt=" & Request.Querystring("filt") & "&user=0" & Request.Querystring("user")
Session("janela")="Filt_Relatorio2.asp?pagina=" & Request.QueryString("pagina") & "&filt=" & Request.Querystring("filt") & "&user=0" & Request.Querystring("user") & "&apon=" & Request.Querystring("apon") & "&data=" & Request.Querystring("data")
pagina_ = Request.QueryString("pagina")
filt_ = Request.Querystring("filt")
user_ = Request.QueryString("user")
apon_ = Request.QueryString("apon")
data_ = Request.QueryString("data")


SQL = "Select proj_text,proj_code from tb_projeto "
Set PROJETO = db.execute(SQL)


If user_ <> "" then
If user_ = 0 then
SQL = "Select proj_text,proj_code from tb_projeto "
SQL = SQL & "INNER JOIN tb_time ON tb_time.time_projeto=tb_projeto.proj_code "
SQL = SQL & "INNER JOIN tb_time_analistas ON tbc_time.time_code=tb_time_analistas.time_time "
SQL = SQL & "Where time_analista = " & Session("usuario") & " "
SQL = SQL & "Group by proj_text"
' response.write(SQL)
' response.end
Set PROJETO = db.execute(SQL)
else
SQL = "Select proj_text,proj_code From tb_projeto "
SQL = SQL & "Where proj_finan = " & Session("usuario")
if filt_ = 0 then '*** FILT = 0 - Lista Todos os projetos que o usuário é Gestor,Diretor ou Financeiro ***
SQL = SQL & " Or proj_dir = " & Session("usuario")
SQL = SQL & " Or proj_ger = " & Session("usuario")
end if
' response.write(SQL)
' response.end
Set PROJETO = db.execute(SQL)
End if
else
Response.Write("O parametro user deve ser informado.")
response.end
End IF
[/codebox]


Tipoo.. na condição eu pergunda se user_ for diferente de vazio, faço isso.. se nao, imprimo a mensagem na tela "O parametro user deve ser informado."

Mais nao consigo entender prq ele nao esta pegando nada no "user", e so aparece na tela a mensagem "O parametro user deve ser informado."

Se alguem poder ver o cod e me ajuda a enxerga o q pode estar errado, agradeço desde jaah

Edição feita por: Renan L. Queiroz, 20/11/2009, 11:18.


#2 regitronic

regitronic

    Novato no fórum

  • Usuários
  • 23 posts
  • Sexo:Não informado

Posted 17/11/2009, 14:29

tente dar nomes diferentes as SQL, tive um problema semelhante a esse e o meu codigo esta assim com as SQL no msm nome ai troquei por SQL1 SQL2 e etc e foi

#3 EuNaoSei

EuNaoSei

    Novato no fórum

  • Usuários
  • 9 posts
  • Sexo:Feminino

Posted 19/11/2009, 14:02

tah dando esse erro agora..

Tipo de erro:
Erro de tempo de execução do Microsoft VBScript (0x800A000D)
Tipos incompatíveis: '[string: ""]'
/suporte/Filt_Apontamento2.asp, line 43


Linha 43...
[codebox]if filt_ = 0 then '*** FILT = 0 - Lista Todos os projetos que o usuário é Gestor,Diretor ou Financeiro ***
SQL2 = SQL2 & " Or proj_dir = " & Session("usuario")
SQL2 = SQL2 & " Or proj_ger = " & Session("usuario")
end if
[/codebox]

Resolvi o erro.. maaais continua nao pegando o valor da user

:wacko:

Consegui Resolveer :lol:

Edição feita por: Renan L. Queiroz, 18/11/2009, 09:16.
Inclusão da tag [ codebox ] para postagem de scripts





1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq