database connection prob - please help

Hi i need to know how to convert the database connection from an frontpage connection to a standard one as i am having trouble. i dont have frontpage extension on my new server, so i need to know how to Server.MapPath ( see below what i thought woudl work)

this is the connection i have now

<!--#include file="_fpclass/fpdblib.inc"-->
  <%
fp_sQry="SELECT * FROM Sheet1 WHERE (artist = '::artist2::')"
fp_sDefault=""
fp_sNoRecords="<tr><td colspan=20 align=left width=""100%"">This show is currently unavailable or only taking private function enquiries.</td></tr>"
fp_sDataConn="vfe"
fp_iMaxRecords=256
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=True
fp_fMenuFormat=False
fp_sMenuChoice=""
fp_sMenuValue=""
fp_iDisplayCols=20
fp_fCustomQuery=False
BOTID=0
fp_iRegion=BOTID
%>
<!--#include file="_fpclass/fpdbrgn1.inc"-->
 

<%=FP_FieldVal(fp_rs,"bio2")%> 

Code (markup):

this is the code that i thought would do the job

 <%
  DIM objConn
  Set objConn=Server.CreateObject("ADODB.Connection")
  objConn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&_
  Server.MapPath ("\fpdb/vfe.mdb")&";"
  objConn Open
  
  DIM mySQL
  mySQL="SELECT * FROM Sheet1 WHERE (ID = ::ID::)"
  
  DIM objRS
  Set objRS=Servier.CreateObject("ADODB.Recordset")
  objRS.Open mySQL, objConn
  %>

Code (markup):

 

<%
ID = (whatever gives the ID number, form field, query string ... etc)

DIM objConn
Set objConn=Server.CreateObject("ADODB.Connection")
objConn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&_
Server.MapPath ("/fpdb/vfe.mdb")&";"
objConn Open

DIM mySQL
mySQL="SELECT * FROM Sheet1 WHERE ID =" & ID

DIM objRS
Set objRS=Servier.CreateObject("ADODB.Recordset")
objRS.Open mySQL, objConn, 1, 3
%>