ASP named Connect.asp
<!--Establish a generic Logon, connection to the Frigdare database -->
<%
Dim objLogon
Dim conn
Set objLogon = Server.CreateObject("Impersonate.ImpersonateUser"
objLogon.Logon "iusr_apps_server2", "threepeaks", "Springfield"
set conn = server.createobject("adodb.connection"

conn.open "Provider=SQLOLEDB.1;Integrated Security=SSPI;" & _
"Persist Security Info=False;Initial Catalog=frigdare;" & _
"Data Source=D_Ship_Server1"
set session("user_conn"

= conn
%>
Then in the other ASP that reads data:
<%@ LANGUAGE="VBSCRIPT" %>
<% Option Explicit %>
<!--#include file="adovbs.inc"-->
<!--#include file="Connect.asp"-->
<%
Dim rs
Dim sql
sub SelectData(selectyr)
sql = "SELECT ItemCount, Carrier FROM LoadHist WHERE year(DateClosed) = '" & selectyr & "' AND month(DateClosed) = '" & intmon & "'"
set rs = createobject("adodb.recordset"
rs.open sql,conn, adOpenStatic, adLockReadOnly, adCmdText
.
.
end sub
maybe this will get you started. John