Error?? y xq??

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 máximo de espera para una secuencia de comandos. Para
cambiar este límite especifique un nuevo valor para la propiedad
Server.ScriptTimeOut o cambie el valor en las herramientas de administración
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 "Provider2.168.1.100;3306;" & _
"Data Source=etsedi;" & _
"User Id=root;" & _
"PasswordE43"

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
%>