Expected statement

Du skal fjerne begge "End If"-statements, da du jo ikke har nogle korresponderende If - statements!

Mvh,

Thomas Regin.

Du skal også fjerne "Next", da du ikke har noget "For"-loop

/Thomas.

det ser ud som om der ikke er sammenhæng mellem dine if-sætninger og dine end if-sætninger...Er det hele koden?

Er det hele scriptet?
Der er to "end if", men ingen "if ... then".
Kan vi få det hele at se?

Havde glemt denne:

If rs.eof then

Det giver stadig ingen mening.
Du mangler at starte loopet.

Ehm.. Hvorfor var det lige, at du accepterede a_shack's svar og ikke mit?

Thomas.

PS.: Her kommer lige koden, som den skal se ud:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "DBQ=" & Server.Mappath("../../db/Booking.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Password=1234;"

SQL = "SELECT Bordopstilling, Pris, Link from bordopstilling where Lokale = " & Session("Id")
rs.Open SQL, Conn

do while not rs.EOF
'URL Convert
Bordopstilling = "<a style='text-decoration:none' href='bordopstilling/" & rs("Link") & "'>" & rs("Bordopstilling") & "</a>"
'End URL Convert

%>
                        <tr>
                          <td width="32%">
<%
response.write Bordopstilling
%>
            </td>
                          <td width="68%">Tryk</td>
                        </tr>
<%
        rs.MoveNext
        Loop
%>

fordi dit svar kom jeg ikke længere med ... men det gjorde jeg med a_shack's ... hans gjorde at jeg kom i tanke om at jeg havde glemt noget!

Meltofte ... det hele ser sådan ud nu:

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "DBQ=" & Server.Mappath("../../db/Booking.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Password=1234;"

SQL = "SELECT Bordopstilling, Pris, Link from bordopstilling where Lokale = " & Session("Id")
rs.Open SQL, Conn

    For x = 1 to 20
    If rs.eof then
    Exit For
    Else

'URL Convert
Bordopstilling = "<a style='text-decoration:none' href='/1/" & rs("Link") & "'>" & rs("Bordopstilling") & "</a>"
'End URL Convert

%>
                        <tr>
                          <td width="32%">
<%
response.write Bordopstilling
end if
%>
            </td>
                          <td width="68%">
Tryk
                </td>
                        </tr>
<%
        rs.MoveNext

        Next
%>

Ja, pænt er det ikke, men hvis det virker, så virker det jo! :)

Thomas.