<% dim subjectID subjectID = request.querystring("subjectID") 'response.write subj***debug %> Cartoes virtuais nosbairros.com.br

Voltar

 

<% 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() %>


Escolha seu cartão

" %> ">" width="150" height="100" border="0" alt=""> <% response.write "