%@ 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 '#################################################################### %>
Further Links within this section
|
|