ayuda xfavor!!

ivantxo
18 de Mayo del 2004
Hola a todos, no se mucho de asp y a al hora de conectarme con mi base de datos mysql me suele dar este error


Se excedi el tiempo mximo de espera para una secuencia de comandos. Para cambiar este lmite especifique un nuevo valor para la propiedad Server.ScriptTimeOut o cambie el valor en las herramientas de administracin de IIS.
, pero la conexion se que esta bien, no se de donde viene el error

Request.ServerVariables("QUERY_STRING")
scodigo= request.QueryString("textcodigo")
textos= request.QueryString("texto")
textcodigo=scodigo


on error resume next
dim adoRS
dim adoConn

set adoConn = Server.CreateObject("ADODB.Connection")
set adoRS = Server.CreateObject("ADODB.Recordset")

adoConn.Open "Provider=192.168.1.100;3306;" & _
"Data Source=etsedi;" & _
"User Id=root;" & _
"Password=4543"

if adoConn.errors.count = 0 then
response.write "OK"
else
response.write "ERROR"
end if



num = eval(scodigo)
response.write(textos)
texto=textos
%>



</p><table width="75%" border="1"><%
if scodigo <> 0 then
for x=1 to 8
scon=(num&x&"")
adoConn.movefirst
response.Write("<tr><td><strong>numero</strong>:"&scon&"</td>")
z=0
do while not adoConn.eof
numdos = eval(scon)
if numdos = rsdiaz("codigo") then
if x=1 then
response.Write("<td><strong>primera</strong>:"&adoConn("primera")&"</td>")
response.Write("<td><strong>segunda</strong>:"&adoConn("segunda")& "</td>")
txt1=adoConn("primera")
txt2=adoConn("segunda")
end if
if x=2 then
response.Write("<td><strong>primera</strong>:"&adoConn("primera")&"</td>")
response.Write("<td><strong>segunda</strong>:"&adoConn("segunda")& "</td>")
txt3=adoConn("primera")
txt4=adoConn("segunda")
end if
if x=3 then
response.Write("<td><strong>primera</strong>:"&adoConn("primera")&"</td>")
response.Write("<td><strong>segunda</strong>:"&adoConn("segunda")& "</td>")
txt5=adoConn("primera")
txt6=adoConn("segunda")
end if
if x=4 then
response.Write("<td><strong>primera</strong>:"&adoConn("primera")&"</td>")
response.Write("<td><strong>segunda</strong>:"&adoConn("segunda")& "</td>")
txt7=adoConn("primera")
txt8=adoConn("segunda")
end if
if x=5 then
response.Write("<td><strong>primera</strong>:"&adoConn("primera")&"</td>")
response.Write("<td><strong>segunda</strong>:"&adoConn("segunda")& "</td>")
txt9=adoConn("primera")
txt10=adoConn("segunda")
end if
if x=6 then
response.Write("<td><strong>primera</strong>:"&adoConn("primera")&"</td>")
response.Write("<td><strong>segunda</strong>:"&adoConn("segunda")& "</td>")
txt11=adoConn("primera")
txt12=adoConn("segunda")
end if
if x=7 then
response.Write("<td><strong>primera</strong>:"&adoConn("primera")&"</td>")
response.Write("<td><strong>segunda</strong>:"&adoConn("segunda")& "</td>")
txt13=adoConn("primera")
txt14=adoConn("segunda")
end if
if x=8 then
response.Write("<td><strong>primera</strong>:"&adoConn("primera")&"</td>")
response.Write("<td><strong>segunda</strong>:"&adoConn("segunda")& "</td>")
txt15=adoConn("primera")
txt16=adoConn("segunda")
end if
z=1
adoRS.movenext
else
adoRS.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>
<%
adoConn.movenext
end if
%>