End If förväntas

borde vara:

<%

Set Conn = Server.CreateObject("ADODB.Connection")
Set DBLink = Server.CreateObject("ADODB.Recordset")

Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/linkcounter=spel.mdb") & ";pwd=;"

SQL = "SELECT * From LinkCounter ORDER BY id"
DBLink.Open SQL, Conn, 1, 2

If [b]DBLink.EOF Then

response.write "Inget fanns"

else [/b]

Do Until [b]DBLink.EOF[/b]

x = 0

if x = 2 then
t = "#FFE08B"

else
t = "#FFCC51"
end if

%>

<TABLE style='BORDER-BOTTOM: #000000 1px solid; BORDER-TOP: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-LEFT: #000000 1px solid' 
borderColor=#000000 borderColor=#000000 cellSpacing=0 width=475 
borderColorLight=#000000 border=0>

<TR>

<TD 
width=475 bgcolor='&t&' height=17><FONT face=Verdana 
color=#000000 size=1><FONT face=Verdana color=#000000 size=1>

<%
Response.Write "<br> <a href=""" & adress & """action=in&id="" & DBLink('ID') & """>" & DBLink('Namn') & "'</a>'" &vbCrLf
%>

</FONT></TD></TR>

</table><%

DBLink.MoveNext

[b]loop[/b]

End If

DBLink.Close
Conn.Close

Set DBLink = Nothing
Set Conn = Nothing

%>

Hej,

Prova så här:

DBLink.MoveNext

Loop

End If

DBLink.Close
Conn.Close

Set DBLink = Nothing
Set Conn = Nothing

Mvh
Jimpa

[Redigerat av jimpa den 29 dec 2001]

Jag kopierade hela din kod och den funkade bra men nu får jag detta felmeddelande:

Körningsfel i Microsoft VBScript fel '800a01f4' 

Odefinierad variabel: 'x' 

/spel/onlinespel.asp, line 182

[b]x = 0[/b]

if x = 2 then
color = "#FFE08B"

else
color = "#FFCC51"
end if

Rad 182 är skriven med fet stil.

Hej, du kan inte skriva ut asp utanför asp-avgränsare:

<TD 
width=475 bgcolor='&t&' height=17><FONT face=Verdana 
color=#000000 size=1><FONT face=Verdana color=#000000 size=1>

<%

Set Conn = Server.CreateObject("ADODB.Connection")
Set DBLink = Server.CreateObject("ADODB.Recordset")

Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/linkcounter=spel.mdb") & ";pwd=;"

SQL = "SELECT * From LinkCounter ORDER BY id"
DBLink.Open SQL, Conn, 1, 2

If DBLink.EOF Then

response.write "Inget fanns"

else 

Do Until DBLink.EOF

Dim color
Dim counter
counter = counter + 1
If counter Mod 2 = 0 then
color = "#FFE08B"
Else
color = "#FFCC51"
End If

%>

<TABLE style='BORDER-BOTTOM: #000000 1px solid; BORDER-TOP: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-LEFT: #000000 1px solid' 
borderColor=#000000 borderColor=#000000 cellSpacing=0 width=475 
borderColorLight=#000000 border=0>

<%

response.write "<TR bgcolor="""&color&""">"

%>

<TD 
width=475 height=17><FONT face=Verdana 
color=#000000 size=1><FONT face=Verdana color=#000000 size=1>

<%
Response.Write "<br> <a href=""" & adress & """action=in&id="" & DBLink('ID') & """>" & DBLink('Namn') & "'</a>'" &vbCrLf
%>

</FONT></TD></TR>

</table><%

DBLink.MoveNext

loop

End If

DBLink.Close
Conn.Close

Set DBLink = Nothing
Set Conn = Nothing

%>

RED: antog att du ville byta färg på varannan rad?

Nu funkar det men det står True i alla kolumner i tabellen.

Alltså när jag skriver ut denna rad:

Response.Write "<br> <a href=""" & adress & """action=in&id="" & DBLink('ID') & """>" & DBLink('Namn') & "'</a>'" &vbCrLf

Så skriver den ut True

Response.Write "<br><a href="""&adress &""" action=in&id="" "& DBLink("ID") & """>" & DBLink("Namn") & "</a>"

Då är innehållet i: DBLink('Namn') = True

dvs, du måste lagt in true i fältet i databasen ....

cya,
PatrikB

Nu skriver den ut rätt men istället blev höjden på kolumnen dubbelt så hög. Det ser inte så snyggt ut, varför blir det så?

Kan bero på att du lagt in en radbrytning ( <br> ) innan länken.

Oj, tack så mycket jorgen, det såg inte jag

Jag kom på en sak som jag inte märkte förut: På denna rad:

Response.Write "&nbsp;&nbsp;<a href="""&adress &""" action=in&id="" "&DBLink("ID") & """>" & DBLink("Namn") & "</a>"

Så blir länken bara linkcounter.asp

Varför???

Response.Write "  <a href="""&adress &"?action=in&id="&DBLink("ID") & """>" & DBLink("Namn") & "</a>"