<%@ Language=VBScript %> <% 'On Error Resume Next Response.Buffer = True ' ' initialise local variable(s) current_file = Trim(Request.ServerVariables("SCRIPT_NAME")) current_path = Left(current_file, InStrRev(current_file, "/")) ' ' get the content details iContentID = Trim(Request("CID")) sContentTitle = "Information Not Found!" sContentDetail = "Information relating to the requested page was not found! Please contact the webmaster for more information." sContentImage = current_path & "images/" & "blank1.gif" If Not IsNumeric(iContentID) Then iContentID = 0 End If ' sSQL = "sp_GetContent " & iContentID & ", 0" Set rsContent = dbConnection.Execute(sSQL) If Not ( rsContent.BOF Or rsContent.EOF ) Then iContentID = rsContent("int_content_id") sContentTitle = rsContent("vchar_name") sContentDetail = rsContent("vchar_description") ' sContentImage = Replace(Trim(sContentTitle), " & ", "_") sContentImage = Replace(Trim(sContentImage), " ", "_") sContentImage = "h_" & LCase(sContentImage) & ".gif" ' ' file system object Set fso = Server.CreateObject("Scripting.FileSystemObject") sContentImage = current_path & "images/" & sContentImage If Not fso.FileExists(Server.MapPath(sContentImage)) Then sContentImage = current_path & "images/" & "blank1.gif" End If Set fso = Nothing End If rsContent.Close Set rsContent = Nothing %>

<% If Trim(sContentDetail) <> "" Then %> <% End If ' ' get all sub content sSQL = "sp_GetSubContent " & iContentID Set rsSubContent = dbConnection.Execute(sSQL) If Not ( rsSubContent.BOF Or rsSubContent.EOF ) Then Do While Not rsSubContent.EOF %> <% ' rsSubContent.MoveNext Loop End If rsSubContent.Close Set rsSubContent = Nothing %> <%= sContentDetail %> <%= rsSubContent("vchar_name") %>   <%= rsSubContent("vchar_description") %>