|
|
|
NSFs ressursgruppe
 for
rulleskøyter
<%
Dim sqlText
sqlText = "SELECT TOP 3 Dato, Tittel, Tekst, Linktekst1, Linkadresse1, Linktype1, " & _
"Linktekst2, Linkadresse2, Linktype2, Bilde, Bildeplass, Ramme " & _
"FROM vNyheter " & _
"WHERE (vNyheter.StoppDato Is Null AND vNyheter.Stopp=0 AND vNyheter.Kategori='Rulleskøyter') " & _
"OR (vNyheter.StoppDato = '' AND vNyheter.Stopp=0 AND vNyheter.Kategori='Rulleskøyter')" & _
"OR (vNyheter.StoppDato >'" & strDagsDato & "' AND vNyheter.Stopp=0 AND vNyheter.Kategori='Rulleskøyter')" & _
"ORDER BY Dato DESC, NyhetsID DESC;"
Set objRS = Server.CreateObject ("ADODB.Recordset")
objRS.Open sqlText, strConnect, adLockReadOnly
Response.Write "Siste nyheter | "
Do until objRS.EOF
If objRS("Bilde") <>"" Then
Response.Write "![](" & objRS("Bilde") & ") "
Else
Response.Write " | "
End If
Response.Write "" & objRS("Tittel") & "
" & _
"" & objRS("Tekst")
If objRS("Linkadresse1") <> "" Then
Response.Write "
" & objRS("Linktekst1") & ""
End If
If objRS("Linkadresse2") <> "" Then
Response.Write " | " & objRS("Linktekst2") & ""
End If
Response.Write "
(" & objRS("Dato") & ")" & "
| "
objRS.MoveNext
Loop
Response.Write "| Flere rulleskøytenyheter >> | |
"
objRS.Close
set objRS = Nothing
%>
<%
aar = year(now)
mnd = month(now)
If mnd < 10 Then mnd = "0" & mnd
dag = day(now)
If dag < 10 Then dag = "0" & dag
dd = aar & "-" & mnd & "-" & dag
If mnd = "01" Then maaned = "januar"
If mnd = "02" Then maaned = "februar"
If mnd = "03" Then maaned = "mars"
If mnd = "04" Then maaned = "april"
If mnd = "05" Then maaned = "mai"
If mnd = "06" Then maaned = "juni"
If mnd = "07" Then maaned = "juli"
If mnd = "08" Then maaned = "august"
If mnd = "09" Then maaned = "september"
If mnd = "10" Then maaned = "oktober"
If mnd = "11" Then maaned = "november"
If mnd = "12" Then maaned = "desember"
Dim objRS, strSQL
Set objRS = Server.CreateObject ("ADODB.Recordset")
strSQL = "SELECT * FROM vAktiviteter WHERE " & _
"Gren LIKE 'rulleskøyteløp' " & _
"AND Startdato >= '" & dd & "' " & _
"ORDER BY Startdato, Tittel;"
objRS.Open strSQL, strConnect, adLockReadOnly
If objRS.EOF = True Then
Response.Write " "
Else
Response.Write "Planlagte rulleskøyteaktiviteter"
Response.Write "" & _
"| Dato" & _
" | Aktivitet" & _
" | Sted | "
Do Until objRS.EOF = True
Response.Write ""
Response.Write "| " & objRS("Startdato") & " | "
Response.Write "" & objRS("Tittel") & " | "
Response.Write "" & objRS("Sted") & " | "
Response.Write " "
'Markøren flyttes til neste record
objRS.MoveNext
Loop
Response.Write "
"
End If
'Lukke recordsettet
objRS.Close
%>
|
|
|
