
23/02/2006, 22:24
|
| | 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> |