|
 |
 |
| |
Home
>>
Community
>> Patient stories
Ask the doctor :: Find a physician ::
Discussion forum
Chat room :: Patient stories
Suffering from a disease or chronic illness can
be a horrible experience. Although physicians and staff care for
hundreds of patients during the course of a year, each patient's
story is unique. Here in this section we would like our community
member's to share a few experiences with other members of health
tools online community.
<%
Dim oCon,objRs,strSQL,strCaseTypeName, strCaseStudyDesc, strLink
Set oCon = Server.CreateObject("ADODB.Connection")
oCon.Open C_CONNECTION_STRING
strSQL = "SELECT CaseStudyTypeTable.CaseStudyType_ID, CaseStudyTypeTable.CaseStudyType_Name, CaseStudyTable.CaseStudy_ID, CaseStudyTable.CaseStudy_Name, CaseStudyTable.CaseStudy_isNew, CaseStudyTable.CaseStudy_Desc"
strSQL = strSQL & " FROM CaseStudyTypeTable INNER JOIN CaseStudyTable ON CaseStudyTypeTable.CaseStudyType_ID = CaseStudyTable.CaseStudyType_ID"
strSQL = strSQL & " ORDER BY CaseStudyTypeTable.CaseStudyType_Name, CaseStudyTable.CaseStudy_Name;"
set objRs=oCon.Execute(strSQL)
%>
<%
If not (objRs.bof and objRs.eof) then
strCaseTypeName=objRs("CaseStudyType_Name")
%>
<%
While Not objRs.EOF
strLink=""
strCaseStudyDesc=objRs("CaseStudy_Desc")
IF len(strCaseStudyDesc) >=10 THEN
strCaseStudyDesc=Left(strCaseStudyDesc,100) & ".... " & strLink & " More>>" & ""
ELSE
strCaseStudyDesc=strCaseStudyDesc& ".... " & strLink & "More>>" & ""
END IF
if strCaseTypeName<>objRs("CaseStudyType_Name") Then
strCaseTypeName=objRs("CaseStudyType_Name")
%>
| |
| <%=ucase(strCaseTypeName)%> |
<%
End If
%>
<%
if objRs("CaseStudy_isNew") ="True" Then
%>
|
| | |
| |
Patient Name : <%=objRs.Fields("CaseStudy_Name").Value%> New
|
| |
Description :
<%=strCaseStudyDesc%>
|
<%
else
%>
| | |
| |
Patient Name : <%=objRs.Fields("CaseStudy_Name").Value%>
|
| |
Description :
<%=strCaseStudyDesc%>
|
<%
End if
%>
<%
objRs.MoveNext
intRecord = intRecord + 1
Wend
End If
objRs.Close
Set objRs = Nothing
oCon.Close
Set oCon=Nothing
%>
|
|
|
|
