<article>

<h4>Historiska personer - yrken/titlar</h4>
 Historiska personer sorterat på yrken/titlar. Samma person kan finnas under flera olika kategorier. Klicka på namnen för mer info eller ändra yrke genom att klicka på bokstäverna.<br>

<%
Dim Letter, strBokstav
   strBokstav = UCase(Left(Request.QueryString("bokstav"), 1))
   For Each Letter In Array("A", "B", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "R", "S", "T", "U", "V", "Ä", "Ö")
       If Letter = strBokstav Then
           Response.Write "<a href=""?bokstav=" & Server.URLEncode(Letter) & """ style=""text-decoration: none;"">" & Server.HTMLEncode(Letter) & "</A>  "
       Else
           Response.Write "<a href=""?bokstav=" & Server.URLEncode(Letter) & """ style=""text-decoration: none;"">" & Server.HTMLEncode(Letter) & "</A>  "
       End If
   Next

Dim Connection, rsPlatser, rsPersoner, strSQL
Set Connect = server.createobject("ADODB.connection")
Connect.Open Session("Connection_String")

  strSQL = "SELECT tabellen.yrke1 As PlatsNamn FROM tabellen WHERE tabellen.yrke1 LIKE '" & strBokstav & "%' GROUP BY tabellen.yrke1 UNION" & vbCrLf & _
           "SELECT tabellen.yrke4 As PlatsNamn FROM tabellen WHERE tabellen.yrke4 LIKE '" & strBokstav & "%' GROUP BY tabellen.yrke4 UNION" & vbCrLf & _
           "SELECT tabellen.yrke5 As PlatsNamn FROM tabellen WHERE tabellen.yrke5 LIKE '" & strBokstav & "%' GROUP BY tabellen.yrke5 UNION" & vbCrLf & _
           "SELECT tabellen.yrke3 As PlatsNamn FROM tabellen WHERE tabellen.yrke3 LIKE '" & strBokstav & "%' GROUP BY tabellen.yrke3"
   Set rsPlatser = Server.CreateObject("ADODB.Recordset")
   rsPlatser.Open strSQL, Connect
   Set rsPersoner = Server.CreateObject("ADODB.Recordset")
If rsPlatser.EOF = True Then %>

 <table border="1" width="100%">

Tyvärr så fanns det inte något yrke/titel som börjar på <b><% =strbokstav %></b> i databasen!

<% Else

Do Until rsPlatser.EOF %>

   <tr><td>
 <div class="flex">
 <h4><% =rsPlatser("PlatsNamn") %></h4>
</div>
 </td></tr>



<% strSQL = "SELECT tabellen.id, tabellen.fnamn, tabellen.enamn, tabellen.fodd, tabellen.dod FROM tabellen WHERE tabellen.yrke1 = '" & Replace(rsPlatser("PlatsNamn"), "'", "''") & "' OR tabellen.yrke4 = '" & Replace(rsPlatser("PlatsNamn"), "'", "''") & "' OR tabellen.yrke3 = '" & Replace(rsPlatser("PlatsNamn"), "'", "''") & "' OR tabellen.yrke5 = '" & Replace(rsPlatser("PlatsNamn"), "'", "''") & "' ORDER BY tabellen.fodd asc"
      rsPersoner.Open strSQL, Connect %>
   <table border="0" width="100%">
   <tr><td>
  <div class="flex">
<% Do Until rsPersoner.EOF %>
 <div class="img">
 <a href="visainfo.asp?id=<% =rsPersoner("id") %>"> <img src="./fotobig/<%=rsPersoner("id")%>.jpg"> <br>
<% =RSPersoner("enamn") %></div></a>


<%
'*** Loop samt DB-close *****

  rsPersoner.MoveNext
  Loop
  rsPersoner.Close

  rsPlatser.MoveNext
  Loop
  rsPlatser.Close
  End if

'****************************
%>
</div>
 </td></tr>
  </table>

<!-- #INCLUDE FILE = "swish_incl.asp" -->

</article>