Vis forskellige data alt efter hvem der logger på

Hejsa
Jeg har lavet et lille system som viser vagter over nogle medarbejdere.
Dataene bliver udtrukket fra et excel ark hvor lederen taster vagterne ind.
Det virker perfekt men nu tænkte jeg på at lave det sådan at man kun så sine agne vagter....man logger ind for at se vagtplanen og en session bliver sat!

En kolone fra excel arket ser sådan ud:

Anders
x
x

x

x
x

Hvor krydset symboliserer at han er på vagt.

Er der en der har et godt forslag??


Her er koden:


<%
    If Not Session("Adgang") = "Godkendt" Then
        Response.Redirect("../admin/login/login.asp?valg=forbudt")
    End If

%>

<%

Dim adoCn
Dim adoRs
Dim adoFld
Dim strQuery
Dim strResults
Dim ugenr

ugenr = request.QueryString("ugenr")

if request.QueryString("ugenr") = "" then
ugenr= weekNr (tmpDate)
end if

'response.write "ugenr " & ugenr

Const adUseClient = 3
Const adClipString = 2

Const strColDelim = "<font style=arial size=2 border=1 color=#ffffff>&nbsp;&nbsp;</td><td>"
Const strRowDelim = "</td></tr><tr><td>"

Set adoCn = CreateObject("ADODB.Connection")
Set adoRs = CreateObject("ADODB.Recordset")
With adoCn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = _
        "Data Source="&Server.MapPath("excelark/Vagtplan.xls")&";" & _
          "Extended Properties=""Excel 8.0;HDR=Yes;"";" 
    .CursorLocation = adUseClient
    .Open
End With



strQuery = "SELECT * FROM ["&ugenr&"$c3:N17]"

With adoRs
    Set .ActiveConnection = adoCn



    .Open strQuery

End With
%>


<table align=center width=800 cellpadding="0" cellspacing="0" border=1  bgcolor="#006699" color="#ffffff">
<tr><td><b>
<%


if request.QueryString("ugenr") = "" then
ugenr= weekNr (tmpDate)
response.write "Uge nr. " & ugenr
else




ugenr = request.QueryString("ugenr")
response.write "Uge nr. " & ugenr

end if
%>

&nbsp;&nbsp; 





</td></tr></table>

        <table align=center width=800 cellpadding="0" cellspacing="0" border=1 bgcolor="#006699" text color="#ffffff">
           

<tr>
                <td rowspan="<%= adoRs.RecordCount + 2 %>">
               



   
                </td>


   

            </tr>

            <tr>
           
           
           
            </tr>           
            <tr style="border:10px solid silver;size=1px;>
                <td color="#ffffff" style="border:10px solid red;size=px;border:1px solid blue;"">
                <%
                strResults = adoRs.GetString(adClipString, _
                    adoRs.RecordCount, strColDelim, _
                    strRowDelim)
                strResults2 = Left(strResults, _
                    InStrRev(strResults,"<tr><td>") - 1)
                Response.Write"<td style=border:10px solid red;size=1px;>" & strResults
                %>
            </tr>
        </table>
    </body>
</html>