<% id = Request.QueryString("id") If id = "" OR NOT IsNumeric(id) Then id = 0 sSQL="SELECT Content, CID, SSID FROM content WHERE CID = " & id Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open sSQL, Application("conn") If NOT rs.EOF AND NOT rs.BOF Then content = rs.Fields("Content").Value ssid = rs.Fields("SSID").Value 'Response.Write "ssid = " & ssid If ssid = 5 Then title = "DISCS' President" Else title = "DISCS' Board of Trustees & Governers" End If End If rs.Close Set rs = Nothing %>

<%=title%>

<% Response.Write Replace(content,vbcrlf,"
")%>