Intabellare su tre colonne

[jillo]

Salve a tutti.
Sto cercando di intabellare i risultati di una query su tre colonne.
L'output mi da:
Impossibile visualizzare la pagina
Tipo di errore: Errore di compilazione di Microsoft VBScript (0x800A0400)
Prevista istruzione
wend

Dove sbaglio?


<%
Set con = Server.CreateObject( "ADODB.Connection" )
strDB= Server.MapPath(dirDB & "prova.mdb")
con.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & strDB
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = Con
rs.Open "Select * FROM tab_test order by testname"
set objtestname=rs("testname")
%>


<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
Dim j
j = 2

if rs.EOF = false then
while not rs.EOF

if j = 2 then %>
<tr>
<td><%=objtestname%></td>
<%
j = j - 1
else if j = 1 then %>
<td><%=objtestname%></td>

<%
j = j - 1
else %>
<td><%=objtestname%></td>
</tr>

<%
j = 2
end if

rs.MoveNext

wend
end if
%>
</table>

[willybit]

o usi elseif tutto attaccato oppure metti l'end if che manca

[jillo]

azz...
grazie...!