(Resolvido) Request.QueryString

lucascabs · Setembro 1, 2009

oi, boa tarde a todos!

bom to com um problema com Request.QueryString e estou pedindo ajuda ao pessoal do forum!

estou desenvolvendo um site que na qual existe uma pagina de cadastro, que apos informações preenchidas, ela joga no banco de dados, e depois abre um relatório com essas informações!

até a parte do banco de dados está funcionando perfeitamente, mas o relatório não é capaz de funcionar!

se puderem agradeceria e muito a ajuda de todos! xD

(abaixo segue um resumo dos códigos utilizados)

Formulário de Cadastro - "cadastro.asp"

<form name="cadastro" method="post" action="cadastrar.asp" onSubmit="return Verifica(this);">
  <table width="970" border="0" cellpadding="3" cellspacing="0" bordercolor="#F4F4F4" bgcolor="#F4F4F4">
    <tr>
	<td align="right" height="20"><font face="arial" size="2">Login:</font></td>
      <td><input name="txtLogin" type="text" id="txtLogin">
      *</td>
	  </tr>
	  <tr>
	  <td align="right" height="20"><font face="arial" size="2">Senha:</font></td>
      <td><input name="txtSenha" type="password" id="txtSenha" size="12" maxlength="12"> *</td>
	  </tr>
</table>
</form>

Cadastro no Banco de Dados - "cadastrar.asp"

<!--#include file="conexao.asp"-->
<% 
Dim conexao
Login = Request.form("txtLogin") 
Senha = Request.form("txtSenha")

strInsert = " INSERT into usuarios"
strInsert = strInsert & "(login, senha)"
strInsert = strInsert + "VALUES ('" + Login + "',"
strInsert = strInsert + "'" + Senha + "')"

Call abreConexao
Set rsInsert = conexao.Execute(strInsert) 

Call fechaConexao
Set rsInsert = Nothing

Response.redirect("relatorio.asp")

%>

Conexão com o Banco de Dados - "conexao.asp"

<%
Dim string
string = ("DRIVER={MySQL ODBC 5.1 Driver};SERVER=000.000.000.00;PORT=0000;DATABASE=x;USER=x;PASSWORD=x;OPTION=3;")

Sub AbreConexao
    Set Conexao = Server.CreateObject("ADODB.Connection")
    Conexao.Open string
end sub

Sub FechaConexao
    Conexao.Close
    Set Conexao = Nothing
End Sub
%>

Relatório com as informações cadastradas - "relatorio.asp"

<%
Dim MM_conn_STRING
MM_conn_STRING = ("DRIVER={MySQL ODBC 5.1 Driver};SERVER=000.000.000.00;PORT=0000;DATABASE=x;USER=x;PASSWORD=x;OPTION=3;")
%>

<%
    dim conn
    set conn = SERVER.CreateObject("ADODB.Connection")
    conn.Open MM_conn_STRING
%>

<% IF REQUEST.QueryString("txtSenha") = " " THEN
RESPONSE.Redirect("pg_relatorio.asp?codigo="&REQUEST.QueryString("txtSenha"))

END IF
%>

<%
Dim CA1

Set CA1 = Server.CreateObject("ADODB.Recordset")
CA1.ActiveConnection = MM_conn_STRING
CA1.Source = "SELECT codigo,login, senha FROM usuarios"
CA1.Open()
%>

<body>
<table>
<tr><td colspan="4">Login:<%=(CA1.Fields.Item("login").Value)%></td></tr>
<tr><td colspan="4">Senha:<%=(CA1.Fields.Item("senha").Value)%></td></tr>
</table>
</body>

<%
CA1.Close()
Set CA1 = Nothing
%>
<%
conn.Close()
Set conn = Nothing
%>

Obrigado pela atenção

Lucas de Almeida

Editado Setembro 1, 2009 por Jonathan Queiroz
Adcionar tag's (Jonathan)

lucascabs · Setembro 15, 2009

volto a repetir se pretende entender algo disso esqueça o lixo do dreamweaver como coder... faça na mão...
verifique os campos da tabela... e teste
set CA1=MM_conn_STRING.execute("SELECT * FROM usuarios where codigo = "&id)
você já tem um recordet em cima aberto com o limit que fica aberto no final, isso depois de um tempo derruba o site no servidor.
e se você já tem o login,senha e id gravado em uma session para que puxar do banco?

do meu jeito da isso:

[MySQL][ODBC 5.1 Driver][mysqld-5.1.30-community-log]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '' at line 1

e do seu:

Object required: 'DRIVER={MySQL ODBC 5'

eu ate pensei que faltava esse drive na minha maquina, então coloquei no ar e persistiu o erro!

o servidor é locaweb

você já tem um recordet em cima aberto com o limit que fica aberto no final, isso depois de um tempo derruba o site no servidor.
e se você já tem o login,senha e id gravado em uma session para que puxar do banco?

entendi cara! então na realidade eu estava usando o request.query.string para fazer esse relatorio! como não consegui e graças a ajuda do Rafael Spilki parti para esse lance do session!

vou atribuir o session aos campos e posto o resultado

valeu! abraço

Editado Setembro 15, 2009 por lucascabs

lucascabs · Setembro 15, 2009

meu resultado final ficou em branco! os campos ainda não aparecem mas acho que é falha da instrução sql SELECT * FROM usuarios ORDER BY codigo desc LIMIT 0, 1" ... deve ser não é????

o codigo final da pagina ficou assim:

<%
Dim MM_conn_STRING
MM_conn_STRING = ("DRIVER={MySQL ODBC 5.1 Driver};SERVER=000.000.000.00;PORT=0000;DATABASE=x;USER=x;PASSWORD=x;")
%>

<%
dim conn
set conn = SERVER.CreateObject("ADODB.Connection")
conn.Open MM_conn_STRING
%>

<%
dim SQL, objRs, conexao,codigo,ultimocodigo,proximocodigo,id,senha,login
SQL = "SELECT * FROM usuarios ORDER BY codigo desc LIMIT 0, 1"
Set objRs = conexao.Execute(SQL )

ultimocodigo = objRs ("codigo")
proximocodigo = ultimocodigo + 1

id = session("proximocodigo")
senha = session("senha")
login = session("login")
%>

<body>
<table>
<tr><td colspan="4">Login:<%Response.Write Session("login")%></td></tr>
<tr><td colspan="4">Senha:<%Response.Write Session("senha")%></td></tr>
</table>
</body>

Editado Setembro 15, 2009 por Jonathan Queiroz
Adcionar tag's (Jonathan)

lucascabs · Setembro 15, 2009

FUNCIONOU! muito obrigado!

Entrar

(Resolvido) Request.QueryString

Pergunta

lucascabs

Link para o comentário

Compartilhar em outros sites

28 respostass a esta questão

Posts Recomendados

lucascabs

Link para o comentário

Compartilhar em outros sites

lucascabs

Link para o comentário

Compartilhar em outros sites

lucascabs

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades