[Resolvido] Conexão asp sql

[Isabelle_Andrade 0]

Pessoal,

 

Estou tentando fazer uma conexão do asp com sql server, mas não consigo.

 

conn.asp

<%

Public Const HOST_NAME = "servidot"
Public Const USER_NAME = "usuario"
Public Const USER_PASS = "senha"
Public Const DB = "banco"

Sub Abre_con()

strConn "Provider=SQLOLEDB;Server="&HOST_NAME&";Database="&DB&";uid="&USER_NAME&";pwd="&USER_PASS
Set oConn = Server.createObject("ADODB.Connection")
OConn.open StrConn

End Sub

Sub Fecha_con()

OConn.close StrConn

End Sub

%>

 

sql.asp

<!--#include file="conn.asp"-->
<%
Dim user, pass
user = Request.Form("user")
pass = Request.Form("pass")

Dim strConn
Call Abre_con
Dim sql

Sub verifica_usuario(user, pass)

sql = "SELECT * FROM Usuario WHERE login='" & user & "' AND senha='" & pass & "'"

If sql = "" or null Then
	login = false
Else
	login = true
End If

If login = true Then
	Session("logado") = true
	Response.redirect("principal.asp")
Else
	Response.redirect("index.asp")
End If

end Sub


%>

 

login_action.asp

<!--#include file="includes/sql.asp"-->
<%
Call verifica_usuario(user, pass)
%>

 

index.asp

 

<div id="principal">
<div id="login">
	<b>
	<form action='login_action.asp' method='post'>
		Login: 
		<input type="textbox" size="45px" maxlength="45px" name="user"><br /><br />
		Senha: </b>
		<input type="password" size="45px" maxlength="45px" name="pass"><br /><br />
		<input type="submit" name="send" value="Entrar"> 
	</form>
</div>
<div id='comentario'><div id='link'>
	<a href="recupera_senha.asp">
	<img src="img\e_senha.jpg" width="15px" height="15px" border="0">
	<i>Esqueci minha senha.</i>
	</a>
</div>

 

Não estou conseguindo achar nenhum link no google que me ajude com isso.

 

Obrigada!

[andersonleme 1]

Faz assim

 

se for my sql

strCon = "driver={MySQL ODBC 3.51 Driver};server="&HOST_NAME&";uid="&USER_NAME&";pwd="&USER_PASS&";database="&nome_da_base&""

 

agora da maneira que você fez ficaria assim

 

strConn = "Provider=SQLOLEDB;Server="&HOST_NAME&";Database="&DB&";uid="&USER_NAME&";pwd="&USER_PASS&""

 

O seu strConn nao ta recebendo a conexao :)

 

uma observaçao .. nao sei se esta no include ... mais nao vi o seu Open no SQL

[Isabelle_Andrade 0]

Como é o open sql?

o banco é sql server.

[andersonleme 1]

a nao ja vi ja

OConn.open StrConn

[Isabelle_Andrade 0]

Ah ta,

 

Obrigada!

 

Vou tentar aqui.

[Salgado 4]

É apresentado algum erro?

 

Você deve definir a variável oCon fora da sua Sub, dentro dela você pode setá-la como Objeto sem problemas.

[Isabelle_Andrade 0]

andersonleme, funcionou.

Obrigada!

 

Salgado, obrigada pela atenção!

 

 

Beijos