[Resolvido] Conexão asp sql

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!