server.mappath

hej jeg har en kode som ser således ud !

<%


Option Explicit

Dim iCount
Dim sRowColor
Dim objDB
Dim objRS
Dim sDBName

sDBName = "driver={Microsoft Access Driver (*.mdb)};dbq=C:\Documents and Settings\jc\Skrivebord\jonas\Jens\med hjemmeside\Ny mappe\bruges\db.mdb"
Set objDB = Server.CreateObject("ADODB.Connection")
objDB.Open sDBName
Set objRS = objDB.Execute("select * from montagedk")

Response.Write("<html>")
Response.Write("<head>")
Response.Write("<LINK REL='stylesheet' TYPE='text/css' HREF='style/style.css'>")
Response.Write("<title>Referenceliste</title>")
Response.Write("</head>")
Response.Write("<body bgcolor=white Leftmargin='0' Topmargin='100' rightmargin='15'>")

Response.Write("<b>Referenceliste:</b>")
Response.Write("<br>")
Response.Write("<br>")
If objRS.EOF Then
    Response.Write("<b>No matching records found.</b>")
    objRS.Close
    objDB.Close
    Set objRS = Nothing
    Set objDB = Nothing
    Response.End
End If
Response.Write("<class='BODY'>")
Response.Write("<table border=1 cellpadding=2 cellspacing=2>")
Response.Write("<tr bgcolor=silver>")

Response.Write("<th filter=ALL>Industri</th>")
Response.Write("<th filter=ALL>Kunde</th>")
Response.Write("<th filter=ALL>Arbejdssted</th>")
Response.Write("<th filter=ALL>Land</th>")
Response.Write("<th filter=ALL>Jens Rolle</th>")
Response.Write("</tr>")

Do While Not objRS.EOF
    'this code alternates the color of the table rows...
    iCount = iCount + 1
    If iCount Mod 2 = 0 Then
        sRowColor = "#7F93B6"
    Else
        sRowColor = "#E5E5E5"
    End If

    Response.Write("<tr bgcolor=" & sRowColor & ">")
    Response.Write("<td>" & objRS("Industri") & "</td>")
    Response.Write("<td>" & objRS("Kunde") & "</td>")
    Response.Write("<td>" & objRS("Arbejdssted") & "</td>")
    Response.Write("<td>" & objRS("Land") & "</td>")
    Response.Write("<td>" & objRS("Jens Rolle") & "</td>")
    Response.Write("</tr>")
    objRS.MoveNext
Loop

Response.Write("</table>")



'Her starter konsulent siden
sDBName = "driver={Microsoft Access Driver (*.mdb)};dbq=C:\Documents and Settings\jc\Skrivebord\jonas\jens\med hjemmeside\Ny mappe\bruges\db.mdb"
Set objDB = Server.CreateObject("ADODB.Connection")
objDB.Open sDBName

Set objRS = objDB.Execute("select * from konsulentdk")

Response.Write("<br>")
Response.Write("<br>")
Response.Write("<b>konsulentliste:</b>")
Response.Write("<br>")
Response.Write("<br>")
If objRS.EOF Then
    Response.Write("<b>No matching records found.</b>")
    objRS.Close
    objDB.Close
    Set objRS = Nothing
    Set objDB = Nothing
    Response.End
End If
Response.Write("<class='BODY'>")
Response.Write("<table border=1 cellpadding=2 cellspacing=2>")
Response.Write("<tr bgcolor=silver>")

Response.Write("<th filter=ALL>Industri</th>")
Response.Write("<th filter=ALL>Kunde</th>")
Response.Write("<th filter=ALL>Arbejdssted</th>")
Response.Write("<th filter=ALL>konsulent</th>")
Response.Write("<th filter=ALL>Jens Rolle</th>")
Response.Write("</tr>")

Do While Not objRS.EOF
    rows...
    iCount = iCount + 1
    If iCount Mod 2 = 0 Then
        sRowColor = "#7F93B6"
    Else
        sRowColor = "#E5E5E5"
    End If

    Response.Write("<tr bgcolor=" & sRowColor & ">")
    Response.Write("<td>" & objRS("Industri") & "</td>")
    Response.Write("<td>" & objRS("Kunde") & "</td>")
    Response.Write("<td>" & objRS("Arbejdssted") & "</td>")
    Response.Write("<td>" & objRS("konsulent") & "</td>")
    Response.Write("<td>" & objRS("Jens Rolle") & "</td>")
    Response.Write("</tr>")
    objRS.MoveNext
Loop

Response.Write("</table>")
Response.Write("</body>")
Response.Write("</html>")

objRS.Close
objDB.Close
Set objRS = Nothing
Set objDB = Nothing
%>

Den virker fint lokalt, men når jeg oploader den er der fejl. Jeg ved at det er min connection til databasen der er fejl i, men da jeg ikke kender den eksakte sti til min db på webhotelet vil jeg høre om der er en måde at finde den på.
jeg har prøvet med følgende.


sDBName = "driver={Microsoft Access Driver (*.mdb)};dbq=Server.MapPath("db.mdb");
Set objDB = Server.CreateObject("ADODB.Connection")
objDB.Open sDBName

men det virker hellere ikke.

På forhånd tak.

Jones