% @ LANGUAGE = VBScript %> <% Option Explicit Response.Expires = -1 Server.ScriptTimeOut = 900 %> <% Session("userID") = "intranet" Session("passwd") = "caotis" Session("dsnName") = "csem" const debugDisplay = False const fieldSep = ";" dim id,title,intro,description,location id = Request.QueryString("id") DBConnect DBOpenQuery "select job_title,intro_text,description,name from lb_jobs,lb_job_locations where location_id=lb_job_locations.id and lb_jobs.id=" & id title = DBGetValue("job_title") intro = DBGetValue("intro_text") description = DBGetValue("description") location = DBGetValue("name") DBCloseQuery DBDisconnect %>