Skal bruge data fra flere databaser

Jeg ved ik lige helt hvordan jeg griber dette an, men jeg har en database der indeholder nogle fangstrapporter og så har jeg en database der indeholder oplysninger om brugere. Når brugerne er logget ind, gemmes deres brugernavn i session("userid"). Når de opretter en fangstrapport skrives ligenu session("userid") ind som Forfatter i fangsrapport-databasen. men nu vil jeg gerne have at den i stedet slår op i min brugerdatabase og finder fornavn og efter for den bruger hvor session("userid")=brugernavn, så at det er brugerens fulde navn der kommer til at stå der. Men hvordan klares det i min fil der add'er til en anden db ?

<%
'<!-- #include file="db.inc" -->

'Dimension variables
Dim adoCon              'Holds the Database Connection Object
Dim rsAddComments      'Holds the recordset for the new record to be added
Dim strSQL              'Holds the SQL query to query the database
Dim dbc

strOverskrift     = Trim(Replace(replace(Request.Form("Overskrift"),"'",""),"<","&lt;"))
strForfatter    = Trim(Replace(replace(Request.Form("Forfatter"),"'",""),"<","&lt;"))
strfangstmnd     = Trim(Replace(replace(Request.Form("fangstmnd"),"'",""),"<","&lt;"))
strfangst         = Trim(Replace(replace(Request.Form("fangst"),"'",""),"<","&lt;"))
stragn          = Trim(Replace(replace(Request.Form("agn"),"'",""),"<","&lt;"))
strvaegt         = Trim(Replace(replace(Request.Form("vaegt"),"'",""),"<","&lt;"))
strmetode        = Trim(Replace(replace(Request.Form("metode"),"'",""),"<","&lt;"))
strsted         = Trim(Replace(replace(Request.Form("sted"),"'",""),"<","&lt;"))
strberetning    = Trim(Replace(replace(Request.Form("beretning"),"'",""),"<","&lt;"))

if    len(strOverskrift) < 1 or strOverskrift ="" then
    Response.Redirect "indtastrap.asp?msg=" & Server.URLEncode ("Du skal indtaste en overskrift.") & "&overskrift=" & Server.URLEncode(stroverskrift)& "&forfatter=" & Server.URLEncode(strforfatter)& "&fangstmnd=" & Server.URLEncode(strFangstmnd)& "&fangst=" & Server.URLEncode(strfangst)& "&agn=" & Server.URLEncode(stragn)& "&vaegt=" & Server.URLEncode(strvaegt)& "&metode=" & Server.URLEncode(strmetode)& "&sted=" & Server.URLEncode(strsted)& "&beretning=" & Server.URLEncode(strberetning)
elseif    len(strForfatter) < 1 or strForfatter ="" then
    Response.Redirect "indtastrap.asp?msg=" & Server.URLEncode ("Du skal indtaste en forfatter.") & "&overskrift=" & Server.URLEncode(stroverskrift)& "&forfatter=" & Server.URLEncode(strforfatter)& "&fangstmnd=" & Server.URLEncode(strFangstmnd)& "&fangst=" & Server.URLEncode(strfangst)& "&agn=" & Server.URLEncode(stragn)& "&vaegt=" & Server.URLEncode(strvaegt)& "&metode=" & Server.URLEncode(strmetode)& "&sted=" & Server.URLEncode(strsted)& "&beretning=" & Server.URLEncode(strberetning)
elseif    len(strfangstmnd) < 1 or strfangstmnd ="" then
    Response.Redirect "indtastrap.asp?msg=" & Server.URLEncode ("Du skal indtaste en fangstdato.") & "&overskrift=" & Server.URLEncode(stroverskrift)& "&forfatter=" & Server.URLEncode(strforfatter)& "&fangstmnd=" & Server.URLEncode(strFangstmnd)& "&fangst=" & Server.URLEncode(strfangst)& "&agn=" & Server.URLEncode(stragn)& "&vaegt=" & Server.URLEncode(strvaegt)& "&metode=" & Server.URLEncode(strmetode)& "&sted=" & Server.URLEncode(strsted)& "&beretning=" & Server.URLEncode(strberetning)
