<% set recSet1 = server.createobject("ADODB.recordset") %> Untitled

Aktuellt på klubben

<% if request.querystring("id")="" then SQL="SELECT * FROM nyheter ORDER BY Datum DESC, ID DESC" recSet1.open SQL, conn do while not recSet1.eof AND not recSet1.bof%>

[<%=isoDate(recSet1("Datum"), false, false)%>] <%=recSet1("Rubrik")%>

<%if replace(recSet1("Fullinfo"), " ", "") = "" then%> <%=replace(RecSet1("Snabbinfo"), vbCrLf, "
" & vbCrLf)%> <% Link=recSet1("Link") if replace(recSet1("Fullinfo"), " ", "")<>"" then%>

Läs mer...
<% elseif Link<>"" then if inStr(Link, "www") >0 then%>
" target="_blank"><%=recSet1("Linkrubrik")%>
<%else%>
"><%=recSet1("Linkrubrik")%>
<%end if end if end if%> <%=replace(RecSet1("Fullinfo"), vbCrLf, "
" & vbCrLf)%>

<%recSet1.moveNext loop recSet1.close %>
<%else SQL="SELECT * FROM nyheter WHERE ID = " & request.queryString("id") recSet1.open SQL, conn if not recSet1.EOF AND not recSet1.BOF then %>

[<%=isoDate(recSet1("Datum"), false, false)%>] <%=recSet1("Rubrik")%>

<%=replace(RecSet1("Fullinfo"), vbCrLf, "
" & vbCrLf)%>

<%else%>

Ledsen, nyheten du sökte kunde inte hittas.

<%end if%> <%end if%>

« Tillbaka