<%@LANGUAGE="VBSCRIPT"%> <% set rsFramsida = Server.CreateObject("ADODB.Recordset") rsFramsida.ActiveConnection = MM_gggconn_STRING rsFramsida.Source = "SELECT * FROM nyheter WHERE nyhetid <> 36 and nyhetid <> 37 ORDER BY nyhetid DESC" rsFramsida.CursorType = 0 rsFramsida.CursorLocation = 2 rsFramsida.LockType = 3 rsFramsida.Open() rsFramsida_numRows = 0 %> Gaute.com - Forsida

<% va = request.querystring("v") if va = "" then va = "m" end if %>

 

 

 

 

<% if request.querystring("offset") <> "0" or request.querystring("offset") <> "" then if isnumeric(request.querystring("offset")) then rsFramsida.move request.querystring("offset") end if end if %> <% if not rsFramsida.eof then %>
&v=<%=request.querystring("v")%>">" align="top" width="150" border="0">
<%=(rsFramsida.Fields.Item("overskrift").Value)%> 
Publisert: <%= rsFramsida.Fields.Item("dato").Value%>
<%=(rsFramsida.Fields.Item("oppsummering").Value)%>
&v=<%=request.querystring("v")%>">[ les mer ] <% if rsFramsida("albumid") <> 0 then %> " onClick="window.open('vis_album.asp?albumID=<%=(rsFramsida.Fields.Item("albumid").Value)%>', 'myWin', 'toolbar=no, directories=no, location=no, status=yes, menubar=no,resizable=no, scrollbars=yes,width=650,height=500'); return false">Se bildene <% end if %>
<%rsFramsida.movenext() end if %> <%IF NOT rsFramsida.eof then %> <% end if %>
<%=(rsFramsida.Fields.Item("overskrift").Value)%>
&v=<%=request.querystring("v")%>">" width="75" border="0">

<%=(rsFramsida.Fields.Item("oppsummering").Value)%>
&v=<%=request.querystring("v")%>">[ les mer ] <% if rsFramsida("albumid") <> 0 then %> " onClick="window.open('vis_album.asp?albumID=<%=(rsFramsida.Fields.Item("albumid").Value)%>', 'myWin', 'toolbar=no, directories=no, location=no, status=yes, menubar=no,resizable=no, scrollbars=yes,width=650,height=500'); return false">Se bildene <% end if rsFramsida.movenext() %>

<% if not rsFramsida.eof then %>
<%=(rsFramsida.Fields.Item("overskrift").Value)%>
&v=<%=request.querystring("v")%>">" width="75" border="0">

<%=(rsFramsida.Fields.Item("oppsummering").Value)%>
&v=<%=request.querystring("v")%>">[ les mer ] <% if rsFramsida("albumid") <> 0 then %> " onClick="window.open('vis_album.asp?albumID=<%=(rsFramsida.Fields.Item("albumid").Value)%>', 'myWin', 'toolbar=no, directories=no, location=no, status=yes, menubar=no,resizable=no, scrollbars=yes,width=650,height=500'); return false">Se bildene <% end if %>

<%if not rsFramsida.eof then rsFramsida.movenext() end if end if %> <%IF NOT rsFramsida.eof then %>
&v=<%=request.querystring("v")%>">" align="top" width="100" border="0">
<%=(rsFramsida.Fields.Item("overskrift").Value)%> 
Publisert: <%= rsFramsida.Fields.Item("dato").Value%>
<%=(rsFramsida.Fields.Item("oppsummering").Value)%>
&v=<%=request.querystring("v")%>">[ les mer ] <% if rsFramsida("albumid") <> 0 then %> " onClick="window.open('vis_album.asp?albumID=<%=(rsFramsida.Fields.Item("albumid").Value)%>', 'myWin', 'toolbar=no, directories=no, location=no, status=yes, menubar=no,resizable=no, scrollbars=yes,width=650,height=500'); return false">Se bildene <% end if %>
<% rsFramsida.movenext() end if %> <%IF NOT rsFramsida.eof then %>
&v=<%=request.querystring("v")%>">" align="top" width="100" border="0">
<%=(rsFramsida.Fields.Item("overskrift").Value)%>  
Publisert: <%= rsFramsida.Fields.Item("dato").Value%>
<%=(rsFramsida.Fields.Item("oppsummering").Value)%>
&v=<%=request.querystring("v")%>">[ les mer ] <% if rsFramsida("albumid") <> 0 then %> " onClick="window.open('vis_album.asp?albumID=<%=(rsFramsida.Fields.Item("albumid").Value)%>', 'myWin', 'toolbar=no, directories=no, location=no, status=yes, menubar=no,resizable=no, scrollbars=yes,width=650,height=500'); return false">Se bildene <% end if %>

<% rsFramsida.movenext() end if%>

<%IF NOT rsFramsida.eof then%> Eldre artikler

<% of = request.querystring("offset") if isnumeric(request.querystring("offset")) then ofmer = of + 10 ofmindre = of - 10 end if %>
<%if isnumeric(request.querystring("offset")) or request.querystring("offset") = "" then if request.querystring("offset") <> "0" and request.querystring("offset") <> "" then %> ">Forrige 10 nyheter <% end if %> <%if not rsFramsida.eof then if request.querystring("offset") = "" then %> ">Neste 10 nyheter <% else %> ">Neste 10 nyheter <% end if %> <% end if end if%>
<% dim Valg Valg = request.querystring("v") if Valg = "m" then %> <% elseif Valg = "f" then %> <% elseif Valg = "s" then %> <% else %> <% end if %>
<% rsFramsida.Close() %>