PREPARADOS PARA LA VIDA MODERNA

Principal    Mundo PC   VOIP   NDS   8 Bits Cine quinqui  Cine friki  Miscelanea    Frikiforo   Powerpoints   Frikivídeos   Frikiauto

<%Randomize var=(int(2*rnd+1))*10+1 %> <% set oConn=Server.CreateObject("ADODB.Connection") set rs=Server.CreateObject("ADODB.Recordset") oConn.Open= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("\FPDB\banners.mdb") %> <%SQL="SELECT * FROM Tabla1 where C4="&var&";" rs.Open SQL, oConn %> <%=rs.Fields("C3")%> <%rs.Close oConn.Close set rs=nothing set oConn=nothing%>

<%Randomize var=(int(2*rnd+1))*10+4 %> <% set oConn=Server.CreateObject("ADODB.Connection") set rs=Server.CreateObject("ADODB.Recordset") oConn.Open= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("\FPDB\banners.mdb") %> <%SQL="SELECT * FROM Tabla1 where C4="&var&";" rs.Open SQL, oConn %> <%=rs.Fields("C3")%> <%rs.Close oConn.Close set rs=nothing set oConn=nothing%>

<%Randomize var=(int(2*rnd+1))*10+4 %> <% set oConn=Server.CreateObject("ADODB.Connection") set rs=Server.CreateObject("ADODB.Recordset") oConn.Open= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("\FPDB\banners.mdb") %> <%SQL="SELECT * FROM Tabla1 where C4="&var&";" rs.Open SQL, oConn %> <%=rs.Fields("C3")%> <%rs.Close oConn.Close set rs=nothing set oConn=nothing%>

<%Randomize var=(int(2*rnd+1))*10+2 %> <% set oConn=Server.CreateObject("ADODB.Connection") set rs=Server.CreateObject("ADODB.Recordset") oConn.Open= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("\FPDB\banners.mdb") %> <%SQL="SELECT * FROM Tabla1 where C4="&var&";" rs.Open SQL, oConn %> <%=rs.Fields("C3")%> <%rs.Close oConn.Close set rs=nothing set oConn=nothing%>