Ver Mensaje Individual
  #1 (permalink)  
Antiguo 31/07/2003, 21:35
reint
 
Fecha de Ingreso: mayo-2003
Ubicación: oruro-bolivia
Mensajes: 16
Antigüedad: 22 años
Puntos: 0
Pregunta ¡¡¡ayudaaaa!!! Mostrar Dos Tablas

Quiero que me ayuden con este problema estoy tratando de mostrar dos tablas noticias y eventos y los campos id, dichos campos deben ir del ultimo al primero es decir el ultimo sea el primero la cuestion es que no se manejar bien el sql mi script es el siguiente :
<html>
<head>
<title>pagina principal</title>
</head>
<body>
<%
'Abre la conexion con la base de datos a traves de una conexion ODBC
Set con = Server.CreateObject("ADODB.Connection")
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("top/data1.mdb")&";"

'Ejecuta un sentencia SQL de consulta
strsql = "SELECT " & strTablePrefix & "datos.id_noticia " & strTablePrefix & "eventos.id_code "
strsql = strsql " FROM " & strTablePrefix & "datos " & strTablePrefix & "eventos "
strsql = strsql " ORDER BY DESC " & strTablePrefix & "datos.id_noticia " & strTablePrefix & "eventos.id_code ASC;"
Set rs = con.Execute(strsql)

'Recorre todas las filas del resultado
Do While Not result.EOF
' Muestra la fila actual
Response.Write "<p><b><font face=Verdana size=1><a href=vernoti.asp?id_noticia=" &result.Fields("id_noticia") & ">"&result.Fields("titulo")&"</a></b><br><font color=""#696969"">• " &result.Fields("titular") & "</font></font></p>"
Response.Write "<p><b><font face=Verdana size=1><a href=vernoti.asp?code=" &result.Fields("code") & ">"&result.Fields("fecha")&"</a></b><br><font color=""#696969"">• " &result.Fields("evento") & "</font></font></p>"
'Pasa a la siguiente fila
result.MoveNext
Loop
'Libera memoria
result.Close
Set result = Nothing
con.Close
Set con = Nothing
%>
</body>
</html>
-------------------------------------------------------------------------------
Y MI ERROR ES EL SIGUIENTE:
--------------------------------------------------------------------------------
Información técnica (para personal de soporte técnico)

Tipo de error:
Error de compilación de Microsoft VBScript (0x800A0401)
Se esperaba un final de instrucción
/misitio/TMP5atfwpaz84.asp, línea 13, columna 16
strsql = strsql " FROM " & strTablePrefix & "datos " & strTablePrefix & "eventos "
---------------^


-------------------------------------------------------------------------------
Por favor alguien ayudeme ya no puedo mas con esto. gracias y adios