Hej
Jo jeg sætter lige scriptet ind igen, det er ved linje 57 der hvor der står
Else
¨
<%
' Bordreservation's sciptet er lavet af :
' Kenneth Fuglsang Christensen
' kenneth-fuglsang@pc.dk
if session("reload") <> true then
opdater = "onload='window.reload'"
session("reload") = true
end if
%>
<%
' 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 1
strSQL2 = "Select * from bordreservation Order By ID"
Set rs = Conn.Execute(strSQL2)
none = ""
if rs("navn") <> none then
'Luk Recordset
rs.Close
set rs = nothing
'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"
End If
Do
Response.Write "<tr>"
Response.Write "<td>" & rs("id") & "</td>"
Response.Write "<td>" & rs("navn") & "</td>"
Response.Write "<td>" & rs("Nickname") & "</td>"
Response.Write "</tr>"
rs.MoveNext
Loop
Response.Write "</table>"
Response.Write "</DIV>" & vbcrlf
End If
Else 'DET ER HER DEN KLAGER!!!!!!!!!!!!!!!!!!!!!!!!
Response.Write "<h2>Der er desværre ingen tilmeldte endnu.</h2>"
End If
' Luk RecordSet
rs.Close
Set rs = Nothing
' Luk Database forbindelse
Conn.Close
Set Conn = Nothing
%>
<html>
<head>
<Link rel="stylesheet" type="text/css"
href="/style/undersider/bordreservation.css">
<title>The Complex</title>
</head>
</html>
--
Med Venlig Hilsen
Webmaster
Kenneth Fuglsang Christensen
Kattegatsvej 17
9700 Brønderslev
Tlf.: 98 82 21 12
E-mail : kenneth-fuglsang@pc.dk
"Lauritz Jensen" <lauritz2@hotmail.com> skrev i en meddelelse
news:3AFF056E.1EF37471@hotmail.com...
> Kenneth Fuglsang wrote:
> >
> > Er der nogen der kan hjælpe mig med dette script der skulle lave
> > en tabel over de personer der har tilmeldt sig til
> > Bordreservationenen
>
> Kunne du ikke prøve at fortælle, hvad det er som ikke virker? Ellers
> skal vi jo først gætte det. Nå, men, jeg har prøvet at rydde lidt op:
>
> <html>
> <head>
> <Link rel="stylesheet" type="text/css"
> href="/style/undersider/bordreservation.css">
> <title>The Complex</title>
> </head>
> <body>
> <%
> ' Bordreservation's sciptet er lavet af :
> ' Kenneth Fuglsang Christensen
> ' kenneth-fuglsang@pc.dk
>
> ' 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 1
> sql = "SELECT * FROM bordreservation ORDER BY id"
> Set rs = Conn.Execute(strSQL)
>
> If rs.EOF Then
> Response.Write "<h2>Der er desværre ingen tilmeldte endnu.</h2>"
> Else
> 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
> Do Until Rs.Eof
> Response.Write "<tr>"
> Response.Write "<td>" & rs("id") & "</td>"
> Response.Write "<td>" & rs("navn") & "</td>"
> Response.Write "<td>" & rs("Nickname") & "</td>"
> Response.Write "</tr>" & vbCrLf
> Rs.MoveNext
> Loop
> Response.Write "</table>"
> Response.Write "</DIV>" & vbcrlf
> End If
>
> ' Luk RecordSet
> rs.Close
> Set rs = Nothing
>
> ' Luk Database forbindelse
> Conn.Close
> Set Conn = Nothing
> %>
> </body>
> </html>
>
> --
> Lauritz