Antes de mostrarles el codigo que por cierto lo generó todo la aplicación Dreamweaver mx. Creo que es pertinente que les comente que probe de nuevo el comando "Vista Live Data" y esta ves si ejecuto y desplego el juego de registro dentro de la tabla en la pagina ASP como estaba planificado, esto lo hizo en el mismo ambiente de DW. Pero luego ya no puedo ver la vista de codigo y se bloquea la vista de diseño no puedo acceder a la tabla por mas que desmarque "Vista Live Data". La unica manera de volverlos a ver es cerrando el arch. Y volverla abrir. Además si deseo ejecutar una
vista en el explorador (del archivo en el server) me responde con:
Please try the following:
• Haga clic en el botón Actualizar o inténtelo de nuevo más tarde.
• Abra la página principal de localhost y, a continuación, busque vínculos a la información que desea.
HTTP 500.100. Error interno del servidor: error de ASP
Servicios de Internet Information Server
Información técnica (para personal de soporte técnico)
• Tipo de error:
Páginas Active Server, ASP 0141 (0x80004005)
El comando @ sólo puede usarse una vez en la página Active Server.
/pruebabd/Connections/zonainbd.asp, line 28
• Tipo de explorador:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)
• Página:
GET /pruebabd/pruebpath.asp
• Hora:
martes, 26 de julio de 2005, 23:53:51
• Más información:
Soporte técnico de Microsoft
BUENO AQUÍ ESTA EL CODIGO DE LA PAGINA asp QUE CREA DREAMWEAVER MX
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/zonainbd.asp" -->
<%
Dim all_contac
Dim all_contac_numRows
Set all_contac = Server.CreateObject("ADODB.Recordset")
all_contac.ActiveConnection = MM_zonainbd_STRING
all_contac.Source = "SELECT * FROM zonabd.contactos ORDER BY nombre ASC"
all_contac.CursorType = 0
all_contac.CursorLocation = 2
all_contac.LockType = 2
all_contac.Open()
all_contac_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 10
Repeat1__index = 0
all_contac_numRows = all_contac_numRows + Repeat1__numRows
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
Dim all_contac_total
Dim all_contac_first
Dim all_contac_last
' set the record count
all_contac_total = all_contac.RecordCount
' set the number of rows displayed on this page
If (all_contac_numRows < 0) Then
all_contac_numRows = all_contac_total
Elseif (all_contac_numRows = 0) Then
all_contac_numRows = 1
End If
' set the first and last displayed record
all_contac_first = 1
all_contac_last = all_contac_first + all_contac_numRows - 1
' if we have the correct record count, check the other stats
If (all_contac_total <> -1) Then
If (all_contac_first > all_contac_total) Then
all_contac_first = all_contac_total
End If
If (all_contac_last > all_contac_total) Then
all_contac_last = all_contac_total
End If
If (all_contac_numRows > all_contac_total) Then
all_contac_numRows = all_contac_total
End If
End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them
If (all_contac_total = -1) Then
' count the total records by iterating through the recordset
all_contac_total=0
While (Not all_contac.EOF)
all_contac_total = all_contac_total + 1
all_contac.MoveNext
Wend
' reset the cursor to the beginning
If (all_contac.CursorType > 0) Then
all_contac.MoveFirst
Else
all_contac.Requery
End If
' set the number of rows displayed on this page
If (all_contac_numRows < 0 Or all_contac_numRows > all_contac_total) Then
all_contac_numRows = all_contac_total
End If
' set the first and last displayed record
all_contac_first = 1
all_contac_last = all_contac_first + all_contac_numRows - 1
If (all_contac_first > all_contac_total) Then
all_contac_first = all_contac_total
End If
If (all_contac_last > all_contac_total) Then
all_contac_last = all_contac_total
End If
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Documento sin título</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<table width="90%" border="1" cellspacing="2" cellpadding="2">
<tr>
<th scope="col">indice</th>
<th scope="col">Nombre</th>
<th scope="col">Procedencia</th>
<th scope="col">Correos</th>
<th scope="col">Telefonos</th>
<th scope="col">Productos</th>
<th scope="col">Direccion</th>
<th scope="col">Fech_contac</th>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT all_contac.EOF))
%>
<tr>
<td><%=(all_contac_first)%></td>
<td><%=(all_contac.Fields.Item("nombre").Value)% ></td>
<td><%=(all_contac.Fields.Item("procede").Value)%> </td>
<td><%=(all_contac.Fields.Item("correos").Value)%> </td>
<td><%=(all_contac.Fields.Item("telefonos").Value) %></td>
<td><%=(all_contac.Fields.Item("producto").Value)% ></td>
<td><%=(all_contac.Fields.Item("direc").Value)%> </td>
<td><%=(all_contac.Fields.Item("fech_contac").Valu e)%></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
all_contac.MoveNext()
Wend
%>
</table>
</body>
</html>
<%
all_contac.Close()
Set all_contac = Nothing
%>