<% if request.querystring("id") >< "" then ID = request.querystring("id") else response.redirect "forside.asp" end if DataConn = "DSN=dagens" Set objConn = server.createobject("ADODB.connection") objConn.open DataConn UpdateSQL = "update info_data set show_count = (show_count + 1) where info_data_id = " & ID objConn.execute(UpdateSQL) strSQL = "SELECT * FROM info_data WHERE info_data_id=" & ID Set Info = objConn.execute(strSQL) Nyhed = Info("header") Beskrivelse = Info("description") Indhold = Replace(Info("content"), vbCrLf, "
") Url = Info("url") Billede = Info("image") %> kunst.sydfyn.dk
<%= Nyhed %>
 
<% if not Url = "" then %> <% end if %> <% if not request.querystring("redir") = "" then %> <% end if %>
<%= Beskrivelse %>
 
<% if len(Billede) > 1 then %><% end if %><%= Indhold %>
 
Besøg hjemmeside
 
">Tilbage