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

%>

------------------
.: Det är jag som ger svaren och det är Ni som ställer frågorna :.

[Redigerat av jorgen den 29 dec 2001]

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.

------------------
Ampy.cjb.net

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?

------------------
.: Det är jag som ger svaren och det är Ni som ställer frågorna :.

[Redigerat av jorgen den 29 dec 2001]

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

------------------
Ampy.cjb.net

:q

------------------
.: Det är jag som ger svaren och det är Ni som ställer frågorna :.

[Redigerat av jorgen den 29 dec 2001]

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

------------------
Ampy.cjb.net

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

------------------
.: Det är jag som ger svaren och det är Ni som ställer frågorna :.

[Redigerat av jorgen den 29 dec 2001]

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

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

cya,
PatrikB

------------------
-=* IF there is a wrong way to do something, then someone will do it *=-

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å?

------------------
Ampy.cjb.net

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

------------------
.: Det är jag som ger svaren och det är Ni som ställer frågorna :.

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

------------------
Ampy.cjb.net

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???

------------------
Ampy.cjb.net

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

------------------
kolung.....det tål att tänkas på!

[Redigerat av icaaq den 29 dec 2001]