Discuss "Connection String & Record Set Functions" in the Classic ASP forum.

<%
'SQL Server DB Connection
function oConn()
	dim dbConn, dsnName
	set dbConn = Server.CreateObject("ADODB.Connection")
	'SERVER CONNECTION STRING
	dsnName = "Provider=SQLOLEDB;"		& _
	          "Data Source=ServerName;"	& _
	          "Initial Catalog=DB_Name;"	& _
		  "User Id=UserName;" 		& _
	          "Password=UserPassword"
	dbConn.ConnectionString = dsnName
	dbConn.Open
	set oConn = dbConn 
end function


'Access Database Connection
function oConn()
 	dim dbConn, dsnName
 	
	set dbConn = Server.CreateObject("ADODB.Connection")

	dsnName = "Provider=Microsoft.Jet.OLEDB.4.0;"                               & _
		  "Data Source=" & Server.MapPath("/database/db.mdb") & ";"   & _
		  "Persist Security Info=False"

	dbConn.ConnectionString = dsnName
	dbConn.Open
		
	set oConn = dbConn 
end function

'Create Regular RecordSet
function GetRS(sqlString)
        dim GetRS
	set GetRS = Server.CreateObject("ADODB.Recordset")
	with GetRS
		.CursorLocation = 3
		.CursorType = 3
		.ActiveConnection = oConn
		.Open sqlString
	end with
end function
%>

strSQL = "SELECT * FROM tbl_TableName ORDER BY intID"
set rs = GetRS(strSQL)