%@ Language=VBScript %>
<%
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("\bbdd\arco\arco.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open strconn
strsql1 = "SELECT * FROM ANOVA WHERE (((ANOVA.[IDNova])=" & request("nova") & "))"
set rs1 = server.createobject("adodb.recordset")
%>
<%
rs1.open strsql1, conn, 2, 2
if not rs1.eof then
rs1.movefirst
%>
Mancomunidade da Área Intermunicipal de Vigo. Prensa. Notas de Prensa
">
">
| <%= rs1("Titulo")%>
<%= rs1("Resumen")%><%= rs1("Texto")%>
| |
<%
end if
rs1.close
set rs1 = nothing
conn.close
set conn = nothing
%>
|