<% if request.querystring("closed") = "true" then closed = 1 else closed = 0 end if dist_id = session("dist_id") 'on error resume next%>

Open Warranty List

<%if closed = 0 then %>
Show Closed <%else%> Show Open <%end if%>

<% sql = "select warranty_id,theDate,serial_num,emi_num,customer_name,status from warranty where dist_id = " & dist_id & " and closed = " & closed set rs = conn.Execute(sql) do while not rs.eof%> <% rs.movenext: loop %>
Customer Name Warranty ID Serial Number EMI Number Entry Date Status
"><%=rs("customer_name")%> <%=Pad(rs("warranty_id"))%>  <%=rs("serial_num")%>  <%=rs("emi_num")%>  <%=rs("theDate")%>  <%=rs("status")%>