PREBUD

<% kat=Request("kat") %>

<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "prebud" Conn.execute ("SET CHARACTER SET latin2;") Set RS=Conn.Execute("select * from products where categ=" & kat & "") do while not RS.EOF %>

<%=RS("name")%>

<%=MakeText(RS("body"))%>

<% if RS("foto1")<>"" then if RS("foto1big")<>"" then %>"><% end if %>

" alt="" border="0"><% if RS("foto1big")<>"" then %><% end if end if if RS("foto2")<>"" then if RS("foto2big")<>"" then %>"><% end if %>

" alt="" border="0"><% if RS("foto2big")<>"" then %><% end if end if if RS("foto3")<>"" then if RS("foto3big")<>"" then %>"><% end if %>

" alt="" border="0"><% if RS("foto3big")<>"" then %><% end if end if %>

<% RS.MoveNext Loop RS.Close Conn.Close %>