breadcrumb navigation trail

Function BreadCrumb
 strDBPath = "db1.mdb"
 
 Set dbConn = Server.CreateObject("ADODB.Connection")
 dbConn.Open "Provider=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & Server.MapPath(strDBPath)
 
 thisEndPage = Request.QueryString("cid")
 thisStartPage = 0
 varSeparator = " > "
 
 If Request.QueryString("cid") = "" Then
  Response.Write "<a href=""default.asp"">Home</a>"
 Else
  Response.Write "<a href=""default.asp"">Home</a>" & varSeparator
 End if
     
 Do Until thisEndPage = thisStartPage
 
  set getPage = dbConn.Execute("Select * From tblCategories Where id =" & thisEndPage & ";")
         
  If NOT getPage.EOF Then
  
   If thisEndPage = Request.QueryString("cid") Then
    BreadCrumb = getPage("name")
   Else
    BreadCrumb = "<a href=""default.asp?cid=" & getPage("id") & """>" & getPage("name") & "</a>" & varSeparator & BreadCrumb
   End If
   
  End If
         
  thisEndPage = getPage("sub_id")
  getPage.Close
  set getPage = Nothing
 Loop
End Function