Hej
jeg har problemer med mit script til at vise tilmeldte på siden da den viser
120 pladser men ingen navn da de ikke er reserverede, den skal nemlig kun
vise en plads ved vis tilmeldte hvis pladsen er reserveret.
her er mit script
<%
' Opret Database forbindelse
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "Driver={Microsoft Access Driver (*.mdb)};"
DSN = DSN & "DBQ=" & Server.MapPath("/db/database.mdb")
Conn.Open DSN
'Læs Bruger
strSQL1 = "Select * from bordreservation Order By ID"
Set rs = Conn.Execute(strSQL1)
Response.Write "<h2 ALIGN='center'>Her kan du betille pladser til"
Response.Write " det næste party som vi holder.</h2>" & vbcrlf
Response.Write "<P> </P>" & vbcrlf
Response.Write "<DIV ALIGN='center'>" & vbcrlf
Response.Write "<table width='80%' border='0' cellpadding='0'"
Response.Write " cellspacing='0'>" & vbcrlf
If rs.EOF Then
Response.Write "Der er sket en fejl"
Else
r = 0
p = 0
Do While Not rs.EOF
r = r + 1
m = r Mod 2
If m = 1 AND r > 1 Then
Response.Write "<TR><TD COLSPAN='9'> </TD></TR>"
End If
Response.Write "<tr>"
For p = 1 to 12
If (rs("reserveret") = 0) Then
bgcolor = "#4AC111"
Elseif (rs("reserveret") = 1) Then
bgcolor = "#F2FC58"
Else
bgcolor = "#FB0430"
End If
Response.Write "<TD BGCOLOR='" & bgcolor
Response.Write "' align='center'>"
Response.Write "<A HREF='bordreservation/reserver.asp?bord="
Response.Write rs("id")
Response.Write "' target='indhold'>"
Response.Write rs("id")
Response.Write "</A>" & vbcrlf
Response.Write "</td>"
rs.MoveNext
Next
Response.Write "<tr>"
Loop
Response.Write "</table>"
Response.Write "</DIV>" & vbcrlf
End If
' Luk RecordSet
rs.Close
Set rs = Nothing
Response.Write "<ul>"
Response.Write "<table border='0' align='center'>"
Response.Write "<tr align='center'>"
Response.Write "<td align='center'><li>Grøn betyder at pladsen er
ledig.</li></td>"
Response.Write "</tr align='center'>"
Response.Write "<tr align='center'>"
Response.Write "<td align='center'><li>Gul betyder at pladsen er
reserveret.</li></td>"
Response.Write "</tr align='center'>"
Response.Write "<tr align='center'>"
Response.Write "<td align='center'><li>Rød betyder at pladsen er reserveret
og betalt.</li></td>"
Response.Write "</tr>"
response.Write "</table>"
response.Write "</ul>"
'Tilmeldte SQL strenge
strSQL2 = "Select * from bordreservation Order By ID"
Set rs = Conn.Execute(strSQL2)
'Vis tilmeldte
Response.Write "<table align='center' width='80%' border='0'
cellpadding='0'"
Response.Write " cellspacing='0'>" & vbcrlf
Response.Write "<tr>"
Response.Write "<td>Bord : </td>"
Response.Write "<td>Navn : </td>"
Response.Write "<td>Nickname : </td>"
Response.Write "</tr>"
If rs.EOF Then
Response.Write "Der er sket en fejl"
none = ""
Elseif rs("navn") <> none then
Do While Not rs.EOF
Response.Write "<TR><TD COLSPAN='9'> </TD></TR>"
Response.Write "<tr>"
Response.Write "<TD>" & rs("id") & "</td>"
Response.Write "<TD>" & rs("navn") & "</td>"
Response.Write "<TD>" & rs("nickname") & "</td>"
rs.MoveNext
Response.Write "<tr>"
Loop
Response.Write "</table>"
Response.Write "</DIV>" & vbcrlf
Else
End If
' Luk Database forbindelse
Conn.Close
Set Conn = Nothing
%>
<html>
<head>
<Link rel="stylesheet" type="text/css"
href="/1024/style/undersider/bordreservation.css">
<title>The Complex</title>
</head>
</html>
--
Med Venlig Hilsen
Webmaster
Kenneth Fuglsang Christensen
E-mail : kenneth-fuglsang@pc.dk