Sitemap
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = Server.MapPath("..\db\doc.mdb")
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&DSN
Conn.Open
kategorier = Array("Om oss", "Hästpass", "Avelsvärdering", "Språngrullor", "Länkar", "Bestall", "Projekt")
sql = "Select Id , titel, kategori from docmeta where kategori <> 'Blå basen' and id <> 1114 "
if request("kat") <> "" then
sql = sql + " and kategori = '" & kategorier(request("kat")) & "'"
end if
sql=sql+ " order by kategori ,titel"
set rs=conn.execute(sql)
kat = ""
while not rs.eof
if rs("kategori") = "Avelsvärdering" then
dispkat="Bedömningar & Resultat"
else
dispkat = rs("kategori")
end if
if kat = "" then
%>
">
<%=dispkat%>
<%
elseif NOT kat = rs("kategori") then
%>
">
<%=dispkat%>
Blå Basen (Sök hästar och härstamning med mera)