Ver Mensaje Individual
  #1 (permalink)  
Antiguo 23/02/2006, 22:24
crucifijo
 
Fecha de Ingreso: septiembre-2003
Mensajes: 182
Antigüedad: 21 años, 8 meses
Puntos: 1
Error al desplegarme el resultado de mi pagina

Hola fijense que ya anteriormente pude hacer que me desplegara mi consulta pero al ponerla en una tabla y querer que me desplieguen mis registros dentro de la tabla me manda el siguiente error:

Tipo de error:
Páginas Active Server, ASP 0113 (0x80004005)
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.
/members.asp


Tipo de explorador:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; .NET CLR 1.1.4322; .NET CLR 2.0.50727; .NET CLR 2.0.50215)

Les dejo mi codigo para ver si me pueden decir donde estoy mal se los agradezco gracias

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Members</title>
<!-- #include file="adovbs.inc" -->
<%
Set cnn1 = Server.CreateObject("ADODB.Connection")
openStr = "driver={Microsoft Access Driver (*.mdb)};" & _
"dbq=" & Server.MapPath("coinclub.mdb")
cnn1.Open openStr,"",""

sql = "SELECT * FROM members;"
Set rsMbrs = Server.CreateObject("ADODB.Recordset")
rsMbrs.Open sql,cnn1, adOpenFowardOnly, adLockReadOnly, adCmdText
%>
</head>

<body>
<table border ="1" cellspacing="0" cellpadding="3">
<caption><b>MEMBERS</b></caption>
<tr>
<th>memberid</th>
<th>fname</th>
<th>sname</th>
<th>positio</th>
<th>phone</th>
<th>email</th>
</tr>
<%
Do While Not rsMbrs.EOF
%>
<tr valign="TOP">
<td><%=Server.HTMLEncode(rsMbrs.Fields("memberid") .Value)%></td>
<td><%=Server.HTMLEncode(rsMbrs.Fields("fname").Va lue)%></td>
<td><%=Server.HTMLEncode(rsMbrs.Fields("sname").Va lue)%></td>
<td><%=Server.HTMLEncode(rsMbrs.Fields("position") .Value)%></td>
<td><%=Server.HTMLEncode(rsMbrs.Fields("phone").Va lue)%></td>
<td><%=Server.HTMLEncode(rsMbrs.Fields("email").Va lue)%></td>
</tr>
<%
rsMbrs.MoveFirst
Loop

rsMbrs.Close
Set rsMbrs = Nothing

cnn1.Close
Set cnn1 = Nothing
%>

</table>
</body>

</html>