Generating Report Through ASP

[dinilkarun]

Report


<%
for each y in rsQuery1.Fields
response.write("" & y.name & "")
next
%>

<%
' Counter for shading every other row
dim nCount
nCount = 1
dim sRowStyle
' Loop through each record in the select
rsQuery1.MoveFirst
do until rsQuery1.EOF
if nCount mod 2 = 1 then
sRowStyle = "reportItemOdd"
else
sRowStyle = "reportItemEven"
end if

response.write("")

for each y in rsQuery1.Fields
response.write("" & y.value & "")
next
rsQuery1.MoveNext
nCount = nCount + 1
response.write("")
loop

%>