<% session("idtienda")="" fecha = Month(Date)&"/"&Year(Date) Session.LCID=1034 set conexion2=Server.CreateObject("ADODB.Connection") accessdb=server.mappath("lex.mdb") path = server.mappath("/") strconn="PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" strconn=strconn & accessDB & ";" conexion2.ConnectionString = strconn conexion2.open %>

<%set ban = server.CreateObject("adodb.recordset") ban.open "select * from banner where id=14",conexion2 if ban.fields("tipo") = 0 and flash > 0 then%> <%else%> <% Randomize N = (round(rnd * 5)) %> <% if N = 0 then%> <%else%> <%end if%> <%end if%>
<%set ban = server.CreateObject("adodb.recordset") ban.open "select * from banner where id=10",conexion2 if ban.fields("tipo") = 0 and flash > 0 then%> <%else%> <%end if%>		<%set ban = server.CreateObject("adodb.recordset") ban.open "select * from banner where id=20",conexion2 if ban.fields("tipo") = 0 and flash > 0 then%> <%else%> <%end if%>	<%set ban = server.CreateObject("adodb.recordset") ban.open "select * from banner where id=15",conexion2 if ban.fields("tipo") = 0 and flash > 0 then%> <%else%> ">" border="0"> <%end if%>