este error me huele mal!!

Hola jefes, me salta este error, me imagino que es por el tiempo, y es que
en mi codigo uso mucha conbinación de script y asp, se puede hacer algo

acelerar la comunicación entre estos códigos?es alguno mas rápido que

o tendre que cambiar todo??

ahi os pongo el codigo, asi podreis opinar, porque estoy mirando y no se

hacer.

num = eval(scodigo)
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=(num&x&"")
rs.movefirst
response.Write("<tr><td><strong>numero</strong>:"&scon&"</td>")
z=0
%>
<script language="JavaScript" type="text/JavaScript">
alert("llega")
</script>
<%
do while not rs.eof
numdos = eval(scon)
if numdos = rsdiaz("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
if x=2 then
response.Write("<td><strong>primera</strong>:"&rs("primera")&"</td>")
response.Write("<td><strong>segunda</strong>:"&rs("segunda")& "</td>")
txt3=rs("primera")
txt4=rs("segunda")
end if
if x=3 then
response.Write("<td><strong>primera</strong>:"&rs("primera")&"</td>")
response.Write("<td><strong>segunda</strong>:"&rs("segunda")& "</td>")
txt5=rs("primera")
txt6=rs("segunda")
end if
if x=4 then
response.Write("<td><strong>primera</strong>:"&rs("primera")&"</td>")
response.Write("<td><strong>segunda</strong>:"&rs("segunda")& "</td>")
txt7=rs("primera")
txt8=rs("segunda")
end if
if x=5 then
response.Write("<td><strong>primera</strong>:"&rs("primera")&"</td>")
response.Write("<td><strong>segunda</strong>:"&rs("segunda")& "</td>")
txt9=rs("primera")
txt10=rs("segunda")
end if
if x=6 then
response.Write("<td><strong>primera</strong>:"&rs("primera")&"</td>")
response.Write("<td><strong>segunda</strong>:"&rs("segunda")& "</td>")
txt11=rs("primera")
txt12=rs("segunda")
end if
if x=7 then
response.Write("<td><strong>primera</strong>:"&rs("primera")&"</td>")
response.Write("<td><strong>segunda</strong>:"&rs("segunda")& "</td>")
txt13=rs("primera")
txt14=rs("segunda")
end if
if x=8 then
response.Write("<td><strong>primera</strong>:"&rs("primera")&"</td>")
response.Write("<td><strong>segunda</strong>:"&rs("segunda")& "</td>")
txt15=rs("primera")
txt16=rs("segunda")
end if
z=1
rs.movenext
else

rs.movenext
end if
loop
if z=0 then
if x=1 then
txt1="vacio"
txt2="vacio"
response.Write("<td><strong>primera:Vacio</strong>:""</td>")
response.Write("<td><strong>segunda:Vacio</strong>:""</td>")
end if
if x=2 then
txt3="vacio"
txt4="vacio"
response.Write("<td><strong>primera:Vacio</strong>:""</td>")
response.Write("<td><strong>segunda:Vacio</strong>:""</td>")
end if
if x=3 then
txt5="vacio"
txt6="vacio"
response.Write("<td><strong>primera:Vacio</strong>:""</td>")
response.Write("<td><strong>segunda:Vacio</strong>:""</td>")
end if
if x=4 then
txt7="vacio"
txt8="vacio"
response.Write("<td><strong>primera:Vacio</strong>:""</td>")
response.Write("<td><strong>segunda:Vacio</strong>:""</td>")
end if
if x=5 then
txt9="vacio"
txt10="vacio"
response.Write("<td><strong>primera:Vacio</strong>:""</td>")
response.Write("<td><strong>segunda:Vacio</strong>:""</td>")
end if
if x=6 then
txt11="vacio"
txt12="vacio"
response.Write("<td><strong>primera:Vacio</strong>:""</td>")
response.Write("<td><strong>segunda:Vacio</strong>:""</td>")
end if
if x=7 then
txt13="vacio"
txt14="vacio"
response.Write("<td><strong>primera:Vacio</strong>:""</td>")
response.Write("<td><strong>segunda:Vacio</strong>:""</td>")
end if
if x=8 then
txt15="vacio"
txt16="vacio"
response.Write("<td><strong>primera:Vacio</strong>:""</td>")
response.Write("<td><strong>segunda:Vacio</strong>:""</td>")
end if
end if
next
%></table>
<p>
<%
rs.movenext
else
%>
<script language="JavaScript" type="text/JavaScript">
alert("llega3")
</script>

<%

txt1="vacio"
txt2="vacio"
txt3="vacio"
txt4="vacio"
txt5="vacio"
txt6="vacio"
txt7="vacio"
txt8="vacio"
txt9="vacio"
txt10="vacio"
txt11="vacio"
txt12="vacio"
txt13="vacio"
txt14="vacio"
txt15="vacio"
txt16="vacio"
end if