%
dim oconn, orec, sql, tekst, dag, maaned, aar, nyhedid
set oconn=server.createobject ("adodb.connection")
set orec=server.createobject ("adodb.recordset")
oconn.open strconnect
%>
<%
' sql = "update tblsidetaeller set antalhits = antalhits + 1 where sidenavn = 'Juniorer'"
' oconn.execute sql
%>
<%
response.write ""
response.write "
"
%>
<%
response.write ""
sql = "select overskrift, tekst from tbltekst, tbltekstplacering where tbltekst.placeringid = tbltekstplacering.placeringid and tbltekstplacering.placeringnavn = 'Støt støtteforeningen'"
orec.open sql, oconn
tekst = orec ("tekst")
tekst=jmltilhtml(tekst)
tekst = billedetilhtml(tekst)
response.write "
" & orec("overskrift") & "
"
response.write tekst
orec.close
response.write ""
%>
<%
set orec=nothing
oconn.close
set oconn=nothing
%>