Home



<% x=0 set conn = server.createobject("adodb.connection") set rs = server.createobject("adodb.recordset") set rs1 = server.createobject("adodb.recordset") conn.open dsn sql = "select * from subjects" rs.Open SQL, Conn, 1, 3 subjectCount = rs.recordCount do while not rs.eof result = x mod 3 if x=3 and result=0 then response.write "" x=0 end if response.write "" x = x +1 rs.movenext loop sql="select id from postcard" rs1.ActiveConnection = Conn rs1.open sql,,adOpenStatic, adLockReadOnly Totalpostcards = rs1.RecordCount call close() %>
" response.write ""&rs("name")&"

" response.write "


Existem <%=Totalpostcards%> cart§es disponÝveis em <%=subjectCount%> Categorias