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

Emitir Relatório


Mateustg

Pergunta

Olá galera, é o seguinte...eu tenho este código aqui:

<!--#include file="conectar.asp"-->
<%
Response.Buffer = TRUE
erro = ""
AbreConexao
idcat  = request.querystring("idcat")
idalbum= request.querystring("idalbum")
cat    = request.querystring("cat")
album  = Replace(Request.QueryString("album"),"'","")
Nome   = Replace(Request.Form("Nome"), "'","")
Senha  = Replace(Request.Form("Senha"),"'","")
strSQL = "SELECT CADASTRO.*,ALBUM.Senha FROM ALBUM INNER JOIN CADASTRO ON ALBUM.id = CADASTRO.IdAlbum WHERE (((CADASTRO.Login)='"&Nome&"') AND ((CADASTRO.IdAlbum)="&idalbum&") AND ((ALBUM.Senha)='"&Senha&"'))"
'Response.Write strSQL
Set rs = Conexao.Execute(strSQL)
If NOT rs.EOF Then
	If Trim(Nome) = Trim(rs("Login")) AND Trim(Senha) = Trim(rs("Senha")) Then
  strPode = "album" & idalbum
  Session("pode") = strPode
  Session("senha")= Trim(Senha)
  Redir = "SIM"
  Else
  	If Request.Form("ev") <> "" Then
    Session("pode") = ""
    Session("senha")= NULL
    erro = "ERRO 01"
  	End If
	End If
	Else
  If Request.Form("ev") <> "" Then
  	Session("pode") = ""
  	Session("senha")= NULL
  	erro = "ERRO 02"
  End If
End If

LA = "default.asp?idcat=" & idcat & "&cat=" & cat & "&idalbum=" & idalbum & "&album=" & album
LF = "logiver.asp?idcat=" & idcat & "&cat=" & cat & "&idalbum=" & idalbum & "&album=" & album

If Redir = "SIM" Then
	Response.Redirect LA
	Else
  erro1 = "ERRO 03"
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>
<head>
	<title>Área restrita de Lotes</title>
</head>

<body bgcolor="#045979" text="#FFFFFF" link="#73BCF2" vlink="#73BCF2" alink="#73BCF2">
<%If erro <> "" Then Response.Write "<h1 style=""text-align:center"">Login ou Senha Invalida</h1><br>"%>
<div id="prim" style="text-align:center;padding:50px;">
<br><font face="Verdana" size="2"><b>Login para ver o <%=album%></b></font>
<form method="post" action="<%=LF%>">
<table id="log" style="color:#fff;background-color:#C0C0C0;">
<tr>
<td><label><font face="Verdana" size="2" color="#000000"><b>Login:</b></font></label></td>
<td><input type="text" name="Nome" value=""></td>
</tr>
<tr>
<td><label><font face="Verdana" size="2" color="#000000"><b>Senha:</b></font></label></td>
<td><input type="password" name="Senha" value=""></td>
</tr>
<tr>
<td colspan="2" align="center"><input type="submit" name="ev" value="Entrar"></td>
</tr>
</table>
</form>
<a href="default.asp?idcat=1&amp;cat=Lotes" style="color: #FFFFFF"><b><img src="imagem/fechar.gif" border="0"> <font face="Verdana" size="2">Sair</font></b></a>
</div>
</body>
</html>

ele é responsavel por conferir o login e senha de acesso...o que eu estou querendo é que se a pessoa digitar o login e senha corretos, além dele entrar, o que já faz, gostaria de pegar o nome de login e a senha digitados e salvar dentro de uma outra tabela que tenho aqui, pois dai eu só mando listar depois num relatório, mas como eu consigo pegar o login e senha e armazenar nessa tabela?

Vlw

Link para o comentário
Compartilhar em outros sites

7 respostass a esta questão

Posts Recomendados

  • 0

Depende... se você tiver um arquivo que autentica, nele pode ter um include que aproveita o Request.Form das variaveis Login e Senha para gravar na tabela, essa rotina de inserção estaria no arquivo que faz o include.

Ou você pode fazer um hidden pra o arquivo de inserção.

Ou tb criar sessions e depois resgatar as variaveis pelo arquivo que faz a inserção desses dados na tabela.

Link para o comentário
Compartilhar em outros sites

  • 0

Eu não tinha analisado seu código, mas vendo com mais calma agora... acho que a melhor forma seria:

<%

If Redir = "SIM" Then

sql_relatorio = "insert into RELATORIO (nome, senha) VALUES ('" & nome & "', '" & senha & "')"

set tab_relatorio = conexao.execute (sql_relatorio)

Response.Redirect LA

Else

erro1 = "ERRO 03"

End If

%>

Adicionar a rotina de inserção antes de ele redirecionar.

Link para o comentário
Compartilhar em outros sites

  • 0

Andreia, não sei o que houve, mas sem mais nem menos ele parou de funcionar, agora gera o seguinte erro:

Microsoft JET Database Engine error '80004005'

The changes you requested to the table were not successful because they would create duplicate values in the index, primary key, or relationship. Change the data in the field or fields that contain duplicate data, remove the index, or redefine the index to permit duplicate entries and try again.

/album/logiver.asp, line 42

a linha 42 é:

sql_relatorio = "INSERT INTO acessos (Nome1, data_hora) VALUES ('" & Nome1 & "', '" & now() & "')"

set tab_acessos = conexao.execute (sql_relatorio)

o que faço?

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.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...