WeetHet - Nieuws & Updates

<% Dim GetMessage, Qstring Const msg_id=0, newsdate=1, nl_title=2, nl_subtitle=3, nl_txt=4, nl_linkext=5, nl_linkint=6, nl_linkname_ext=7, nl_linkname_int=8 GetMessage = Request.QueryString("msg") Dim DatumStr, TijdStr Dim Maanden(12), WeekDagen(7) Maanden(1)="Jan" Maanden(2)="Feb" Maanden(3)="Mar" Maanden(4)="Apr" Maanden(5)="Mei" Maanden(6)="Jun" Maanden(7)="Jul" Maanden(8)="Aug" Maanden(9)="Sep" Maanden(10)="Okt" Maanden(11)="Nov" Maanden(12)="Dec" WeekDagen(1)="Zo" WeekDagen(2)="Ma" WeekDagen(3)="Di" WeekDagen(4)="Wo" WeekDagen(5)="Do" WeekDagen(6)="Vr" WeekDagen(7)="Za" %>

Jouw IP adres:

3.15.6.77

Pagina printen
- kies Landscape

Zoeken in de
WeetHet pagina's

WeetHet is being updated! - Current articles will slowly move to www.tweaking4all.com
Voor uitstekende webhosting welke zowel betrouwbaar als betaalbaar is adviseren wij: LiquidWeb

<% if GetMessage="" then Qstring="SELECT msg_id, newsdate, nl_title, nl_subtitle, nl_txt, nl_linkext, nl_linkint, nl_linkname_ext, nl_linkname_int FROM news ORDER BY newsdate DESC LIMIT 0, 20;" else Qstring="SELECT msg_id, newsdate, nl_title, nl_subtitle, nl_txt, nl_linkext, nl_linkint, nl_linkname_ext, nl_linkname_int FROM news WHERE msg_id >=" & GetMessage & " ORDER BY newsdate DESC LIMIT 0, 20" end if qCount=0 Set qNews = Conn.Execute(Qstring) %>

Op deze pagina...

Op deze pagina vind je WeetHet Updates en Algemene Nieuws berichten.

Als je iets wilt bijdragen, mail me dan!

Nieuws en Updates

<% do while (Not qNews.EOF) DatumStr= WeekDagen(weekday(qNews(newsdate))) & " " & day(qNews(newsdate)) & " " & Maanden(month(qNews(newsdate))) & " " & year(qNews(newsdate)) TijdStr=":" & minute(qNews(newsdate)) if len(TijdStr)=2 then TijdStr=":0" & minute(qNews(newsdate)) End if TijdStr=hour(qNews(newsdate)) & TijdStr DatumStr=DatumStr & " - " & TijdStr %>

<% =qNews(nl_title) %> <% =DatumStr %>

<% =qNews(nl_txt) %>

<% if qNews(nl_linkext)<>"" then %> <% if qNews(nl_linkname_ext)="" then %> Externe link <% else %> <% =qNews(nl_linkname_ext) %> <% end if if qNews(nl_linkint)<>"" then %> - <% end if end if if qNews(nl_linkint)<>"" then %> <% if qNews(nl_linkname_int)="" then %> WeetHet link <% else %> <% =qNews(nl_linkname_int) %> <% end if end if %>

<% qNews.MoveNext loop %>