<% Option Explicit %> INDIACom Admin Module <% 'Collect Filters Dim PaperID, Title, Track, ReviewResult PaperID = Request.Form("txtPaperID") Title = Request.Form("txtTitle") Track = Request.Form("txtTrack") ReviewResult = Request.Form("ddbReviewResult") %>
<% 'Collect Filters Dim Query Query = "SELECT * FROM paper WHERE event_id = 'INDIACom11'" If PaperID <> "" And Title <> "" Then Query = Query & " AND (Paper_id ='" & PaperID & "' OR title like '%" & title & "%')" ElseIf PaperID <> "" Then Query = Query & " AND Paper_ID='" & PaperID & "'" ElseIf Title <> "" Then Query = Query & " AND title like '%" & title & "%'" End If If Track <> "" Then Query = Query & " AND track_id ='" & track & "'" End If If ReviewResult <> "" Then Query = Query & " AND review_result ='" & ReviewResult & "'" Else Query = Query & " AND review_result IN ('GROUP1', 'GROUP2', 'GROUP3', 'GROUP4')" End If Query = Query & " ORDER BY track_id, review_result, CONVERT(int, paper_id)" 'Response.Write Query With dbCommand .ActiveConnection = dbConnection .CommandText = Query Set dbRecordset = .Execute End With Dim flag, count flag = 0 count = 0 While Not dbRecordset.EOF flag = (flag + 1) Mod 2 count = count + 1 %> style="background-color: #E0E0E0" <% end if %>> <% dbRecordset.MoveNext Wend dbRecordset.Close() %>
Paper ID OR Title
Track Number
Group

 

 

Track Group Paper ID Title
<%=dbRecordset("track_id")%> <%=dbRecordset("review_result")%> <%=dbRecordset("paper_id")%> .pdf"><%=dbRecordset("title")%>