Object doesn't support this property or method: 'eof'

Hola gente!

Me da este error en la linea 51, todo va mal a la hora de subirlo, con lo
bonito que habia salido...


strcon = "driver={MySQL ODBC 3.51
Driver};server=localhost;uid=ODBC;pwd=;database=test;option387"
Set rs = Server.CreateObject("ADODB.Connection")
rs.ConnectionTimeout(0
rs.CommandTimeout`
rs.Open strcon


response.write(textos)
texto=textos
%>





</p><table width="75%" border="1"><%
if scodigo <> 0 then
%>
<script language="JavaScript" type="text/JavaScript">
alert("llega1")
</script>

<%
for x=1 to 8
scon=(scodigo&x&"")
response.Write(scon)
response.Write("<tr><td><strong>numero</strong>:"&scon&"</td>")
z=0
%>
<script language="JavaScript" type="text/JavaScript">
alert("llega")
</script>
<%
while not rs.eof ***linea 51***
scon = eval(scon)
if scon = rs("codigo") then
if x=1 then
response.Write("<td><strong>primera</strong>:"&rs("primera")&"</td>")
response.Write("<td><strong>segunda</strong>:"&rs("segunda")& "</td>")
txt1=rs("primera")
txt2=rs("segunda")
end if