'elseif isDate(strfangstmnd) = false then
'    Response.Redirect "indtastrap.asp?msg=" & Server.URLEncode ("Dato skal være i formatet dd-mm-yyyy") & "&overskrift=" & Server.URLEncode(stroverskrift)& "&forfatter=" & Server.URLEncode(strforfatter)& "&fangst=" & Server.URLEncode(strfangst)& "&agn=" & Server.URLEncode(stragn)& "&vaegt=" & Server.URLEncode(strvaegt)& "&metode=" & Server.URLEncode(strmetode)& "&sted=" & Server.URLEncode(strsted)& "&beretning=" & Server.URLEncode(strberetning)

maned = Mid((Strfangstmnd),4,2)
elseif maned > 12 or isDate(Strfangstmnd) = false then
'    maned = Mid((strfangstmnd),3,2)
'elseif maned > 12 or isDate(strfangstmnd) = false then
        Response.Redirect "indtastrap.asp?msg=" & Server.URLEncode ("Ikke over 12 måneder!") & "&overskrift=" & Server.URLEncode(stroverskrift)& "&forfatter=" & Server.URLEncode(strforfatter)& "&fangst=" & Server.URLEncode(strfangst)& "&agn=" & Server.URLEncode(stragn)& "&vaegt=" & Server.URLEncode(strvaegt)& "&metode=" & Server.URLEncode(strmetode)& "&sted=" & Server.URLEncode(strsted)& "&beretning=" & Server.URLEncode(strberetning)
elseif    len(strfangst) < 1 or strfangst ="" then
    Response.Redirect "indtastrap.asp?msg=" & Server.URLEncode ("Du skal indtaste en fangst.") & "&overskrift=" & Server.URLEncode(stroverskrift)& "&forfatter=" & Server.URLEncode(strforfatter)& "&fangstmnd=" & Server.URLEncode(strFangstmnd)& "&fangst=" & Server.URLEncode(strfangst)& "&agn=" & Server.URLEncode(stragn)& "&vaegt=" & Server.URLEncode(strvaegt)& "&metode=" & Server.URLEncode(strmetode)& "&sted=" & Server.URLEncode(strsted)& "&beretning=" & Server.URLEncode(strberetning)
elseif    len(stragn) < 1 or stragn ="" then
    Response.Redirect "indtastrap.asp?msg=" & Server.URLEncode ("Du skal indtaste et agn.") & "&overskrift=" & Server.URLEncode(stroverskrift)& "&forfatter=" & Server.URLEncode(strforfatter)& "&fangstmnd=" & Server.URLEncode(strFangstmnd)& "&fangst=" & Server.URLEncode(strfangst)& "&agn=" & Server.URLEncode(stragn)& "&vaegt=" & Server.URLEncode(strvaegt)& "&metode=" & Server.URLEncode(strmetode)& "&sted=" & Server.URLEncode(strsted)& "&beretning=" & Server.URLEncode(strberetning)
elseif    len(strvaegt) < 1 or strvaegt ="" then
    Response.Redirect "indtastrap.asp?msg=" & Server.URLEncode ("Du skal indtaste vægten.") & "&overskrift=" & Server.URLEncode(stroverskrift)& "&forfatter=" & Server.URLEncode(strforfatter)& "&fangstmnd=" & Server.URLEncode(strFangstmnd)& "&fangst=" & Server.URLEncode(strfangst)& "&agn=" & Server.URLEncode(stragn)& "&vaegt=" & Server.URLEncode(strvaegt)& "&metode=" & Server.URLEncode(strmetode)& "&sted=" & Server.URLEncode(strsted)& "&beretning=" & Server.URLEncode(strberetning)
