<%
response.buffer = true
'get ID
ID = request.querystring("ID")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "FMW"
tID = ID
sSQL="SELECT * FROM [C_articulos] WHERE [id_no]=" &tID
'Ejecutamos la orden
set RS = Conn.Execute(sSQL)
'Mostramos los registros%>
Facility Magazine - Artículos
<%
Do While Not RS.Eof
%>
<%=rs("titulo")%>
por <%=rs("autor")%>
FM <%=rs("numero")%> | <%=rs("tema")%>
<%
RS.MoveNext
Loop
'Cerramos el sistema de conexion
Conn.Close
%>
