<% Dim cnnSimple Dim strDBPath strDBPath = Server.MapPath("../private/basededados.mdb") Set cnnSimple = Server.CreateObject("ADODB.Connection") cnnSimple.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";" %> <% sfam = Request.QueryString("sf") %>
  <%Set rstSimple = cnnSimple.Execute("SELECT * FROM Tbl_subfamilia, Tbl_familia WHERE id_subfamilia = " & sfam & " AND Tbl_subfamilia.familia = Tbl_familia.id_familia")%> <% textoHTM = "" tfamilia = rstSimple("Tbl_familia.familia").Value ssfamilia = rstSimple("subfamilia").Value %>
<%=ssfamilia%>
  <% If rstSimple("txt").Value <> "" Then texto = rstSimple("txt").Value for i = 1 to len(texto) if mid(texto,i,1) = chr(13) then textoHTM = textoHTM + "
" else textoHTM = textoHTM + mid(texto,i,1) end if next End If %> <%=textoHTM%> <% rstSimple.Close Set rstSimple = Nothing %> 		 
<%Set rstSimple = cnnSimple.Execute("SELECT * FROM Tbl_produto WHERE sfamilia = " & sfam & " AND ok = True ORDER BY ordem ASC;")%> <% count = 0 Do While Not rstSimple.EOF count = count + 1 'Response.Write count %> <% If count = 4 Then Response.Write ("") End If if count = 4 then count = 0 rstSimple.MoveNext Loop 'Response.Write (count) rstSimple.Close Set rstSimple = Nothing %>
            <% cnnSimple.Close Set cnnSimple = Nothing %>