hvordan med strConnect ?

Hvordan for jeg denne her ind sat ind i den sidste kode så det virker?

Første kode som skal ind i den sidste:
Jeg skal skrive sådan for at benytte pågældende server.
<%
  strConnect = "Data Source=d:\home\FtpBrugernavn\db\database.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"

  ' Følgende kode gør at du kan stoppe adgangen til databasen hvis du skal opdatere den.
  strUpdate = "no"
  If strUpdate = "yes" Then
    Response.Write "<p>Siden er under opdatering. Kom tilbage om 5 minutter.</p>"
    Response.End
    ' Alternativt kan du slette ovenstående 2 linier og istedet bruge nedenstående til at kalde en anden fil.
    ' Response.Redirect("update.htm")
  End If
%>


Sidste kode:

<%
'STEP 3: Load the content from the database
dim adoCn
set adoCn = Server.CreateObject("ADODB.Connection")
adoCn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database.mdb")

dim adoRs
dim strSQL

set adoRs = Server.CreateObject("ADODB.Recordset")
strSQL = "Select Content From Content where ID="&request.QueryString("ID")
'response.Write(strSQL)
set adoRs = adoCn.Execute(strSQL)
If not adoRs.EOF then
strContent = adoRs("Content")
End If
adoRs.Close
set adoRs = nothing
adoCn.Close
set adoCn = nothing
%>