15/05/2003, 18:24
|
 | | | Fecha de Ingreso: diciembre-2001
Mensajes: 449
Antigüedad: 23 años, 5 meses Puntos: 2 | |
| no se pudo sale este mensage
Tipo de error:
Error de compilación de Microsoft VBScript (0x800A0401)
Se esperaba un final de instrucción
/cat/list/index.asp, línea 34, columna 267
response.write "<tr><td width='50' bgcolor='"&color&"'><font face='Arial' size='2'>"&result("id")&"</font></td><td width='100' bgcolor='"&color&"'><font face='Arial' size='2'>"&result("nombre")&"</font></td><td width='100' bgcolor='"&color&"'<font face='Arial' size="2" >"&result("apellido")&"</font></td></tr>"
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------^
quisa sea un error en la conexion de la base de datos porque cuando le quito un parentesis al dns me sale otrop error
por eso creo quem es algo de la conexion que cren ustedess
Tipo de error:
Error de compilación de Microsoft VBScript (0x800A0401)
Se esperaba un final de instrucción
/cat/list/index.asp, línea 14, columna 73
Con.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath"Personas.mdb"
------------------------------------------------------------------------^
que sera?
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Pagina nueva 1</title>
</head>
<body>
<%
'Abre la conexión con la base de datos a través de una conexión ODBC
Set Con = Server.CreateObject("ADODB.Connection")
// aqui--->
Con.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath"Personas.mdb"
'Ejecuta un sentencia SQL de consulta
sql = "SELECT * FROM Personas ORDER BY id"
Set result = con.Execute(sql)
'Recorre todas las filas del resultado
Do While Not result.EOF
if colorfila = 0 then
color= "#DEDEBE"
colorfila=1
else
color="#F0F0F0"
colorfila=0
end if
'Imprimimos el registro con el bgcolor
response.write "<tr><td width='50' bgcolor='"&color&"'><font face='Arial' size='2'>"&result("id")&"</font></td><td width='100' bgcolor='"&color&"'><font face='Arial' size='2'>"&result("nombre")&"</font></td><td width='100' bgcolor='"&color&"'<font face='Arial' size="2">"&result("apellido")&"</font></td></tr>"
'Pasa a la siguiente fila
result.MoveNext
Loop
'Cerramos las conexiones y el recordset
result.Close
Set result = Nothing
con.Close
Set con = Nothing
%>
</body>
</html> |