<% OpenConn("gast/news.mdb") If request("mode") = "delete" then SQL = "delete from news where news_id = " & request("news_id") If session("Admin") = "OK" then Conn.Execute(SQL) End If End If SQL = "select * from news order by created desc" Set news = Conn.Execute ( SQL ) %> Hound Dog Delivers

Hundene er kommet på nettet !

Velkommen til Hound Dog Delivers hjemsted for rock 'n' roll, wagga-wagga, honky-tonk piano,140 ms delay, og andre gode sager fra tiden hvor brylcreem, anderumper, og fri hastighed på landevejene var tidens trend.

<% Do While Not news.eof %> <% Response.Write "Sidste Nyt:
" %> <% Response.Write news("Nyhed") %> <% Response.Write "

" %> <% Response.Write "Nyhed leveret af :   " %> <% Response.Write news("Forfatter") %> <% Response.Write "
" %> <% Response.Write "Dato :  " %> <% Response.Write (showdate(news("created"))) %> <% Response.Write "

" %> <% If session("admin") = "OK" then Response.Write " Slet Nyhed" End if Response.Write "
" news.Movenext Loop %>
Skriv i Hound Dogs Gæstebog

Læs i Hound Dogs Gæstebog


Webdesign af
Mikkelsens Netværksted