<% dim subjectID subjectID = request.querystring("subjectID") 'response.write subj***debug %> <% x=0 set conn=server.createobject("adodb.connection") set rs=server.createobject("adodb.recordset") conn.open dsn sql = "select * from postcard where subjectID="&subjectID rs.open sql,conn 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 call close() %>

Välj ett vykort

" %> ">" width="150" height="100" border="0" alt="BTI E-card for You"> <% response.write "