<% Set conn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") Conn.Open dsn sqlm = "select afcurrency, ConStatus FROM AF_Constants where ConStatus=0" rs.open sqlm, conn if not rs.eof then afcurrency=rs("afcurrency") end if rs.close%>

Your Payment Report: <% sql="SELECT * FROM AF_Checks where AfUsername='" & session("AfUsername") & "' order by date" rs.Open sql, conn if rs.eof then%> You didn't recieve any payment yet. <%else%> <%do until rs.EOF%> <% rs.MoveNext loop end if rs.close conn.close %> Amount Paid Date <%=afcurrency & rs("amountPaid")%> <%=rs("date")%>