%option explicit%>
<%
dim oconn, orec, sql, tekst, dag, maaned, aar
set oconn=server.createobject ("adodb.connection")
set orec=server.createobject ("adodb.recordset")
oconn.open strconnect
%>
<%
sql = "update tblsidetaeller set antalhits = antalhits + 1 where sidenavn = 'Sponsorer'"
oconn.execute sql
%>
<%
response.write ""
response.write "
"
%>
<%
response.write ""
' sql = "select top 1 nyhedoverskrift, nyhedtekst, nyheddato from tblnyhed, tblnyhedtilplacering where nyhedstatus=1 and tblnyhed.nyhedid=tblnyhedtilplacering.nyhedid and tblnyhedtilplacering.placeringid=2 order by nyheddato desc"
sql = "select overskrift, tekst from tbltekst, tbltekstplacering where tbltekst.placeringid = tbltekstplacering.placeringid and tbltekstplacering.placeringnavn = 'Sponsorer'"
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
%>