Welcome to HEALTH TOOLS ONLINE

<% Response.buffer = True %> <%If Not(IsEmpty(Session("strUName"))) OR (Session("strUName")) <> "" Then Session(C_USER_NICKNAME) = Session("strUName") End If%> Welcome to HEALTH TOOLS ONLINE <%If IsEmpty(Request("sLName")) OR Request("sLName")="" Then%> <%Else%> ')" bgcolor="#999966" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" link="#666600" vlink="#666600" alink="#666600"> <%End If%> <% Dim strSQL Dim strForumList,strURL strURL = Request.ServerVariables("SERVER_NAME") strURL = "http://" & strURL & Request.ServerVariables("SCRIPT_NAME") strSQL = "SELECT ForumTable.Forum_Name, ForumTable.Forum_ID FROM ForumTable ORDER BY ForumTable.Forum_Name;" strForumID = Request("iForumID") Dim fClearBuffer fClearBuffer = False If Request("fLogOff") Then Response.Buffer = True Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0 Response.CacheControl = "no-cache" fClearBuffer = True Session(C_USER_NICKNAME) = Empty Session(C_MEMBER_ID) = Empty Session(C_USER_TYPE) = Empty Session.Abandon() End If '********************************************************************************************************************************* '********************************************************************************************************************************* Function buildForumList() Dim oGetForumDetails Dim rsForumRecords Set oGetForumDetails = New GetRecords Call oGetForumDetails.getConnectionObj() Call oGetForumDetails.makeConnection() Set rsForumRecords = oGetForumDetails.getRow(strSQL) Call oGetForumDetails.closeGetrowRecSet() If Not IsEmpty(strForumID) OR strForumID <> "" Then If strForumID <> "" Then strSQL = "SELECT TopicsTable.Topics_ID, TopicsTable.Topics_Name FROM ForumTable INNER JOIN TopicsTable ON ForumTable.Forum_ID = TopicsTable.Forum_ID " &_ "WHERE (((ForumTable.Forum_ID)=" & strForumID & "));" strForumList = oGetForumDetails.buildHyperLinkWithParams(rsForumRecords,strURL,strForumID,strSQL) Else strForumList = oGetForumDetails.buildHyperLinkWithParams(rsForumRecords,strURL,Empty,Empty) End If Else strForumList = oGetForumDetails.buildHyperLinkWithParams(rsForumRecords,strURL,Empty,Empty) End If Session(C_FORUM_ID) = strForumID Session(C_FORUMSANDTOPICSLIST) = strForumList Call oGetForumDetails.closeConnection() Set oGetForumDetails = Nothing End Function If Request("iForumID")<> Session(C_FORUM_ID) Then strForumID = Request("iForumID") Session(C_FORUM_ID)= Empty Session(C_TOPIC_ID)= Empty Session(C_QUESTION_ID)= Empty buildForumList() ElseIf IsEmpty(Request("iForumID")) Then buildForumList() End If '********************************************************************************************************************************* %>

Home >> Community >> Discussion forum

Ask the doctor :: Find a physician :: Discussion forum

Online chat :: Patient stories

<%If Session(C_USER_NICKNAME) <> Empty Then %> <%Else%> <%End If%> <% If (strForumID<>"" And strForumID<>"0") And Session(C_USER_TYPE) Then%> <%End If%>

Messages Board

Forums And Topics

User Name :<%=server.HTMLEncode(Session(C_USER_NICKNAME)) %>

Sign Off

Add new topic

<% Dim strPage,strPagenumber strPagenumber = Request("iPageNO") strPage = "" If strPagenumber <> "" Then Select Case CInt(strPagenumber) Case I_MESSAGES_PAGE strPage = "Messages.asp" Case I_POST_ANSWERS_PAGE strPage ="Reply.asp" Case I_TELL_A_FRIEND_PAGE strPage ="TellAFriend.asp" Case I_POST_QUESTIONS_PAGE strPage = "PostQuestions.asp" Case I_ADD_TOPICS_PAGE strPage = "AddTopics.asp" Case I_LOGIN_PAGE strPage = "Login.asp" Case I_REGISTRATION_PAGE strPage = "Registration.asp" Case I_FORUMSGRID_PAGE strPage = "ForumsGrid.asp" Case I_FORUM_PAGE strPage = "Forums.asp" Case I_PROFESSIONSGRID_PAGE strPage = "ProfessionGrid.asp" Case I_PROFESSIONS_PAGE strPage = "Profession.asp" Case I_TOPICS_PAGE strPage = "Topics.asp" Case I_TOPICSGRID_PAGE strPage = "TopicsGrid.asp" Case I_QUESTIONSGRID_PAGE strPage = "QuestionsGrid.asp" case I_FORGOT_PASSWORD strPage = "forgotforumpass.asp" Case else strPage = "Discussions.asp" End Select Else strPage = "Discussions.asp" End If If strPage <> "Discussions.asp" Then Server.Execute strPage End If %>

<% Dim dbOps,strSelectSQL, rsForums, intForumID, rsTopics, conn,forumpost Set conn = Server.CreateObject("ADODB.Connection") Set rsForums = Server.CreateObject("ADODB.Recordset") Set rsTopics = Server.CreateObject("ADODB.Recordset") strSelectSQL = "SELECT * FROM ForumTable ORDER BY Forum_Name" conn.Open C_CONNECTION_STRING Set rsForums = conn.Execute(strSelectSQL) if( Session(C_USER_TYPE)) then While Not rsForums.Eof forumpost="Discussions.asp?iForumID=" & rsForums("Forum_ID") %>

<%=rsForums("Forum_Name")%> <% if( CInt(rsforums("forum_ID"))= CInt(strForumID)) then strSQL="SELECT * FROM TopicsTable WHERE Forum_ID = " & rsForums("Forum_ID") Set rsTopics = conn.Execute(strSQL) Do While Not rsTopics.Eof strQueryString = Request.ServerVariables("SCRIPT_NAME") & "?iPageNo=1&iTopicID=" & rsTopics("Topics_ID") & "&iForumID=" & strForumID & "&sLName=" & strLayerName %>
- <%=rsTopics("Topics_Name")%>
<% rsTopics.MoveNext Loop End If %>

<% rsForums.movenext wend else Dim strLayerName, strToPassSHOW, strToPassHIDE Dim strQueryString Dim isQueryPresent If Request("sLName")<>"" Then isQueryPresent=Request("sLName") End If If Not rsForums.Eof Then Do While Not rsForums.Eof intForumID=rsForums("Forum_ID") strLayerName = "Layer" & intForumID strToPassSHOW = strLayerName & "Show" strToPassHIDE = strLayerName & "Hide" %>

<%=rsForums("Forum_Name")%> <%=rsForums("Forum_Name")%> <% strSQL="SELECT * FROM TopicsTable WHERE Forum_ID = " & intForumID Set rsTopics = conn.Execute(strSQL) %>
<% If Not rsTopics.Eof Then %> <% Do While Not rsTopics.Eof strQueryString = Request.ServerVariables("SCRIPT_NAME") & "?iPageNo=1&iTopicID=" & rsTopics("Topics_ID") & "&iForumID=" & intForumID & "&sLName=" & strLayerName %>
- <%=rsTopics("Topics_Name")%>
<% rsTopics.MoveNext Loop End If %>

<% rsTopics.Close Set rsTopics = Nothing rsForums.MoveNext Loop End If rsForums.Close Set rsForums = Nothing conn.Close Set conn = Nothing End If %>

DESIGNED / DEVELOPED BY