ASP og DB ????

Jeg har været på kursus i ASP, og skal nu forsøge mig her hjemme, men alting var sat op da vi kom, server DB osv......
Og nu skal alting jo lige køre her også, server DB ........hvor skal min DB ligge.
Hvor gemmer jeg filen *mdb i samme mappe som ASP filerne ????

Jeg har dette her stykke kode MEN, nu kan jeg ikke huske hvad jeg gemte min database som (hvor ser jeg det)?????

Dette er fejlen jeg får hvis jeg prøver at køre det........

---------------------------------------

[Microsoft][ODBC Driver Manager] Datakildenavnet blev ikke fundet, og der er ikke angivet en standarddriver

Hvad er standarddriver ????? det lyder som om det hele er umuligt
--------------------------------------------------

Og dette er koderne..........
-----------------------------------------------------

<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME=\"GENERATOR\" Content=\"Microsoft Visual Studio 6.0\">
</HEAD>

<BODY>
  <%
if Request.Form(\"skjul\")=\"\" then
%>

  <form action=\"ASP Page19.asp\" method=\"post\" name=form1>
  <input type=\"hidden\" name=\"skjul\" value=\"?\">

<TABLE WIDTH=30% BORDER=0 CELLSPACING=0 CELLPADDING=0>
    <TR>
        <TD>Vælg Navn eller E-mail</TD>
        <TD><INPUT type=\"text\" name=text1></TD>

    </TR>
        <TD>E-Mail: <INPUT type=\"radio\"  name=email value=\"email\"></TD>
        <TD>Telefon: <INPUT type=\"radio\"  name=email  value=\"telefon\" checked></TD>
        <TD>Mobil: <INPUT type=\"radio\"  name=email  value=\"mobil\"></TD>

    </TR>
    <tr>
        <td><INPUT type=\"submit\" value=\"Submit\" id=submit1 name=submit1></td>
    </tr>
</TABLE>
</form>
<%
Else
if Request.Form(\"skjul2\")=\"\" then

    Dim objConn, objRS,strSQL,Data
    Data = Request.Form(\"text1\")   

    \'init Connection objrekt
    set objConn=Server.CreateObject(\"ADODB.Connection\")
    \'åbner forbindelsen til database
    objConn.Open\"database\"
    \'init Recordset objrekt
    set objRS = Server.CreateObject(\"ADODB.Recordset\")
   
    if Request.Form(\"email\")=\"telefon\" then
   
        strSQL = \"select * from kartotek where telefon=\'\"& Data &\"\'OR mobil=\'\"& Data &\"\'OR Email=\'\"& Data &\"\'\"
    else
   
        strSQL = \"select * from kartotek where email=\'\"& Data &\"\'\"
    end if
   
    objRS.Open strSQL,objConn
%>
   
      <form action=\"ASP Page19.asp\" method=\"post\"  id=form1 name=form1>
      <input type=\"hidden\" name=\"skjul\" value=\"?\">
      <input type=\"hidden\" name=\"skjul2\" value=\"?\">
      <input type=\"hidden\" name=\"<%=data%>\" value=\"Data\">

<TABLE WIDTH=50% BORDER=0 CELLSPACING=0 CELLPADDING=0>
    <TR>
        <TD>Navn:</TD>
        <TD><INPUT type=\"text\" name=Navn value=\"<%=objRS(\"navn\")%>\"></TD>
    </TR>
    <TR>
        <TD>Adresse:</TD>
        <TD><INPUT type=\"text\" name=Adresse value=\"<%=objRS(\"Adresse\")%>\"></TD>
    </TR>
    <TR>
        <TD>By:</TD>
        <TD><INPUT type=\"text\" name=By value=\"<%=objRS(\"By\")%>\"></TD>
    </TR>
    <TR>
        <TD>PostNr:</TD>
        <TD><INPUT type=\"text\" name=PostNr value=\"<%=objRS(\"PostNr\")%>\"></TD>
    </TR>
    <TR>
        <TD>Telefon:</TD>
        <TD><INPUT type=\"text\" name=Telefon value=\"<%=objRS(\"Telefon\")%>\"></TD>
    </TR>
    <TR>
        <TD>Email:</TD>
        <TD><INPUT type=\"text\"  name=Email value=\"<%=objRS(\"Email\")%>\"></TD>
    </TR>
    <TR>
        <TD>Mobil:</TD>
        <TD><INPUT type=\"text\" name=Mobil value=\"<%=objRS(\"Mobil\")%>\"></TD>
    </TR>
</TABLE>
<INPUT type=\"submit\" value=\"Opdatere\" id=submit2 name=submit2>
</FORM>
<%
    objRS.Close
    objConn.Close
else

    \'init Connection objrekt
    set objConn=Server.CreateObject(\"ADODB.Connection\")
    \'åbner forbindelsen til database
    objConn.Open\"database\"
    \'init Recordset objrekt
    set objRS = Server.CreateObject(\"ADODB.Recordset\")
    Data = Request.Form (\"data\")
   
strSQL = \"select * from kartotek where telefon=\'\"& Data &\"\'OR mobil=\'\"& Data &\"\'OR Email=\'\"& Data &\"\'\"
objRS.Open strSQL,objConn,2,2
   
        navn = Request.Form(\"navn\")
        By = Request.Form(\"By\")
        Adresse = Request.Form(\"Adresse\")
        PostNr = Request.Form(\"PostNr\")
        Telefon = Request.Form(\"Telefon\")
        Email = Request.Form(\"Email\")
        Mobil = Request.Form(\"Mobil\")


        objRS(\"navn\") = navn
        objRS(\"By\") = By
        objRS(\"Adresse\") = Adresse
        objRS(\"PostNr\") = PostNr
        objRS(\"Telefon\") = Telefon
        objRS(\"Email\") = Email
        objRS(\"Mobil\") = Mobil

        objRS.Update   
        objRS.Close
        objConn.Close

end if
   
    end if

    %>

</BODY>
</HTML>