9 replies to this topic

[xena]

Ae pessoal estou com este login mas não esta conectando a pagina exemplo a pagina Defalt.htm

<table width="20%" border="1" align="center" cellpadding="5"cellspacing="0" bordercolor="#CCCCCC" class="categoria">
<tr> 
<td><strong>Login:</strong></td>
<td><div align="left"> 
<input name="txt_login" type="text" class="form" id="txt_login" size="10" maxlength="8">
</div></td>
</tr>
<tr> 
<td><strong>Senha:</strong></td>
<td><div align="left"> 
<input name="txt_senha" type="text" class="form" id="txt_senha" size="10" maxlength="8">
</div></td>
</tr>
<tr> 
<td>&nbsp;</td>
<td align="right"> <div align="left"> 
<input name="Enviar" type="submit" class="Botao" id="Enviar" value="ENVIAR">
&nbsp;&nbsp;&nbsp; </div></td>
</tr>
</table>

E a pagina de conexão: Login.asp
[code=auto:0]

<%
'Efetuando a conexão com a base de dados criada
Set Conn = Server.CreateObject("AdoDb.Connection")
Conn.provider="Microsoft.Jet.OLEDB.4.0"
Conn.connectionstring=Server.Mappath("/banco.mdb")
Conn.open

'Vamos capturar o login e a senha digitada no firmulário
login2 = Request.Form("txt_login")
senha2 = Request.Form("txt_senha")

'Agora verificamos se o usuário e a senha estão corretos
SQL = "select * from usuarios where login = '"&login2&"' and senha = '"&senha2&"' "
Set RS = Conn.Execute(SQL)

'Caso não esteja correto, indicamos o erro
If RS.EOF Then
Response.Write "usuário ou senha inválida!"
Response.End
End If

'Se chegou até aqui, é porque o login e senha estão corretos.
'Vamos então verificar o nível de acesso do usuário.
session("nivel_acesso") = RS("nivel") 'Colocamos numa session pois iremos utiliza-las em outras páginas

Response.Redirect "adm.asp" 'página restrita
%>
[code=auto:0]

Não consigo fazer a conexão simplismente não funciona alguém pode me ajudar.

[aimola]

Será que é porque vc não colocou a tag <form>?

Verifique ai e poste novamente....

Valeu!

[xena]

Ñão sei, coloquei e tanbém não deu, o que deve ser?

[aimola]

Ñão sei, coloquei e tanbém não deu, o que deve ser?

Poste o codigo do form pra eu ver...

[xena]

oi, os dois códigos ja estão ai é só estes dois mesmo.

[wozniak]

da uma olhadinha nessa conexão,

<%
'Declarando as variáveis

Dim Conn

'Criando o objeto de conexao
Set Conn = Server.CreateObject("ADODB.Connection")

'Determinando o caminha dos dados COLOQUE O CAMINHO COMPLETO DO BANCO DE DADOS
Conn.open "DBQ=e:\home\cristaylor\dados\apostilas.mdb;Driver={MIcrosoft Access Driver (*.mdb)}"

%>

qualquer dúvida é só postar

t+

[xena]

Acho que não entendeu eu quero fazer a conexão do meu formulário para o código em asp, o código asp esta correto só não esta conectando, entendeu é isso que estou com dúvidas.

[wozniak]

posta todo o seu cod então,

no aguardo...

t+

[cybermix]

no html voce em q por seu formulario dentro do tag

<form method=post action=suapagina.asp>

seu formulario

</form>

[xena]

deu certo obrigada