Denne kode:
' ///////////////// Dato sektion /////////////////
'Create object for the recordset
Set rs = Server.CreateObject("ADODB.RecordSet")
'Create DSN connection
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("log/vl10.mdb")
' Opbygning af SQL streng
'strSQL = "SELECT * FROM Vaertskaber Where Aar =" & "'" & iAar & "'"
strSQL = "SELECT * FROM Vaertskaber Where Aar = '" & iAar & "' ORDER BY RIGHT([date],2)"
'Response.Write(strSQL)
'Open DB
rs.Open strSQL, strDSN, 1
%>
<table cellspacing="0" cellpadding="0" border="0" width="600">
<tr>
<td width="180" height="18" Class="RammeKolonnerVHTB" valign="top"><img src="images/sp.gif" width="180" height="1"><br> </td>
<%
i = 0
j = 0
do while not rs.eof 'Looping rows
iString = rs("Date")
If iString <> "" Then
i = i + 1
Antal = CInt(i)
ReDim Dato(Antal)
Dato(Antal) = rs(Antal)
Response.Write "<td width=42 Class=RammeKolonnerHTB><img src=images/sp.gif width=42 height=1><br>" & iString & "</td>"
End If
rs.MoveNext
Loop
j = 9
For k = i to j
Response.Write "<td width=42 Class=RammeKolonnerHTB><img src=images/sp.gif width=42 height=1><br>Dato</td>"
Next
Response.Write "Antal=" & Antal & "<br>"
For i = 1 to Antal
Response.Write "Dato" & i & " " & Dato(i) & "<br>"
Next
rs.close()
Set rs = Nothing
Laver dette output:
20.07|10.08|06.10|13.12|Dato|Dato|Dato|Dato|Dato|Dato
Denne kode:
<!-- ///////////////// Navneliste sektion ///////////////// -->
<%
'Create object for the recordset
Set rs = Server.CreateObject("ADODB.RecordSet")
'Create DSN connection
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("log/vl10.mdb")
' Opbygning af SQL streng
strSQL = "SELECT * FROM Vaertskaber Where Aar =" & "'" & iAar & "'"
'Response.Write(strSQL)
'Open DB
rs.Open strSQL, strDSN, 1
'Get the data from the DB into an array, for performance.
if NOT rs.EOF then
rsarr = rs.GetRows()
max = Ubound(rsarr,2)
else
max = 0
end if
%>
<table cellspacing="0" cellpadding="0" border="0" width="600">
<%
row=0
do while(row<=max) 'Looping rows
Response.Write "<tr>"
Response.Write "<td width=180 height=18 Class=RammeKolonnerVHB><img src=images/sp.gif width=180 height=1><br>" & rsarr(2,row) & " " & rsarr(3,row) & "</td>"
If rsarr(4,row) <> "" Then
For i = 1 to 10
Response.Write "<td width=42 Class=RammeKolonnerHB><img src=images/sp.gif width=42 height=1><br>" & "X" & "</td>"
Next
Else
Response.Write "<td width=42 Class=RammeKolonnerHB><img src=images/sp.gif width=42 height=1><br>" & "Y" & "</td>"
End If
row = row + 1
Response.Write "</tr>"
Loop
rs.close()
Set rs = Nothing
Laver dette output:
Navn1 og sætter et kryds ud for den dato personen har afholdt et møde f.eks.
Navn2 denne person har ikke afholdt noget møde så der er alle felter tomme
Navn3 Sætter igen kryds ud for den dato personen har afholdt et møde og tomme felter hvis han ikke har haft afholdt et møde.
o.s.v.
Det er det jeg prøver at skildre længere oppe med krydserne.
db'en indeholder bare fornavn, efternavn og et tekstfelt der indeholder en dato ( 20.07 )
Det jeg skal have ud er en person og et kryds ud for den viste dato, hvis personen har afholdt et møde. Hvis han ikke har afholdt et møde er der bare blanke felter over hele rækken.
Du må sige til hvis jeg skal prøve at forklare det anderledes.
