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>