" border="0" height="400" width="500">
<% 'Using the request.querystring("ap"), query the DB for the associated text Function getFileName() Dim lsPath, arPath ' Obtain the virtual file path lsPath = Request.ServerVariables("SCRIPT_NAME") ' Split the path along the /s. This creates an ' one-dimensional array 'arPath = Split(lsPath, "/") ' The last item in the array contains the file name 'GetFileName =arPath(UBound(arPath,1)) rootPath = Server.MapPath("~") GetFileName = rootPath End Function set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open Server.MapPath ("/moles/blog.mdb") Dim objRS Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open "SELECT epithet FROM entries where filepath = '" & request.querystring("ap") & "';", Conn if Not objRS.EOF then response.write objRS("epithet") end if conn.close %>