<%
Set conn = server.CreateObject("ADODB.Connection")
conn.provider = "Microsoft.Jet.OLEDB.4.0"
conn.open server.MapPath("MerOm/MerOm.mdb")
'Settes manuelt til verdien i pnID utfra hvilken side som skal hentes
idWebsiden = 1
set rWeb = conn.Execute("select * from websiden where pnID=" & idWebsiden)
sTittel = rWeb("Tittel")
sInnhold = rWeb("Innhold")
if len(sInnhold)<>"" then
sInnhold = replace(sInnhold,"QUOTENUMMER1","""")
sInnhold = replace(sInnhold,"QUOTENUMMER2","'")
end if
%>