<%=CompanyName%> - Subscriber Information System

<% Dim custfilt, sqlstring, filter, loggedin, dueslevel, choice Dim inclfami, inclclsd, checked, checkedc, checkall Dim datefrom, dateto, s1, s2, balance, maxvouch Dim DataSource, con, rs Dim CompanyName CompanyName ="Popular Chits (India) Private Limited" custfilt = Ucase(Request("custfilt")) dueslevel = Trim(Request("dueslevel")) choice = Trim(Request("choice")) datefrom = Trim(Request("datefrom")) dateto = Trim(Request("dateto")) If datefrom = "" Then datefrom = "1/4/" & Year(Now) End if If dateto = "" Then dateto = dmy(Now) End If If datefrom <> "" Then s1 = Instr(datefrom, "/") s2 = Instr(s1+1, datefrom, "/") datefrom = datemonth(CInt(Mid(datefrom, s1+1, s2 - s1 - 1))) & " " & Mid(datefrom, 1, s1-1) & ", " & Mid(datefrom, s2+1) End If If dateto <> "" Then s1 = Instr(dateto, "/") s2 = Instr(s1+1, dateto, "/") dateto = datemonth(CInt(Mid(dateto, s1+1, s2 - s1 - 1))) & " " & Mid(dateto, 1, s1-1) & ", " & Mid(dateto, s2+1) End If If dueslevel <> "" Then inclfami = "" Else inclfami = Trim(Request("inclfami")) inclclsd = Trim(Request("inclclsd")) End If loggedin = False If inclfami <> "" Then checked = "checked" Else checked = "" End If If inclclsd <> "" Then checkedc = "checked" Else checkedc = "" End If %> <%=CompanyName%> - Subscriber Information System <% ' Open database connection Set con = Server.CreateObject("ADODB.Connection") DataSource = "Provider=Microsoft.ACE.OLEDB.12.0;Persist Security Info=False;Data Source=" & Server.MapPath("Dueslist.mdb") 'DataSource = "Driver={Microsoft Visual FoxPro Driver};UID=;PWD=;SourceDB=" & Server.MapPath(".") & ";SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;" con.Open DataSource %> <% If custfilt = "" Then %>

<% End If %> <% If custfilt <> "" Then sqlstring = "Select Dlb.* From Dueslist Dlb " &_ "Where Dlb.lookupcode = '" & custfilt & "' " Set rs = con.Execute(sqlstring) %> <% End If End If If loggedin Then %> <% End If Select Case Trim(Request("choice")) Case "dues" %> <% Case "groups" %> <% Case "install" %> <% Case "ledger" %> <% End Select %> <% con.Close %>

<% If rs.Eof Then %> No subscriber details found. <% Else loggedin = True %>

<%=Trim(rs("sal")) & " " & Trim(rs("first")) & " " & Trim(rs("last"))%>
<%= rs("address1") %>, <%= rs("address2") %>, <%= rs("address3") %>
Phone:

<% Function monthdesc(date) monthdesc = MonthName(Month(date), True) & " " & Cstr(Year(date)) End Function Function dmy(dDate) dmy = iif(dDate <> "", Day(dDate) & "/" & Month(dDate) & "/" & Year(dDate), "") End Function Function mdy(dDate) mdy = iif(dDate <> "", Month(dDate) & "/" & Day(dDate) & "/" & Year(dDate), "") End Function Function dtos(dDate) dtos = Year(dDate) & Right("00" & Month(dDate), 2) & Right("00" & Day(dDate), 2) End Function Function properamount(amount) If IsNull(amount) Or IsEmpty(amount) Then properamount = 0.00 Else properamount = CSng(amount) End If End Function Function formatamount(amount) amount = properamount(amount) If amount = 0.00 Then formatamount = emptycol Else formatamount = FormatNumber(amount) End If End Function Function EmptyCol emptycol = "." End Function Function Iif(lExpr, exprT, exprF) If lExpr Then Iif = exprT Else Iif = exprF End If End Function Function bofy(dDate) While Month(dDate) <> 4 Or Day(dDate) <> 1 dDate = dDate - 1 Wend bofy = dDate + 1 End Function Function datemonth(mon) Select Case mon Case 1 datemonth = "Jan" Case 2 datemonth = "Feb" Case 3 datemonth = "Mar" Case 4 datemonth = "Apr" Case 5 datemonth = "May" Case 6 datemonth = "Jun" Case 7 datemonth = "Jul" Case 8 datemonth = "Aug" Case 9 datemonth = "Sep" Case 10 datemonth = "Oct" Case 11 datemonth = "Nov" Case 12 datemonth = "Dec" End Select End Function %>