<% Dim typ Dim sql 'odczytanie promocji sql = "select * from akapit where kategoria=1 and publikuj=1 order by kolejnosc" set rs=dbc.Execute(sql) while not rs.eof %> <% rs.MoveNext wend %>
Promocje ( )
<% typ = CInt(rs("typ")) Select Case typ Case 0 %> ">
">

;"><%response.write rs("naglowek")%>

;"><%if rs("zdjecie")<>"0" then %>" <%if CInt(rs("sizelimit"))=1 then%> width="180" height="120" vspace="5" hspace="5" <%end if%> <%if CInt(rs("border"))=1 then%> border=1 style="border-color : #<%response.write rs("colorborder")%>;" <%end if%> align="left"><%end if%><%response.write Replace(rs("opis"),chr(13),"
")%>
<% Case 1 %> ">
">

;"><%response.write rs("naglowek")%>

;"><%if rs("zdjecie")<>"0" then %>" <%if CInt(rs("sizelimit"))=1 then%> width="180" height="120" vspace="5" hspace="5" <%end if%> <%if CInt(rs("border"))=1 then%> border=1 style="border-color : #<%response.write rs("colorborder")%>;" <%end if%> align="right"><%end if%><% response.write Replace(rs("opis"),chr(13),"
")%>
<% Case 2 %> ">
<%if rs("zdjecie")<>"0" then %>" <%if CInt(rs("sizelimit"))=1 then%> width="180" height="120" vspace="5" hspace="5" <%end if%> <%if CInt(rs("border"))=1 then%> border=1 style="border-color : #<%response.write rs("colorborder")%>;" <%end if%>><%end if%> ">

;"><%response.write rs("naglowek")%>

;"><% response.write Replace(rs("opis"),chr(13),"
")%>
<% Case 3 %> ">
">

;"><%response.write rs("naglowek")%>

;"><% response.write Replace(rs("opis"),chr(13),"
")%>

 <%if rs("zdjecie")<>"0" then %>" <%if CInt(rs("sizelimit"))=1 then%> width="180" height="120" vspace="5" hspace="5" <%end if%> <%if CInt(rs("border"))=1 then%> border=1 style="border-color : #<%response.write rs("colorborder")%>;" <%end if%>><%end if%>
<% Case 4 %> <%if rs("zdjecie")<>"0" then %>

" <%if CInt(rs("sizelimit"))=1 then%> width="180" height="120" vspace="5" hspace="5" <%end if%> <%if CInt(rs("border"))=1 then%> border=1 style="border-color : #<%response.write rs("colorborder")%>;" <%end if%>>

<%end if%> ">
">

;" align="center"><%response.write rs("naglowek")%>

;"><% response.write Replace(rs("opis"),chr(13),"
")%>
<% End Select %>