elseif    len(strmetode) < 1 or strmetode ="" then
    Response.Redirect "indtastrap.asp?msg=" & Server.URLEncode ("Du skal indtaste en metode.") & "&overskrift=" & Server.URLEncode(stroverskrift)& "&forfatter=" & Server.URLEncode(strforfatter)& "&fangstmnd=" & Server.URLEncode(strFangstmnd)& "&fangst=" & Server.URLEncode(strfangst)& "&agn=" & Server.URLEncode(stragn)& "&vaegt=" & Server.URLEncode(strvaegt)& "&metode=" & Server.URLEncode(strmetode)& "&sted=" & Server.URLEncode(strsted)& "&beretning=" & Server.URLEncode(strberetning)
elseif    len(strsted) < 1 or strsted ="" then
    Response.Redirect "indtastrap.asp?msg=" & Server.URLEncode ("Du skal indtaste et sted.") & "&overskrift=" & Server.URLEncode(stroverskrift)& "&forfatter=" & Server.URLEncode(strforfatter)& "&fangstmnd=" & Server.URLEncode(strFangstmnd)& "&fangst=" & Server.URLEncode(strfangst)& "&agn=" & Server.URLEncode(stragn)& "&vaegt=" & Server.URLEncode(strvaegt)& "&metode=" & Server.URLEncode(strmetode)& "&sted=" & Server.URLEncode(strsted)& "&beretning=" & Server.URLEncode(strberetning)
elseif    len(strberetning) < 1 or strberetning ="" then
    Response.Redirect "indtastrap.asp?msg=" & Server.URLEncode ("Du skal indtaste en beretning.") & "&overskrift=" & Server.URLEncode(stroverskrift)& "&forfatter=" & Server.URLEncode(strforfatter)& "&fangstmnd=" & Server.URLEncode(strFangstmnd)& "&fangst=" & Server.URLEncode(strfangst)& "&agn=" & Server.URLEncode(stragn)& "&vaegt=" & Server.URLEncode(strvaegt)& "&metode=" & Server.URLEncode(strmetode)& "&sted=" & Server.URLEncode(strsted)& "&beretning=" & Server.URLEncode(strberetning)
end if

'Create an ADO connection object
Set adoCon = Server.CreateObject("ADODB.Connection")

'Set an active connection to the Connection object using a DSN-less connection
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/krcdb.mdb")

'Create an ADO recordset object
Set rsAddComments = Server.CreateObject("ADODB.Recordset")

'Initialise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT * FROM testtabel;"

'Set the cursor type we are using so we can navigate through the recordset
rsAddComments.CursorType = 2

'Set the lock type so that the record is locked by ADO when it is updated
rsAddComments.LockType = 3

'Open the recordset with the SQL query
rsAddComments.Open strSQL, adoCon

'Tell the recordset we are adding a new record to it
rsAddComments.AddNew

'Add a new record to the recordset
rsAddComments.Fields("forfatter") = session("Userid")
rsAddComments.Fields("overskrift") = Request.Form("overskrift")
rsAddComments.Fields("agn") = Request.Form("agn")
rsAddComments.Fields("fangstmnd") = Request.Form("fangstmnd")
rsAddComments.Fields("fangst") = Request.Form("fangst")
rsAddComments.Fields("vaegt") = Request.Form("vaegt")
rsAddComments.Fields("sted") = Request.Form("sted")
rsAddComments.Fields("metode") = Request.Form("metode")
rsAddComments.Fields("beretning") = Request.Form("beretning")


'Write the updated recordset to the database
rsAddComments.Update


'find id som vi lige har sat ind.
sqlo = "SELECT max(ID_no) FROM testtabel"
Set rso = adocon.Execute(sqlo)   

oid = Cint(rso(0))

'Reset server objects
rsAddComments.Close
Set rsAddComments = Nothing
Set adoCon = Nothing

if Request.Form("billede") = "on" then
Response.Redirect "admin_indlaes_fil.asp?id=" & Server.URLEncode(oid)
else
Response.Redirect "view_selected.asp?id=" & Server.URLEncode(oid)
end if


%>