<% Set DATABASE = Server.CreateObject("ADODB.Connection") DATABASE.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("db/efks.mdb") minSQL="select * from vinsj order by order_id" set rs_hoved=DATABASE.execute(minSQL) tabselect="vinsj" %> Elverum Flyklubb Seil
 Nyheter
 Aktivitetsplan 2013
 Flyparken
 Skole
 Forum
 Om EFKS
 Medlemsinfo
 Arrangementer
 Vinsj
 Linker
 Bildearkiv
 
Hovedside
<%'Så går vi gjennom alle postene do while not rs_hoved.eof %> <% hovedtekst = rs_hoved("hoved") %> <% rs_hoved.movenext loop %>

<%=rs_hoved("overskrift")%>

<% If Len(hovedtekst) = 0 then %> <% '*****BILDE 1 ******* If Len(rs_hoved("bilde_01")) <> 0 then %> <% '*****BILDE 2 ******* If Len(rs_hoved("bilde_02")) <> 0 then %> <% End if %> <% '*****BILDE 3 ******* If Len(rs_hoved("bilde_03")) <> 0 then %> <% End if %> <% '*****BILDE 4 ******* If Len(rs_hoved("bilde_04")) <> 0 then %> <% End if %>
" target="_blank">" name="thumb" width="150" border="0" align="right">
" target="_blank">" name="thumb" width="150" border="0" align="right">
" target="_blank">" name="thumb" width="150" border="0" align="right">
" target="_blank">" name="thumb" width="150" border="0" align="right">
Klikk på bildet for større utgave.
<% End If %> <% End If %> <% If Len(hovedtekst) <> 0 then %> <% If Len(rs_hoved("bilde_01")) <> 0 then %> " name="thumb" width="150" border="0" align="right"> <% End if %> <% end If If Len(rs_hoved("bilde_01")) = 0 then response.write "" End if '*****SLUTT BILDE 1 ******* %>

<%=rs_hoved("ingress")%>
<% If Len(hovedtekst) <> 0 then %>
<%min_link="vis_" & tabselect & ".asp" & "?hvilkenID=" & rs_hoved("id")%> >Les mer... <% End if %>