<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Provider=SQLOLEDB; Data Source=db393740189.db.1and1.com; User Id=dbo393740189; Password=Madrid10;"
set rs=Server.CreateObject("ADODB.recordset")
set rs2=Server.CreateObject("ADODB.recordset")
portada 3
function portada(idseccion)
SQL="Select * from secciones where idpadre="&idseccion&" order by orden"
rs2.Open SQL, conn
if not rs2.eof then
response.write ""
end if
rs2.close
end function
%>
|