Function IIF (COND, EXPR1, EXPR2) IF COND THEN IIF = EXPR1 ELSE IIF = EXPR2 END IFEND FUNCTION
Sub Outinfo (RST)
AllCount = Rst.Recordcount-1
Response.write "
NEXT
Response.write "" for i = 0 to allcount
Fork = 0 to rst.fields.count-1
Response.write "" & VBCRLF
Rst.movenext
Response.write " Total Records [" & AllCount 1 & "] "
End Sub
