<%
session.lcid = 1030
%>
Tasty Food - En smagfuld forbindelse
<%
'laver forbindelse
Set conntemp = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("html_dk/nyhed/db.mdb") & "; UID=Administrator; PWD="
conntemp.open DSN
%>
Forsiden
<%
function makeLink(str)
'*** Make the reqular expr object
Set objRegExp = New RegExp
objRegExp.IgnoreCase = True
objRegExp.Global = True
'***Make html links
objRegExp.Pattern = "(\bhttp\:\/\/)?(\bw{3}\.\S+\.[a-z][a-z]+\b)(\/\S+\b)?(\?\S+\b)?"
str = objRegExp.Replace(str, "$1$2$3$4")
'***Make html mailto
objRegExp.Pattern = "(\S+@{1}\S+\.[a-z][a-z]+\b)"
str = objRegExp.Replace(str, "$1")
Set objRegExp = Nothing
makelink = str
end function
%>
<%
id = request("nyhed")
vis = request("vis")
if id <> "" then
set nyheder = conntemp.execute("select * from T_nyheder where ID = " & id & " ")
%>
<% nyhed_id = nyheder("id") %>
<% nyhed_dato = nyheder("dato")
dtmdate = nyhed_dato
intYear = Year(dtmDate)
intMonth = Month(dtmDate)
intDay = Day(dtmDate)
nyhed_dato = intDay & "-" & intMonth & "-" & intYear %>
<% nyhed_titel = nyheder("titel") %>
<% nyhed_beskrivelse = nyheder("beskrivelse") %>
<% nyhed_forfatter = nyheder("forfatter") %>
<% if vis = "alle" then %>
Tilbage til Alle Nyheder
<% else %>
Tilbage til Sidste
Nyt
<% end if %>
<% else
%>
Sidste Nyt
<% if vis = "alle" then %>
<%
set nyheder = conntemp.execute("select * from t_nyheder order by id desc")
%>
<% else %>
<%
set nyheder = conntemp.execute("select top 2 * from t_nyheder order by id desc")
%>
<% end if %>
<% do while NOT nyheder.EOF %>
<% nyhed_id = nyheder("id") %>
<% nyhed_dato = nyheder("dato")
dtmdate = nyhed_dato
intYear = Year(dtmDate)
intMonth = Month(dtmDate)
intDay = Day(dtmDate)
nyhed_dato = intDay & "-" & intMonth & "-" & intYear %>
<% nyhed_titel = nyheder("titel") %>
<% nyhed_beskrivelse = nyheder("beskrivelse") %>
<% nyhed_beskrivelse = Left(nyhed_beskrivelse,30) %>
<% nyhed_forfatter = nyheder("forfatter") %>
<%=nyhed_titel%>
<%=nyhed_dato%>
<%=nyhed_beskrivelse%>...
-
<% if vis = "alle" then %>
Lęs
mere
<% else %>
Lęs
mere
<% end if %>
<%=nyhed_titel%>
