 |
|
|
|
|
 |
| | Staffing / Services | Referral |
<%
dim CurrStartingRecNo
dim CurrEndingRecNo
dim NoOfRecordsToDisplayInPg
dim CountOfDisplayRec
dim rsCount,Tots
dim NoOfRecordsToSkip
dim varRecordCount
CurrStartingRecNo = 0
CurrEndingRecNo = 0
NoOfRecordsToDisplayInPg = 10
CountOfDisplayRec = 0
rsCount = 0
set conobj = Server.CreateObject("ADODB.Connection")
Session("DBConnectionString")="DRIVER={Driver do Microsoft Access (*.mdb)};UID=;PWD=;PERSIST SECURITY INFO=True;DBQ=" & Server.MapPath("Database\database.mdb")
constr = Session("DBConnectionString")
conobj.Open(constr)
sqlqry = "SELECT COUNT (*) as tot from ForumAnswer"
set RSobj = conobj.execute(sqlqry)
Tots = RSobj("tot")
'sqlqry = "SELECT QuestionID,Answer,PostName,PostCompany,Format(PostDate,'MM-dd-yy') AS dat FROM ForumAnswer"
sqlqry = "select a.QuestionID,a.ForumQuestion,b.QuestionID,b.Answer,b.PostName,b.PostCompany,Format(b.PostDate,'MM-dd-yy') AS dat from ForumQuestion as a inner join ForumAnswer as b on a.QuestionID = b.QuestionID order by b.PostDate asc"
set RSobj = conobj.execute(sqlqry)
if RSobj.eof then
RecordFound = "no"
end if %>
<% if RecordFound = "no" then %>
<% sqlqry = "SELECT QuestionID,ForumQuestion FROM ForumQuestion"
set RSobj = conobj.execute(sqlqry)%>
"/>
Case Manager Corner
<%'=RSobj("ForumQuestion")%> |
<% else %>
Case Manager Corner
Share Your Thoughts - <%'=RSobj("ForumQuestion")%>
|
" />
<% end if%>
<%
sqlqry = "select a.QuestionID,a.ForumQuestion,b.QuestionID,b.Answer,b.PostName,b.PostCompany,Format(b.PostDate,'MM-dd-yy') AS dat from ForumQuestion as a inner join ForumAnswer as b on a.QuestionID = b.QuestionID order by b.PostDate desc"
set RSobj = conobj.execute(sqlqry)
if not(RSobj.BOF and RSobj.EOF) then
Sino=1
do until RSobj.EOF
%>
| |
|
|
| |
<%=RSobj("Answer")%> |
|
| |
Posted: <%=RSobj("PostName")%><%=RSobj("PostCompany")%><%=RSobj("dat")%> |
|
|
<%
RSobj.MoveNext
Sino=Sino+1
loop
else
end if
%>
|
Post Your Opinion | Total Posts (<%=Tots%>)
|
|
|
|
|
|
|
|
|
 |
 |