Hola amigos:
Tengo 2 páginas web de asp. Cada una enlaza a una base de datos y las dos son identicas. Solo cambia que son bases distintas.
Quiero convertir estas 2 páginas en 1 (juntar los códigos), pero me da error.
Aquí os pongo los 2 códigos. A ver si alguién me ayuda y los junta.
Solo cambia la quinta línea en cada página. Son:
Server.MapPath("../../db/futbol7-1division1/futbol7-1division1.mdb") & ";"
Server.MapPath("../../db/futbol7-1division1/futbol7-2division2.mdb") & ";"
Muchas gracias.
"""""""""""""<%
Set db = Server.CreateObject("ADODB.Connection")
Dim DB_CONNECTIONSTRING
DB_CONNECTIONSTRING = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("../../db/futbol7-1division1/futbol7-1division1.mdb") & ";"
db.Open DB_CONNECTIONSTRING
set rsDatos = Server.CreateObject("ADODB.Recordset")
set rsActual = Server.CreateObject("ADODB.Recordset")
SQLDatos = "SELECT * FROM Datos"
SQLActual = "SELECT * FROM Portada"
rsDatos.Open SQLDatos,DB_CONNECTIONSTRING
rsActual.Open SQLActual,DB_CONNECTIONSTRING
%>
<html>
<body>
<p><%=(rsDatos.Fields.Item("Liga").Value)%>: Jornada <%=rsActual.Fields("JornadaA")%>: <%=rsActual.Fields("FechaA")%>
<% do while not rsActual.EOF %>
<% rsActual.movenext
loop %>
</p>
</body>
</html>
""""""""""""""""""""""""""""""""
""""""""""""""
<%
Set db = Server.CreateObject("ADODB.Connection")
Dim DB_CONNECTIONSTRING
DB_CONNECTIONSTRING = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.MapPath("../../db/futbol7-1division1/futbol7-2division2.mdb") & ";"
db.Open DB_CONNECTIONSTRING
set rsDatos = Server.CreateObject("ADODB.Recordset")
set rsActual = Server.CreateObject("ADODB.Recordset")
SQLDatos = "SELECT * FROM Datos"
SQLActual = "SELECT * FROM Portada"
rsDatos.Open SQLDatos,DB_CONNECTIONSTRING
rsActual.Open SQLActual,DB_CONNECTIONSTRING
%>
<html>
<body>
<p><%=(rsDatos.Fields.Item("Liga").Value)%>: Jornada <%=rsActual.Fields("JornadaA")%>: <%=rsActual.Fields("FechaA")%>
<% do while not rsActual.EOF %>
<% rsActual.movenext
loop %>
</p>
</body>
</html>
""""""""""""""""""""""