Medarbejderdatabase-script
Jeg er ved at lave et medarbejder-database script. Idéen er, at de forskellige medarbejdere skal opdeles under forskellige grupper, og det hele skal foregå dynamisk.Jeg har to tabeller, en der hedder "users" med alle brugerne, og en der hedder "usertypes", som definerer hvad navnet på gruppen er, og hvilken rækkefølge grupperne skal listes.
I "users" tabellen er felterne:
ID: ID-nummer
Usertype: Nummer på gruppe
nummer: nummer der definerer rækkefølge
fname: Fornavn
sname: Efternavn
mail: E-mailadresse
adress, zipcode, city, telephone osv.
I "usertypes" er der felterne:
ID: ID-nummer
groupname: Navn på gruppe (f.eks. "ledelsen", "administration", "udlejning" osv)
nummer: Nummer der definerer rækkefølge
Lige nu bruger jeg slet ikke usertypes-tabellen, da jeg ikke kan finde ud af hvordan jeg skal få den til først at få navnet på 1. gruppe frem fra "usertypes", så hente medarbejdere fra "users", så gå i gang med 2. gruppe, helt automatisk.
Som det er nu, ser det sådan ud:
---
<table width="100%" cellpadding="0" cellspacing="0"><tr><td>
<br><h1><font color="#000000"><strong> Administration</strong></font></h1><br>
<%
' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../database/settings.mdb")
' Åben databaseforbindelsen
Conn.Open DSN
' SQL forespørgsel
strSQL = "Select * from users Where usertype = 2 Order by nummer desc"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
Do
%>
<table width="48%" bgcolor="#dddddd" cellspacing="5" style="float: left; margin-right: 10px; margin-bottom: 10px;" class="tekstafsnit">
<tr>
<td><img src="../images/brugere/<% if rs("picture") <> "" then Response.Write rs("picture") else Response.Write "intet_billede" end if%>.jpg"></td>
<td valign="top" align="left"><br> <br><b><% Response.Write rs("fname") %> <% Response.Write rs("sname") %></b><br><br><table cellpadding="0" cellspacing="0" class="tekstafsnit"><% if rs("telephone") <> "" then response.write "<tr><td>" else response.write "" %><% if rs("telephone") <> "" then response.write "Tlf: </td>" else response.write "" %><% if rs("telephone") <> "" then response.write "</td><td>" else response.write "" %><% if rs("telephone") <> "" then response.write rs("telephone") else Response.write "" end if %><% if rs("telephone") <> "" then response.write "</td></tr>" else response.write "" %><% if rs("mobile") <> "" then response.write "<tr><td>" else response.write "" %><% if rs("mobile") <> "" then response.write "Mobil: " else response.write "" %><% if rs("mobile") <> "" then response.write "</td><td>" else response.write "" %><% if rs("mobile") <> "" then response.write rs("mobile") else Response.write "" end if %><% if rs("mobile") <> "" then response.write "</td></tr>" else response.write "" %></table></td>
</tr>
</table>
<%
rs.MoveNext
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</td></tr></table>
---
Ved næste usertype indsætter jeg samme kode, ændre overskriften, og ændrer SQL-forespørgselen til f.eks. "usertype = 3".
(se screenshot på http://www.thouber.dk/medarbejdere.jpg)
Mit spørgsmål er så: Hvordan får jeg den til at hente gruppenavn fra usertypes, og helt automatisk putte de medarbejdere der skal ind under de forskellige grupper?
