<% end if end if set rs = nothing %> <% set conn = server.CreateObject("ADODB.Connection") conn.provider = "Microsoft.Jet.OLEDB.4.0" conn.Open Server.MapPath(sSourcePath & "artikler/artikler.mdb") set rs = conn.Execute("select TOP 2 * from tblArtikler where Prioritering = 2 and Aktiv = 1 And Forsiden = 1 order by ArtikkelID desc") If not rs.EOF then If not rs.eof then if rs("bildeMedium") <> "" then bilde = rs("bildeMedium") else bilde = rs("bilde") end if Set conn = server.CreateObject("ADODB.Connection") conn.provider = "Microsoft.Jet.OLEDB.4.0" conn.open server.MapPath("./Artikler/artikler.mdb") Set rs2 = conn.Execute("Select * from T_Bannere where rad=1") banner = rs2("bilde") bannerurl = rs2("bildelink") Set rs2 = Nothing %> <% end if end if rs.movenext If not rs.EOF then If not rs.eof then if rs("bildeMedium") <> "" then bilde = rs("bildeMedium") else bilde = rs("bilde") end if %>
<% end if end if set rs = nothing %> <% set conn = server.CreateObject("ADODB.Connection") conn.provider = "Microsoft.Jet.OLEDB.4.0" conn.Open Server.MapPath(sSourcePath & "artikler/artikler.mdb") 'conn.Open Server.MapPath(sSourcePath & "merom/merom.mdb") 'set rs = conn.Execute("select top 3 * from tblLand where bilde is not null and bilde not like 'none' order by pnID desc") set rs = conn.Execute("select TOP 3 * from tblArtikler where Prioritering = 3 and Aktiv = 1 And Forsiden = 1 order by ArtikkelID desc") If not rs.EOF then If not rs.eof then if rs("bildeLite") <> "" then bilde = rs("bildeLite") else bilde = rs("bilde") end if %> <% end if end if rs.movenext If not rs.EOF then If not rs.eof then if rs("bildeLite") <> "" then bilde = rs("bildeLite") else bilde = rs("bilde") end if %> <% end if end if rs.movenext If not rs.EOF then If not rs.eof then if rs("bildeLite") <> "" then bilde = rs("bildeLite") else bilde = rs("bilde") end if %>
<% end if end if rs.close Set conn = server.CreateObject("ADODB.Connection") conn.provider = "Microsoft.Jet.OLEDB.4.0" conn.open server.MapPath("./Artikler/artikler.mdb") Set rs2 = conn.Execute("Select * from T_Bannere where rad=2") banner = rs2("bilde") bannerurl = rs2("bildelink") Set rs2 = Nothing set conn = server.CreateObject("ADODB.Connection") conn.provider = "Microsoft.Jet.OLEDB.4.0" conn.Open Server.MapPath(sSourcePath & "artikler/artikler.mdb") 'set rs = conn.Execute("select TOP 3 * from tblArtikler order by ArtikkelID desc") set rs = conn.Execute("select TOP 2 * from tblArtikler where Prioritering = 4 and Aktiv = 1 And Forsiden = 1 order by ArtikkelID desc") If not rs.EOF then If not rs.eof then if rs("bildeMedium") <> "" then bilde = rs("bildeMedium") else bilde = rs("bilde") end if %> <% end if end if rs.movenext If not rs.EOF then If not rs.eof then if rs("bildeMedium") <> "" then bilde = rs("bildeMedium") else bilde = rs("bilde") end if %>
<% end if end if set rs = nothing set conn = server.CreateObject("ADODB.Connection") conn.provider = "Microsoft.Jet.OLEDB.4.0" conn.Open Server.MapPath(sSourcePath & "artikler/artikler.mdb") 'set rs = conn.Execute("select TOP 3 * from tblArtikler order by ArtikkelID desc") set rs = conn.Execute("select TOP 3 * from tblArtikler where Prioritering = 5 and Aktiv = 1 And Forsiden = 1 order by ArtikkelID desc") If not rs.EOF then If not rs.eof then if rs("bildeLite") <> "" then bilde = rs("bildeLite") else bilde = rs("bilde") end if %> <% end if end if rs.movenext If not rs.EOF then If not rs.eof then if rs("bildeLite") <> "" then bilde = rs("bildeLite") else bilde = rs("bilde") end if %> <% end if end if rs.movenext If not rs.EOF then If not rs.eof then if rs("bildeLite") <> "" then bilde = rs("bildeLite") else bilde = rs("bilde") end if %>
<% end if end if rs.close Set conn = server.CreateObject("ADODB.Connection") conn.provider = "Microsoft.Jet.OLEDB.4.0" conn.open server.MapPath("./Artikler/artikler.mdb") Set rs2 = conn.Execute("Select * from T_Bannere where rad=3") banner = rs2("bilde") bannerurl = rs2("bildelink") Set rs2 = Nothing %> <% set conn = server.CreateObject("ADODB.Connection") conn.provider = "Microsoft.Jet.OLEDB.4.0" conn.Open Server.MapPath(sSourcePath & "artikler/artikler.mdb") 'set rs = conn.Execute("select TOP 3 * from tblArtikler order by ArtikkelID desc") set rs = conn.Execute("select TOP 3 * from tblArtikler where Prioritering = 6 and Aktiv = 1 And Forsiden = 1 order by ArtikkelID desc") If not rs.EOF then If not rs.eof then if rs("bildeLite") <> "" then bilde = rs("bildeLite") else bilde = rs("bilde") end if %> <% end if end if rs.movenext If not rs.EOF then If not rs.eof then if rs("bildeLite") <> "" then bilde = rs("bildeLite") else bilde = rs("bilde") end if %> <% end if end if rs.movenext If not rs.EOF then If not rs.eof then if rs("bildeLite") <> "" then bilde = rs("bildeLite") else bilde = rs("bilde") end if %>
<% end if end if rs.close Set conn = server.CreateObject("ADODB.Connection") conn.provider = "Microsoft.Jet.OLEDB.4.0" conn.open server.MapPath("./Artikler/artikler.mdb") Set rs2 = conn.Execute("Select * from T_Bannere where rad=4") banner = rs2("bilde") bannerurl = rs2("bildelink") Set rs2 = Nothing %> <% set conn = server.CreateObject("ADODB.Connection") conn.provider = "Microsoft.Jet.OLEDB.4.0" conn.Open Server.MapPath(sSourcePath & "artikler/artikler.mdb") 'set rs = conn.Execute("select TOP 3 * from tblArtikler order by ArtikkelID desc") set rs = conn.Execute("select TOP 2 * from tblArtikler where Prioritering = 7 and Aktiv = 1 And Forsiden = 1 order by ArtikkelID desc") If not rs.EOF then If not rs.eof then if rs("bildeMedium") <> "" then bilde = rs("bildeMedium") else bilde = rs("bilde") end if %> <% end if end if rs.movenext If not rs.EOF then If not rs.eof then if rs("bildeMedium") <> "" then bilde = rs("bildeMedium") else bilde = rs("bilde") end if %>
<% end if end if set rs = nothing Set conn = server.CreateObject("ADODB.Connection") conn.provider = "Microsoft.Jet.OLEDB.4.0" conn.open server.MapPath("./Artikler/artikler.mdb") Set rs2 = conn.Execute("Select * from T_Bannere where rad=5") banner = rs2("bilde") bannerurl = rs2("bildelink") Set rs2 = Nothing %> <% set conn = server.CreateObject("ADODB.Connection") conn.provider = "Microsoft.Jet.OLEDB.4.0" conn.Open Server.MapPath(sSourcePath & "artikler/artikler.mdb") 'set rs = conn.Execute("select TOP 3 * from tblArtikler order by ArtikkelID desc") set rs = conn.Execute("select TOP 2 * from tblArtikler where Prioritering = 8 and Aktiv = 1 And Forsiden = 1 order by ArtikkelID desc") If not rs.EOF then If not rs.eof then if rs("bildeMedium") <> "" then bilde = rs("bildeMedium") else bilde = rs("bilde") end if %> <% end if end if rs.movenext If not rs.EOF then If not rs.eof then if rs("bildeMedium") <> "" then bilde = rs("bildeMedium") else bilde = rs("bilde") end if %> <% end if end if set rs = nothing set conn = server.CreateObject("ADODB.Connection") conn.provider = "Microsoft.Jet.OLEDB.4.0" conn.Open Server.MapPath(sSourcePath & "artikler/artikler.mdb") 'set rs = conn.Execute("select TOP 3 * from tblArtikler order by ArtikkelID desc") set rs = conn.Execute("select TOP 3 * from tblArtikler where Prioritering = 9 and Aktiv = 1 And Forsiden = 1 order by ArtikkelID desc") If not rs.EOF then If not rs.eof then if rs("bildeLite") <> "" then bilde = rs("bildeLite") else bilde = rs("bilde") end if %> <% end if end if rs.movenext If not rs.EOF then If not rs.eof then if rs("bildeLite") <> "" then bilde = rs("bildeLite") else bilde = rs("bilde") end if %> <% end if end if rs.movenext If not rs.EOF then If not rs.eof then if rs("bildeMedium") <> "" then bilde = rs("bildeMedium") else bilde = rs("bilde") end if %>
<% end if end if rs.close Set conn = server.CreateObject("ADODB.Connection") conn.provider = "Microsoft.Jet.OLEDB.4.0" conn.open server.MapPath("./Artikler/artikler.mdb") Set rs2 = conn.Execute("Select * from T_Bannere where rad=6") banner = rs2("bilde") bannerurl = rs2("bildelink") Set rs2 = Nothing %> <% set conn = server.CreateObject("ADODB.Connection") conn.provider = "Microsoft.Jet.OLEDB.4.0" conn.Open Server.MapPath(sSourcePath & "artikler/artikler.mdb") 'set rs = conn.Execute("select TOP 2 * from tblArtikler order by ArtikkelID desc") set rs = conn.Execute("select TOP 2 * from tblArtikler where Prioritering = 10 and Aktiv = 1 And Forsiden = 1 order by ArtikkelID desc") If not rs.EOF then If not rs.eof then if rs("bildeMedium") <> "" then bilde = rs("bildeMedium") else bilde = rs("bilde") end if %> <% end if end if rs.movenext If not rs.EOF then If not rs.eof then if rs("bildeMedium") <> "" then bilde = rs("bildeMedium") else bilde = rs("bilde") end if %> <% end if end if rs.close %>

© MerOm DA. Alt innhold er opphavsrettslig beskyttet. MerOmFerie.no arbeider etter Vær Varsom-plakatens regler for god presseskikk. Ansvarlig redaktør: Elin Wiesener. Kontakt oss