%@ Language=VBScript %> <% Option Explicit %> <% Dim con ' database connection Dim rs ' recordset Dim strSQL ' SQL string Dim strOut ' output dim strHeadline dim strSynopsis dim strPageTitle dim strPageKeywords dim strPageDescription dim strStory dim intContentID Set con = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") con.Open session("strDBCon") intContentid = request("id") '#################################################################### '' get page keywords and main title '#################################################################### strSQL = "exec advosis_content_get " & intContentID rs.Open strSQL, con If not rs.EOF then strHeadline = rs("headline") strSynopsis = rs("synopsis") strPageTitle = rs("pageTitle") strPageKeywords = rs("pageKeywords") strPageDescription = RS("pagedescription") Else Response.Write "Error: no data" End if rs.Close '' get Just the story details strSQL = "exec advosis_Story_get " & intContentID rs.Open strSQL, con If not rs.EOF then strStory = rs("story") Else Response.Write "Error: no data" End if rs.Close '#################################################################### ' con.close %>