Dim IsAccepted : IsAccepted = CStr( rs_outboxall("IsAccepted") )
Dim qnrstatus
select case IsAccepted
case "0":
qnrstatus = "Sent"
case "3":
qnrstatus = "in progress"
case "2":
qnrstatus = "awaiting approval"
case "1":
qnrstatus = "accepted"
End select
<%
While ((Repeat1__numRows <> 0) AND (NOT rs_outboxall.EOF))
%>
<tr class="gradeX">
<td><%Response.Write getStatus( rs_outboxall("IsAccepted") ) %>
- <%=(rs_outboxall.Fields.Item("IsAccepted").Value)%></td>
<td><a href="../Qnr/QnrPreview.asp?QnrUserid=<%=(rs_outboxall.Fields.Item("UserId").Value)%>&Qnrmailedid=<%=(rs_outboxall.Fields.Item("Id").Value)%>&Qnrtype=inbox&qnr=1" class="btn btn-white btn-sm"> <i class="fa fa-folder"></i> View </a> <a href="SPDeleteQnr.asp?QnrId=<%=(rs_outboxall.Fields.Item("Id").Value)%>" class="btn btn-white btn-sm" onClick="GP_popupConfirmMsg('Please confirm you wish to delete the Questionnaire.');return document.MM_returnValue"> <i class="fa fa-trash-o"></i> Delete </a> <a href="Resendqnremail.asp?QnrId=<%=(rs_outboxall.Fields.Item("id").Value)%>" class="btn btn-white btn-sm"> <i class="fa fa-envelope"></i> email </a></td>
<td><%= DoDateTime((rs_outboxall.Fields.Item("SentOn").Value), 2, 9225) %></td>
<td><span class="bodytext"><%=(rs_outboxall.Fields.Item("SentTo").Value)%> <%=(rs_outboxall.Fields.Item("firstnm").Value)%> <%=(rs_outboxall.Fields.Item("lastnm").Value)%></span></td>
<td><%= DoDateTime((rs_outboxall.Fields.Item("AcceptedOn").Value), 2, 9225) %></td>
<td><%=(rs_outboxall.Fields.Item("SenderEmail").Value)%></td>
<td class="center">
XX
</td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rs_outboxall.MoveNext()
Wend
function getStatus( valToCheck )
Dim qnrstatus
select case valToCheck
case "0":
qnrstatus = "Sent"
case "3":
qnrstatus = "in progress"
case "2":
qnrstatus = "awaiting approval"
case "1":
qnrstatus = "accepted"
End select
getStatus = qnrstatus
end function
%>
Open in new window