<%
v_State = Request("txtstate")
v_Link = Request("link")
v_Filter = Request("cmbfilter")
If v_Filter = "" then v_Filter = 0
%>
<%
Set DBConn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.Createobject("ADODB.Recordset")
DBConn.Open Session("DSN")
sql = "SELECT loc.id,loc.abv,loc.abv_name, post.date_posted, loc.time_limit, loc.enabled"
sql = sql & " FROM posting AS post RIGHT JOIN locations AS loc ON post.abv = loc.abv"
sql = sql & " WHERE loc.enabled=1"
If v_Filter = 4 then
sql = sql & " AND time_limit=7"
End if
sql = sql & " order by abv_name;"
Rs.open sql,DBConn
%>
Abv
Location
Posting Date
Days
Expiration
<%
counter=0
v_DaysLate = null
Do until rs.eof = true
v_DatePosted = rs.fields("date_posted")
v_ExpirationDate = dateadd("d",rs.fields("time_limit"),v_DatePosted)
v_DaysLate = datediff("d",date,v_ExpirationDate)
if isnull(v_DaysLate) then
v_DaysLate = "Not Posted"
else
If v_DaysLate > 0 then
v_DaysLate = "" & v_DaysLate & " Days left "
Else
v_DaysLate = "" & abs(v_DaysLate) & " Days Overdue "
End if
End if
If v_RowColor = "#e8e9e7" then
v_RowColor = "white"
else
v_RowColor = "#e8e9e7"
End if
%>