<% 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"Fly in Fishing and Hunting with Kashabowie Outposts" Response.Write"" Response.Write"" 'End Absolute default tags else Response.Write""&ms("metaTitle")&""&vbCrLf Response.Write""&vbCrLf Response.Write""&vbCrLf if len(ms("metaDate"))>1 then Response.Write""&vbCrLf end if end if ms.close: set ms=nothing conm.close: set conm=nothing ' end title and meta code snippet %>
Call Kashabowie Outposts to find the best Cabin and Dates available for your trip!