Últimos mensajes - Powered by IBM

Palabras claves

Error?? y xq??

18/05/2004 - 08:42 por Ivan | Informe spam

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

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

<%
adoConn.movenext
end if
%>

Siga el debate

6 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Franco Figun

18/05/2004 - 10:11 | Informe spam

El problema es que el query es muy largo, y tarda mas de 1000 ms, lo cual
hace que no se ejecuten las paginas asp; podes hacer 2 cosas: subir el
tiempo de espera en el IIS (nop recomendable), y 2, buscar en tu codigo una
forma de hacerlo mas rapido, alomejor haciendo varios querys pequeños que
hagan el mismo resultado...
Saludos

FF
www.francofigun.com.ar
www.microsofties.com.ar
MSN:
UIN: 305336919
Yahoo MSN:
"Ivan" escribió en el mensaje
news:

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

<table width="75%" border="1"><%
if scodigo <> 0 then
for x=1 to 8
scon=(num&x&"")
adoConn.movefirst
response.Write("<tr><td>numero:"&scon&"</td>")
z=0
do while not adoConn.eof
numdos = eval(scon)
if numdos = rsdiaz("codigo") then
if x=1 then
response.Write("<td>primera:"&adoConn("primera")&"</td>")
response.Write("<td>segunda:"&adoConn("segunda")&

"</td>")

txt1=adoConn("primera")
txt2=adoConn("segunda")
end if
if x=2 then
response.Write("<td>primera:"&adoConn("primera")&"</td>")
response.Write("<td>segunda:"&adoConn("segunda")&

"</td>")

txt3=adoConn("primera")
txt4=adoConn("segunda")
end if
if x=3 then
response.Write("<td>primera:"&adoConn("primera")&"</td>")
response.Write("<td>segunda:"&adoConn("segunda")&

"</td>")

txt5=adoConn("primera")
txt6=adoConn("segunda")
end if
if x=4 then
response.Write("<td>primera:"&adoConn("primera")&"</td>")
response.Write("<td>segunda:"&adoConn("segunda")&

"</td>")

txt7=adoConn("primera")
txt8=adoConn("segunda")
end if
if x=5 then
response.Write("<td>primera:"&adoConn("primera")&"</td>")
response.Write("<td>segunda:"&adoConn("segunda")&

"</td>")

txt9=adoConn("primera")
txt10=adoConn("segunda")
end if
if x=6 then
response.Write("<td>primera:"&adoConn("primera")&"</td>")
response.Write("<td>segunda:"&adoConn("segunda")&

"</td>")

txt11=adoConn("primera")
txt12=adoConn("segunda")
end if
if x=7 then
response.Write("<td>primera:"&adoConn("primera")&"</td>")
response.Write("<td>segunda:"&adoConn("segunda")&

"</td>")

