It would probably be more practical to use a "dsn-less" connection string as follows:
'db.asp
<%
dim db
dim objConn
objConn = "DRIVER=SQL Server;SERVER=servername;UID=blah;PWD=blah;APP=Microsoft Development Environment;DATABASE=database_name;Address=servername"
Set db = Server.CreateObject("ADODB.Connection"

db.open objConn
%>
You can save this in a separate file called "db.asp" then put this code at the top of your ASP:
<!-- #include file="db.asp" -->
(be sure to include the correct path if it's not in the same folder as your ASP page)
Certain database activities require the below file as well:
<!-- #include file="adovbs.inc" -->
Then you can do whatever with your data. Here's an example:
'select all information from Contacts
Set oRs = db.Execute("SELECT * FROM Contacts"

'check to see if records are found
if oRs.eof then
Response.Write "No Records Found"
else
Response.Write "<table>"
For Each oFLD In oRs.Fields
Response.Write "<tr><td>" & oFLD.Name & ":<td><input type=""text"" size=""70"" name=""" & oFLD.Name & """ value=""" & oFLD.Value & """/></td></td></tr>"
Next
Response.Write "</table>"
end if
All this does is write out all of fields in the table Contacts.
Hope this helps.