<%@ Language=VBScript %> <% Option Explicit %> <% Dim con ' database connection Dim rs ' recordset Dim strSQL ' SQL string Dim strOut ' output dim strSlider ' Slider Output dim strPageTitle dim strPageKeywords dim strPageDescription dim strHeadline dim strSynopsis dim strStory dim intContentid dim intSectionid Set con = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") con.Open session("strDBCon") intContentid = request("id") intSectionid = request("sectionid") '#################################################################### '' 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 '#################################################################### %> <%= strPageTitle %>

<%= strHeadline %>

<%= strstory %>

Further Links within this section

    <% '#################################################################### '' get About Items '#################################################################### strSQL = "exec Advosis_get_section_list @userid=" & session("marineuserid") & ",@sectionid=" & intsectionid rs.open strSQL, con if not rs.eof then while not rs.eof response.write "
  • " & rs("headline") & "
  • " & _ rs.movenext wend end if rs.close '#################################################################### %>