txt13=adoConn("primera")
txt14=adoConn("segunda")
end if
if x=8 then
response.Write("<td>primera:"&adoConn("primera")&"</td>")
response.Write("<td>segunda:"&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>primera:Vacio:""</td>")
response.Write("<td>segunda:Vacio:""</td>")
end if
if x=2 then
txt3="vacio"
txt4="vacio"
response.Write("<td>primera:Vacio:""</td>")
response.Write("<td>segunda:Vacio:""</td>")
end if
if x=3 then
txt5="vacio"
txt6="vacio"
response.Write("<td>primera:Vacio:""</td>")
response.Write("<td>segunda:Vacio:""</td>")
end if
if x=4 then
txt7="vacio"
txt8="vacio"
response.Write("<td>primera:Vacio:""</td>")
response.Write("<td>segunda:Vacio:""</td>")
end if
if x=5 then
txt9="vacio"
txt10="vacio"
response.Write("<td>primera:Vacio:""</td>")
response.Write("<td>segunda:Vacio:""</td>")
end if
if x=6 then
txt11="vacio"
txt12="vacio"
response.Write("<td>primera:Vacio:""</td>")
response.Write("<td>segunda:Vacio:""</td>")
end if
if x=7 then
txt13="vacio"
txt14="vacio"
response.Write("<td>primera:Vacio:""</td>")
response.Write("<td>segunda:Vacio:""</td>")
end if
if x=8 then
txt15="vacio"
txt16="vacio"
response.Write("<td>primera:Vacio:""</td>")
response.Write("<td>segunda:Vacio:""</td>")
end if
end if
next
%></table>

<%
adoConn.movenext
end if
%>

Responder a este mensaje

#2 Ivan

18/05/2004 - 10:25 | Informe spam

alomejor haciendo varios querys pequeños ??
si he conseguido hacer esto, y en red local me funciona, no tengo
conocimientos de asp y con las páginas no me sale nada, ni sabia q se pude
haver varios querys

"Franco Figun" escribió en el mensaje
news:#ofX8$

El problema es que el query es muy largo, y tarda mas de 1000 ms, lo cual
hace que no se ejecuten las paginas asp; podes hacer 2 cosas: subir el
tiempo de espera en el IIS (nop recomendable), y 2, buscar en tu codigo

una

forma de hacerlo mas rapido, alomejor haciendo varios querys pequeños que
hagan el mismo resultado...
Saludos

FF
www.francofigun.com.ar
www.microsofties.com.ar
MSN:
UIN: 305336919
Yahoo MSN:
"Ivan" escribió en el mensaje
news:
> Hola a todos, no se mucho de asp y a al hora de conectarme con mi base

> 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
> %>
>
>
>
> <table width="75%" border="1"><%
> if scodigo <> 0 then
> for x=1 to 8
> scon=(num&x&"")
> adoConn.movefirst
> response.Write("<tr><td>numero:"&scon&"</td>")
> z=0
> do while not adoConn.eof
> numdos = eval(scon)
> if numdos = rsdiaz("codigo") then
> if x=1 then
>

response.Write("<td>primera:"&adoConn("primera")&"</td>")

> response.Write("<td>segunda:"&adoConn("segunda")&
"</td>")
> txt1=adoConn("primera")
> txt2=adoConn("segunda")
> end if
> if x=2 then
>

response.Write("<td>primera:"&adoConn("primera")&"</td>")

> response.Write("<td>segunda:"&adoConn("segunda")&
"</td>")
> txt3=adoConn("primera")
> txt4=adoConn("segunda")
> end if
> if x=3 then
>

response.Write("<td>primera:"&adoConn("primera")&"</td>")

> response.Write("<td>segunda:"&adoConn("segunda")&
"</td>")
> txt5=adoConn("primera")
> txt6=adoConn("segunda")
> end if
> if x=4 then
>

response.Write("<td>primera:"&adoConn("primera")&"</td>")

> response.Write("<td>segunda:"&adoConn("segunda")&
"</td>")
> txt7=adoConn("primera")
> txt8=adoConn("segunda")
> end if
> if x=5 then
>

response.Write("<td>primera:"&adoConn("primera")&"</td>")

> response.Write("<td>segunda:"&adoConn("segunda")&
"</td>")
> txt9=adoConn("primera")
> txt10=adoConn("segunda")
> end if
> if x=6 then
>

response.Write("<td>primera:"&adoConn("primera")&"</td>")

> response.Write("<td>segunda:"&adoConn("segunda")&
"</td>")
> txt11=adoConn("primera")
> txt12=adoConn("segunda")
> end if
> if x=7 then
>

response.Write("<td>primera:"&adoConn("primera")&"</td>")

> response.Write("<td>segunda:"&adoConn("segunda")&
"</td>")
> txt13=adoConn("primera")
> txt14=adoConn("segunda")
> end if
> if x=8 then
>

response.Write("<td>primera:"&adoConn("primera")&"</td>")

> response.Write("<td>segunda:"&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>primera:Vacio:""</td>")
> response.Write("<td>segunda:Vacio:""</td>")
> end if
> if x=2 then
> txt3="vacio"
> txt4="vacio"
> response.Write("<td>primera:Vacio:""</td>")
> response.Write("<td>segunda:Vacio:""</td>")
> end if
> if x=3 then
> txt5="vacio"
> txt6="vacio"
> response.Write("<td>primera:Vacio:""</td>")
> response.Write("<td>segunda:Vacio:""</td>")
> end if
> if x=4 then
> txt7="vacio"
> txt8="vacio"
> response.Write("<td>primera:Vacio:""</td>")
> response.Write("<td>segunda:Vacio:""</td>")
> end if
> if x=5 then
> txt9="vacio"
> txt10="vacio"
> response.Write("<td>primera:Vacio:""</td>")
> response.Write("<td>segunda:Vacio:""</td>")
> end if
> if x=6 then
> txt11="vacio"
> txt12="vacio"
> response.Write("<td>primera:Vacio:""</td>")
> response.Write("<td>segunda:Vacio:""</td>")
> end if
> if x=7 then
> txt13="vacio"
> txt14="vacio"
> response.Write("<td>primera:Vacio:""</td>")
> response.Write("<td>segunda:Vacio:""</td>")
> end if
> if x=8 then
> txt15="vacio"
> txt16="vacio"
> response.Write("<td>primera:Vacio:""</td>")
> response.Write("<td>segunda:Vacio:""</td>")
> end if
> end if
> next
> %></table>
> 
> <%
> adoConn.movenext
> end if
> %>
>
>

Responder a este mensaje

#3 Franco Figun

18/05/2004 - 10:49 | Informe spam

Yo te dirìa que veas o analices el query que hiciste, ya que si tarda mucho,
es que debe hacer un proceso muy grande, y hay que tratar de limitarlo...

FF
www.francofigun.com.ar
www.microsofties.com.ar
MSN:
UIN: 305336919
Yahoo MSN:
"Ivan" escribió en el mensaje
news:

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

<table width="75%" border="1"><%
if scodigo <> 0 then
for x=1 to 8
scon=(num&x&"")
adoConn.movefirst
response.Write("<tr><td>numero:"&scon&"</td>")
z=0
do while not adoConn.eof
numdos = eval(scon)
if numdos = rsdiaz("codigo") then
if x=1 then
response.Write("<td>primera:"&adoConn("primera")&"</td>")
response.Write("<td>segunda:"&adoConn("segunda")&

"</td>")

txt1=adoConn("primera")
txt2=adoConn("segunda")
end if
if x=2 then
response.Write("<td>primera:"&adoConn("primera")&"</td>")
response.Write("<td>segunda:"&adoConn("segunda")&

"</td>")

txt3=adoConn("primera")
txt4=adoConn("segunda")
end if
if x=3 then
response.Write("<td>primera:"&adoConn("primera")&"</td>")
response.Write("<td>segunda:"&adoConn("segunda")&

"</td>")

txt5=adoConn("primera")
txt6=adoConn("segunda")
end if
if x=4 then
response.Write("<td>primera:"&adoConn("primera")&"</td>")
response.Write("<td>segunda:"&adoConn("segunda")&

"</td>")

txt7=adoConn("primera")
txt8=adoConn("segunda")
end if
if x=5 then
response.Write("<td>primera:"&adoConn("primera")&"</td>")
response.Write("<td>segunda:"&adoConn("segunda")&

"</td>")

txt9=adoConn("primera")
txt10=adoConn("segunda")
end if
if x=6 then
response.Write("<td>primera:"&adoConn("primera")&"</td>")
response.Write("<td>segunda:"&adoConn("segunda")&

"</td>")

txt11=adoConn("primera")
txt12=adoConn("segunda")
end if
if x=7 then
response.Write("<td>primera:"&adoConn("primera")&"</td>")
response.Write("<td>segunda:"&adoConn("segunda")&

"</td>")

txt13=adoConn("primera")
txt14=adoConn("segunda")
end if
if x=8 then
response.Write("<td>primera:"&adoConn("primera")&"</td>")
response.Write("<td>segunda:"&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>primera:Vacio:""</td>")
response.Write("<td>segunda:Vacio:""</td>")
end if
if x=2 then
txt3="vacio"
txt4="vacio"
response.Write("<td>primera:Vacio:""</td>")
response.Write("<td>segunda:Vacio:""</td>")
end if
if x=3 then
txt5="vacio"
txt6="vacio"
response.Write("<td>primera:Vacio:""</td>")
response.Write("<td>segunda:Vacio:""</td>")
end if
if x=4 then
txt7="vacio"
txt8="vacio"
response.Write("<td>primera:Vacio:""</td>")
response.Write("<td>segunda:Vacio:""</td>")
end if
if x=5 then
txt9="vacio"
txt10="vacio"
response.Write("<td>primera:Vacio:""</td>")
response.Write("<td>segunda:Vacio:""</td>")
end if
if x=6 then
txt11="vacio"
txt12="vacio"
response.Write("<td>primera:Vacio:""</td>")
response.Write("<td>segunda:Vacio:""</td>")
end if
if x=7 then
txt13="vacio"
txt14="vacio"
response.Write("<td>primera:Vacio:""</td>")
response.Write("<td>segunda:Vacio:""</td>")
end if
if x=8 then
txt15="vacio"
txt16="vacio"
response.Write("<td>primera:Vacio:""</td>")
response.Write("<td>segunda:Vacio:""</td>")
end if
end if
next
%></table>

<%
adoConn.movenext
end if
%>

Responder a este mensaje

#4 Ivan

18/05/2004 - 11:01 | Informe spam

si quito el error resume next se me va todo al carajo, puede ser tb de la
conexion que este mal hecha y por ello se keda parado y no avanza?

"Franco Figun" escribió en el mensaje
news:

Yo te dirìa que veas o analices el query que hiciste, ya que si tarda

mucho,

es que debe hacer un proceso muy grande, y hay que tratar de limitarlo...

FF
www.francofigun.com.ar
www.microsofties.com.ar
MSN:
UIN: 305336919
Yahoo MSN:
"Ivan" escribió en el mensaje
news:
> Hola a todos, no se mucho de asp y a al hora de conectarme con mi base

> 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
> %>
>
>
>
> <table width="75%" border="1"><%
> if scodigo <> 0 then
> for x=1 to 8
> scon=(num&x&"")
> adoConn.movefirst
> response.Write("<tr><td>numero:"&scon&"</td>")
> z=0
> do while not adoConn.eof
> numdos = eval(scon)
> if numdos = rsdiaz("codigo") then
> if x=1 then
>

response.Write("<td>primera:"&adoConn("primera")&"</td>")

> response.Write("<td>segunda:"&adoConn("segunda")&
"</td>")
> txt1=adoConn("primera")
> txt2=adoConn("segunda")
> end if
> if x=2 then
>

response.Write("<td>primera:"&adoConn("primera")&"</td>")

> response.Write("<td>segunda:"&adoConn("segunda")&
"</td>")
> txt3=adoConn("primera")
> txt4=adoConn("segunda")
> end if
> if x=3 then
>

response.Write("<td>primera:"&adoConn("primera")&"</td>")

> response.Write("<td>segunda:"&adoConn("segunda")&
"</td>")
> txt5=adoConn("primera")
> txt6=adoConn("segunda")
> end if
> if x=4 then
>

response.Write("<td>primera:"&adoConn("primera")&"</td>")

> response.Write("<td>segunda:"&adoConn("segunda")&
"</td>")
> txt7=adoConn("primera")
> txt8=adoConn("segunda")
> end if
> if x=5 then
>

response.Write("<td>primera:"&adoConn("primera")&"</td>")

> response.Write("<td>segunda:"&adoConn("segunda")&
"</td>")
> txt9=adoConn("primera")
> txt10=adoConn("segunda")
> end if
> if x=6 then
>

response.Write("<td>primera:"&adoConn("primera")&"</td>")

> response.Write("<td>segunda:"&adoConn("segunda")&
"</td>")
> txt11=adoConn("primera")
> txt12=adoConn("segunda")
> end if
> if x=7 then
>

response.Write("<td>primera:"&adoConn("primera")&"</td>")

> response.Write("<td>segunda:"&adoConn("segunda")&
"</td>")
> txt13=adoConn("primera")
> txt14=adoConn("segunda")
> end if
> if x=8 then
>

response.Write("<td>primera:"&adoConn("primera")&"</td>")

> response.Write("<td>segunda:"&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>primera:Vacio:""</td>")
> response.Write("<td>segunda:Vacio:""</td>")
> end if
> if x=2 then
> txt3="vacio"
> txt4="vacio"
> response.Write("<td>primera:Vacio:""</td>")
> response.Write("<td>segunda:Vacio:""</td>")
> end if
> if x=3 then
> txt5="vacio"
> txt6="vacio"
> response.Write("<td>primera:Vacio:""</td>")
> response.Write("<td>segunda:Vacio:""</td>")
> end if
> if x=4 then
> txt7="vacio"
> txt8="vacio"
> response.Write("<td>primera:Vacio:""</td>")
> response.Write("<td>segunda:Vacio:""</td>")
> end if
> if x=5 then
> txt9="vacio"
> txt10="vacio"
> response.Write("<td>primera:Vacio:""</td>")
> response.Write("<td>segunda:Vacio:""</td>")
> end if
> if x=6 then
> txt11="vacio"
> txt12="vacio"
> response.Write("<td>primera:Vacio:""</td>")
> response.Write("<td>segunda:Vacio:""</td>")
> end if
> if x=7 then
> txt13="vacio"
> txt14="vacio"
> response.Write("<td>primera:Vacio:""</td>")
> response.Write("<td>segunda:Vacio:""</td>")
> end if
> if x=8 then
> txt15="vacio"
> txt16="vacio"
> response.Write("<td>primera:Vacio:""</td>")
> response.Write("<td>segunda:Vacio:""</td>")
> end if
> end if
> next
> %></table>
> 
> <%
> adoConn.movenext
> end if
> %>
>
>

Responder a este mensaje

#5 Ivan

18/05/2004 - 12:08 | Informe spam

El fallo del tiempo de espera esta en la conexion, le he quitado el on error
resume next, y me casca en la linea 21

dim rs
dim adoConn
set adoConn = Server.CreateObject("ADODB.Connection")

set rs = Server.CreateObject("ADODB.Recordset")

adoConn.Open "Provider2.168.1.100;3306;" & _ (linea 21)
"Data Source=etsedi;" & _
"User Id=root;" & _
"PasswordE43"
if rs.errors.count = 0 then
response.write "vivo"
else
response.write "ERROR"
end if

"Franco Figun" escribió en el mensaje
news:#ofX8$

El problema es que el query es muy largo, y tarda mas de 1000 ms, lo cual
hace que no se ejecuten las paginas asp; podes hacer 2 cosas: subir el
tiempo de espera en el IIS (nop recomendable), y 2, buscar en tu codigo

una

forma de hacerlo mas rapido, alomejor haciendo varios querys pequeños que
hagan el mismo resultado...
Saludos

FF
www.francofigun.com.ar
www.microsofties.com.ar
MSN:
UIN: 305336919
Yahoo MSN:
"Ivan" escribió en el mensaje
news:
> Hola a todos, no se mucho de asp y a al hora de conectarme con mi base

> 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
> %>
>
>
>
> <table width="75%" border="1"><%
> if scodigo <> 0 then
> for x=1 to 8
> scon=(num&x&"")
> adoConn.movefirst
> response.Write("<tr><td>numero:"&scon&"</td>")
> z=0
> do while not adoConn.eof
> numdos = eval(scon)
> if numdos = rsdiaz("codigo") then
> if x=1 then
>

response.Write("<td>primera:"&adoConn("primera")&"</td>")

> response.Write("<td>segunda:"&adoConn("segunda")&
"</td>")
> txt1=adoConn("primera")
> txt2=adoConn("segunda")
> end if
> if x=2 then
>

response.Write("<td>primera:"&adoConn("primera")&"</td>")

> response.Write("<td>segunda:"&adoConn("segunda")&
"</td>")
> txt3=adoConn("primera")
> txt4=adoConn("segunda")
> end if
> if x=3 then
>

response.Write("<td>primera:"&adoConn("primera")&"</td>")

> response.Write("<td>segunda:"&adoConn("segunda")&
"</td>")
> txt5=adoConn("primera")
> txt6=adoConn("segunda")
> end if
> if x=4 then
>

response.Write("<td>primera:"&adoConn("primera")&"</td>")

> response.Write("<td>segunda:"&adoConn("segunda")&
"</td>")
> txt7=adoConn("primera")
> txt8=adoConn("segunda")
> end if
> if x=5 then
>

response.Write("<td>primera:"&adoConn("primera")&"</td>")

> response.Write("<td>segunda:"&adoConn("segunda")&
"</td>")
> txt9=adoConn("primera")
> txt10=adoConn("segunda")
> end if
> if x=6 then
>

response.Write("<td>primera:"&adoConn("primera")&"</td>")

> response.Write("<td>segunda:"&adoConn("segunda")&
"</td>")
> txt11=adoConn("primera")
> txt12=adoConn("segunda")
> end if
> if x=7 then
>

response.Write("<td>primera:"&adoConn("primera")&"</td>")

> response.Write("<td>segunda:"&adoConn("segunda")&
"</td>")
> txt13=adoConn("primera")
> txt14=adoConn("segunda")
> end if
> if x=8 then
>

response.Write("<td>primera:"&adoConn("primera")&"</td>")

> response.Write("<td>segunda:"&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>primera:Vacio:""</td>")
> response.Write("<td>segunda:Vacio:""</td>")
> end if
> if x=2 then
> txt3="vacio"
> txt4="vacio"
> response.Write("<td>primera:Vacio:""</td>")
> response.Write("<td>segunda:Vacio:""</td>")
> end if
> if x=3 then
> txt5="vacio"
> txt6="vacio"
> response.Write("<td>primera:Vacio:""</td>")
> response.Write("<td>segunda:Vacio:""</td>")
> end if
> if x=4 then
> txt7="vacio"
> txt8="vacio"
> response.Write("<td>primera:Vacio:""</td>")
> response.Write("<td>segunda:Vacio:""</td>")
> end if
> if x=5 then
> txt9="vacio"
> txt10="vacio"
> response.Write("<td>primera:Vacio:""</td>")
> response.Write("<td>segunda:Vacio:""</td>")
> end if
> if x=6 then
> txt11="vacio"
> txt12="vacio"
> response.Write("<td>primera:Vacio:""</td>")
> response.Write("<td>segunda:Vacio:""</td>")
> end if
> if x=7 then
> txt13="vacio"
> txt14="vacio"
> response.Write("<td>primera:Vacio:""</td>")
> response.Write("<td>segunda:Vacio:""</td>")
> end if
> if x=8 then
> txt15="vacio"
> txt16="vacio"
> response.Write("<td>primera:Vacio:""</td>")
> response.Write("<td>segunda:Vacio:""</td>")
> end if
> end if
> next
> %></table>
> 
> <%
> adoConn.movenext
> end if
> %>
>
>

Responder a este mensaje

Ads by Google

Hacer una preguntaSiguiente

Tengo una respuesta

Busqueda sugerida