Como criar uma conexão para BD SQL?

[lparrillo 0]

Olá, tenho um programa em ASP. Gostaria de criar um arquivo em separado para fazer uma include neste programa.

 

O arquivo iria se chamar connection_sql.asp.

Tenho um da seguinte forma:

<%Dim objConn, strConnectionString, objRs, strSQLset objConn = Server.CreateObject("ADODB.Connection")strConnectionString = "Driver={SQL Server};SERVER=TOWUSDB02;UID=nomedousuario;PWD=passworddoDB;DATABASE=SamericaIntranet"objConn.open strConnectionStringset objRs = Server.CreateObject("ADODB.Recordset")%>

Quando coloco a include no meu programa ASP. ele já da erro e não abre a página.. oq está acontecendo?

 

Gostaria como ficaria este arquivo, sendo que meu banco é SQL Server?

 

gostaria tb de saber como fazer que meu programa faça uma consulta no BD para poder colocar os dados numa caixa de seleção, na página. Sendo que a tabela que irá mostrar é a Tb_Departamento.

 

Obrigado

[Asteriscos 0]

Arquivo connection_sql.asp INICIO:

 

Set Conexao = Server.CreateObject("ADODB.Connection")

conexao_sql.Provider = "SQLOLEDB"

conexao_sql.Open "Server=200.xxx.xIPxx;Database=xxxnome_BDxxxx;UID=xxxusuárioxxx;PWD=xxxxsenh

a"

 

Arquivo connection_sql.asp FIM:

 

 

 

<!--#INCLUDE FILE="connection_sql.asp" -->

 

<SELECT NAME = 'cbo_nome' size="5">

<OPTION VALUE="" SELECTED>-- ESCOLHA --</option>

<%

 

' Consultando os dados do BD - INICIO

 

' Construção da consulta com SQL

strSQL = "SELECT * FROM tbl_XXXnome da sua tabelaXXXXX"

 

' Inicialização do objeto Recordset Set

SET rs = Server.CreateObject("ADODB.Recordset")

 

' Execução da consulta

rs.Open strSQL, conexao_sql

 

' Loop até encontrar EOF (fim do cursor)

Do Until rs.EOF = True

'Listar todo o conteudo de um arquivo, dentro de um selectbox - INICIO

var_XXX = trim(rs("XXXcampo do BDXXX"))

%>

<OPTION VALUE="<%=var_XXX%>"><%=var_XXX%></option>

<%

rs.MoveNext

Loop

'Listar todo o conteudo de um arquivo de, dentro de um selectbox - FIM

' Consultando os dados do BD - FIM

%>

 

 

Trocar as informações XXXX pelas informações do seu sistema