<%@language=VBScript%> <% Option Explicit ' Assigns HTML title, META description and keywords to specific page. ' file, doc vars used to produce link to a PRINTER-FRIENDLY page, list var toggles display location / turns off listing. DIM title,author,list,file,chrs,doc,description,keywords,Y,N,H,authorEmail ' title = "Tips for Driving Responsibly while Using Your Cell Phone" author = "Jim Hanks" list = Y ' POSSIBLE VALUES: Y - YES, N - NO or H - Headliners. DO NOT EDIT IN ANY OTHER WAY. authorEmail = "editors@hellodirect.com" description = "" keywords = "" ' file = Split(Request.ServerVariables("PATH_INFO"),"/") chrs = LEN(file(uBound(file))) doc = LEFT(file(uBound(file)),chrs - 4) %> ">