Lokalhistorisk Arkiv for Graasten By og Egn Gravstensregister

Tilbage til www.graastenarkiv.dk -> slægtsforskningside
Læs mere om fotografering af gravsten:

<% set conn = server.createobject("ADODB.connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/db/gravsten.mdb") 'Response.Write DSN conn.Open DSN %>

Alfabetisk liste over alle gravsteder ældre end 10 år på:

Gråsten Kirkegård

Tryk på navnet for at se et billede af gravstenen.
Billederne kan fås på arkivet i bedre kvalitet. <% 'Gråsten kirkegårds gravsteder vælges: strSQL = "SELECT gravsten.BKnr, gravsten.Navn, gravsten.Født, gravsten.Død, gravsten.BegravetSted, gravsten.Filsti FROM gravsten " strSQL = strSQL & "WHERE ((gravsten.BegravetSted)= 'Gråsten Kirkegård') " ' strSQL = strSQL & "ORDER BY gravsten.Navn" ' Kirkegårde vælges: 'strSQL = "SELECT gravsten.BegravetSted " 'strSQL = strSQL & "FROM gravsten " 'strSQL = strSQL & "GROUP BY gravsten.BegravetSted" ' foresåørgsel køres ' Response.Write strSQL set RS = conn.execute( strSQL ) 'Lav loop og list link til de enkelte kirkegårde Do ' Personens navn strNavn = rs("Navn") strFoedt = rs("Født") strDoed = rs("Død") strSted = rs("BegravetSted") strSti = rs("Filsti") ' lav et link til person.asp med Id-værdien i URL strLink = "" & strNavn & ", f. " & strFoedt & ", d. " & strDoed & ", " & strSted & "" ' Liste med links Response.Write "

" & strLink & "

" rs.MoveNext Loop While Not rs.EOF Conn.Close Set Conn = Nothing %>