<% sPageTitle = "Placement and Trainig Cell ťť Questions" %>

Questions Ask a Question

<% set rsA = Server.CreateObject("ADODB.Recordset") conn.Open sConnFeedBack set rs.ActiveConnection = conn set rsA.ActiveConnection = conn sSQL = "SELECT * FROM Questions ORDER BY QuestionID DESC" rs.CursorType = adOpenStatic rs.Open sSQL rs.PageSize = 5 iPageCount = rs.PageCount lRecs = rs.RecordCount iPage = request("page") if isNumeric(iPage) then iPage = CLng(iPage) if iPage < 1 then iPage = 1 if lRecs > 0 then rs.AbsolutePage = iPage if not (lRecs > 0) then response.write "

No questions asked yet.

" sNavBar = "

" 'Build navigation bar if iPage <> 1 then sNavBar = sNavBar & "first ::" else sNavBar = sNavBar & "first ::" if iPage > 1 then sNavBar = sNavBar & " prev ::" else sNavBar = sNavBar & " prev ::" if iPage < iPageCount then sNavBar = sNavBar & " next ::" else sNavBar = sNavBar & " next ::" if iPage <> iPageCount then sNavBar = sNavBar & " last" else sNavBar = sNavBar & " last" sNavBar = sNavBar & " Page " & iPage & " of " & iPageCount & "

" if lRecs > 0 then response.write sNavBar %> <% do while not (rs.eof or (rs.AbsolutePage <> iPage)) lQuestionID = rs("QuestionID") sTitle = rs("Title") sSubmittedBy = rs("AskedBy") spos=rs("position") sSubmitDate = formatdatetime(rs("AskedDate"),2) & " - " & formatdatetime(rs("AskedDate"),4) sSQLA = "SELECT COUNT(AnswerID) AS AnswerCount FROM Answers WHERE QuestionID = " & lQuestionID rsA.Open sSQLA lAnswerCount = rsA("AnswerCount") rsA.close if len(sTitle)>0 then sTitle = server.htmlencode(sTitle) if len(sDescription)>0 then sDescription = server.htmlencode(sDescription) sDescription = replace(sDescription, chr(13), "
") end if %> <% rs.movenext loop CloseDB response.write "

ť	<%=sTitle%>
	Asked By: <%=sSubmittedBy%> >>>> <%=spos%> on <%=sSubmitDate%> \| <% if lAnswerCount = 0 then response.write "no answers" else response.write "" %> <%response.write "" & lAnswerCount & "answers" end if %> \| answer

" if lRecs > 0 then response.write sNavBar %>