Erslev Kalkovn

<% Dim indhold Dim tabel ConnString= "driver= {MySQL ODBC 3.51 Driver};server=127.0.0.1;uid=erslev;pwd=madsen;database= erslev_dk_-_erslev;" 'ConnString = "driver={MySQL};UID=erslevdk;PWD=45644;Database=erslevdkdb" valg = Request.Querystring("udvalg") Sub begyndher Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open ConnString SQL2 = "SELECT * FROM NYT ORDER BY DATUM DESC, ID DESC" Set objRS = Conn.Execute (sql2) If valg = "" Then dag = Day(objRS("DATUM")) &"/" &Month(objRS("DATUM")) &"-"&Year(objRS("DATUM")) indhold = dag & "
" & objRS("OVERSKRIFT") & "
" & objRS("INDHOLD") End If While Not objRS.EOF dag = Day(objRS("DATUM")) &"/" &Month(objRS("DATUM")) &"-"&Year(objRS("DATUM")) kortdag = Day(objRS("DATUM")) &"/" &Month(objRS("DATUM")) If CInt(valg) = CInt(objRS("ID")) Then farve = "red" indhold = "

" & dag & "
" & objRS("OVERSKRIFT") & "
" & objRS("INDHOLD") Else farve = "#180227" End If tabel = tabel &"

" & kortdag & " " & objRS("OVERSKRIFT")&"

" objRS.MoveNext Wend objRS Close Set Conn = Nothing End Sub begyndher %>


Erslev Kalkovns Venner	Indsamlingen	Kalkovnen	Kalkens historie	Billeder

Velkommen til Erslev Kalkovns Venner

Formålet med at bevare Erslev kalkovn er at gøre den lokale viden om kalkens historie tilgængelig på en spændende måde; og på et af de steder, hvor mænd sled i deres ansigts sved for det daglige brød.

Alle danskere ved, hvad kalk er! De har mødt den i skolen, i tandpastaen, på markerne og på Møns Klint.

Kridt og kalk er med andre ord en vigtig del af vores hverdag, både når vi tænker på liv og helbred, markens afgrøder, huse, der skal bygges, ferieminder og meget andet. Det bliver ikke mindre tankevækkende, når man tænker på, at kridt og kalk i vores undergrund blev dannet for over 70 millioner år siden.

Også på Mors findes der kridt og kalk, dog knap så kendt som de store steder, men med stor betydning lokalt. Det er den historie, vi synes, skal fortælles og bevares for eftertiden!

Besøg gæstebogen!

Statistik:
Du er gæst nummer: <% ConnString2 = "driver= {MySQL ODBC 3.51 Driver};server=127.0.0.1;uid=erslev;pwd=madsen;database= erslev_dk_-_erslev;" Set Conn2 = Server.CreateObject("ADODB.Connection") Conn2.Open ConnString2 SQL3 = "SELECT COUNT(*), COUNT(DISTINCT IP) FROM STATS" Set objRS2 = Conn2.Execute (sql3) Response.write objRS2("COUNT(*)") Response.write " siden 16.10.2002

" '=objRS2("COUNT(DISTINCT IP)") objRS2 Close Set Conn2 = Nothing %> Meld dig ind/bestil girokort

Sidste nyt!
<% Response.write tabel %>