Olá, tentei fazer um relatório aqui...onde o cara digita o login e a senha e ao fazer isso eu pego o login dele e a hora q ele logou para fazer um relatório..fiz o seguinte:
<!--#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
sql_relatorio = "INSERT INTO acessos (Nome1, data_hora) VALUES ('" & Nome1 & "', '" & now() & "')"
set tab_acessos = conexao.execute (sql_relatorio)
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&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>
só que ele dá este 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 é esta abaixo, onde tento pegar o login/nome e a data para o relatório:
Pergunta
Mateustg
Olá, tentei fazer um relatório aqui...onde o cara digita o login e a senha e ao fazer isso eu pego o login dele e a hora q ele logou para fazer um relatório..fiz o seguinte:
<!--#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 sql_relatorio = "INSERT INTO acessos (Nome1, data_hora) VALUES ('" & Nome1 & "', '" & now() & "')" set tab_acessos = conexao.execute (sql_relatorio) 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&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>só que ele dá este 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 é esta abaixo, onde tento pegar o login/nome e a data para o relatório:
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
8 respostass a esta questão
Posts Recomendados
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.