% cst = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("database\meta.mdb") set conm = server.createobject("adodb.connection") conm.open cst ' insert this code snippet in between your
and tags page=Request.ServerVariables("SCRIPT_NAME") page=right(page,len(page)-instrrev(page,"/")) qs=Request.ServerVariables("QUERY_STRING") if qs<>"" then qs="?"&qs page=page&qs set ms=conm.execute("SELECT * FROM tblMeta WHERE metaPageName='"&page&"'") if ms.eof then set ms=conm.execute("SELECT * FROM tblMeta WHERE metaDefault='default'") end if if ms.eof then 'Write some absolute default tags so that the site does not go down if the database goes bad Response.Write"![]() |