[firebase-br] ASP + FIREBIRD + STOREDPROCEDURES

[alessandro_francisco em msn.com]

aaaa Eduardo eu fiz o que pude, mais o mais interessante é que não eh que 
ele não rece os paramentros, mas sim que a procedures não retorna nada no 
recordset.

----- Original Message -----
From: "Eduardo Jedliczka (TeamFB)" <jedyfb em gmail.com>
To: "FireBase" <lista em firebase.com.br>
Sent: Wednesday, December 13, 2006 11:16 AM
Subject: Re: [firebase-br] ASP + FIREBIRD + STOREDPROCEDURES

mais legível ??? fala sério...

Quanto ao seu problema, acredito que seja uma questão de configuração do ASP
no servidor...

é provável que seu código não esteja recebendo os parâmetros disparados pelo
FORMULÁRIO.

======================
Eduardo Jedliczka
Membro do TeamFB - FireBase
Apucarana - PR
======================
"Posso não concordar com nada do que dizes.
Mas defenderei até a morte o seu direito de dizê-lo"
(Voltaire 1694-1778)

----- Original Message ----- 
From: "Alessandro Francisco" <alessandro_francisco em msn.com>
To: <lista em firebase.com.br>
Sent: Wednesday, December 13, 2006 11:07 AM
Subject: [firebase-br] ASP + FIREBIRD + STOREDPROCEDURES


Desculpem o repost, mas como a lista não suporta arquivos formatados, estou
postando novamente na tentativa de deixar o post mais legivel.

Eu estou com um problem grave, eu fiz um site todo base ado em ASP 3, +
Firebird + StoredProcedures, esse site funciona certinho no meu micro, mas
no server as SP não retornan nenhum dado, alguem tem alguma ideia do que
está acontecendo?Espero que alguem possa me ajudar...Segue meu codigo ASP e
o Codigo da SP em questao:Arquivo sConn.asp:<%Dim
sConnectionsConnection="DRIVER=Firebird/InterBase® driver; UID=pccartuchos;
PWD=upqca8;
DBNAME=firebird.hospedagemdesite.com:/opt/firebird/data/pccartuchos.gdb;"%>Arquivo
Login.asp:<%@LANGUAGE="VBSCRIPT" CODEPAGE="1250"%><%option
explicit%><%Session.LCID = 1046%><%Response.buffer=true%><!--#include
file="sConn.asp"--><%'Variáveis de uso comumDim rsLogin, sLogin, sSenha,
isPost, Erro, lixo, objConn, i'Inicializa
VariáveisErro=0isPost=Request.ServerVariables("REQUEST_METHOD")'Conexão como
servdiorSet objConn = Server.CreateObject("ADODB.Connection")'RecordSet de
DadosSet rsLogin = Server.CreateObject("ADODB.Recordset")'Abre a
conexãoobjConn.Open(sConnection) 'Procedure que abre o RecordSet + SQLsub
OpenRS (sQuery)rsLogin.Open sQuery,objConn,3,3end sub 'OpenRS'Faz a
validação contra caracteres maliciososFunction ValidaDados(input)Lixo =
array ( "select" , "insert" , "update" , "delete" , "drop" , "--" ,
"'")ValidaDados = truefor i = lBound (lixo) to ubound(lixo)if ( instr(1 ,
input , lixo(i) , vbtextcompare ) <> 0 ) thenValidaDados = Falseexit
functionend ifnextEnd Function 'ValidaDados 'CheckIt, Verifica se o campo
Marcado está okSub CheckIt(Campo)If (isPost = "POST") ThenIf
CSTR(Trim(Request.Form(Campo))) = ""
ThenErro=Erro+1Response.Write("Class='InputErro'")End IfIf
(ValidaDados(Request.Form(Campo))=False)
ThenErro=Erro+1Response.Write("Class='InputErro'")End IFEnd If End Sub
'CheckIt'Função que grava os dadosSub PostInfo()'Limpa os espaços
extrassLogin=CSTR(Trim(Request.Form("Email")))sSenha=CSTR(Trim(Request.Form("Senha")))'Chama
a SP_LOGINOpenRS("{call SP_LOGIN('"&sLogin&"','"&sSenha&"')}")If
(rsLogin.RecordCount = 1)
thenSession("Logado")=TrueSession("Id")=rsLogin("Id")Session("Nome")=rsLogin("Nome")Session("Email")=rsLogin("Email")If
(Request.QueryString("IR") <> "")
ThenResponse.Redirect(Request.QueryString("IR"))ElseResponse.Redirect("Default.asp")End
IFElseResponse.Write("Nome de acesso e senha não conferem!")End IfEnd Sub
'PostInfo%>StoredProcedure no Banco:CREATE PROCEDURE SP_LOGIN (PI_EMAIL
VARCHAR(100),PI_SENHA VARCHAR(10))RETURNS (ID INTEGER,NOME
VARCHAR(100),EMAIL VARCHAR(100),TABELA INTEGER)ASBEGIN/*Seleciona o cliente
segundo a senha e o nickname*/FOR
SELECTCLI_ID,CLI_NOME,CLI_EMAILFROMTB_CLIENTESWHERECLI_EMAIL =
:pi_emailANDCLI_SENHA = :pi_senhaINTO:ID,:NOME,:EMAILDOSUSPEND;END
_________________________________________________________________
Busque em qualquer página da Web com alta proteção. Obtenha o Windows Live
Toolbar GRATUITO ainda hoje!
http://toolbar.live.com/
______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
Para editar sua configuração na lista, use o endereço
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas: http://firebase.com.br/pesquisa


______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.locador.com.br
Para editar sua configuração na lista, use o endereço 
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas: http://firebase.com.br/pesquisa