Danys Instrumentos

<% Dim intro2 intro2 = request("intro") if intro2 <> "si" then response.redirect "intro.html" %> Danys Instrumentos <% dim ancho ancho = 625 DSN = "Driver={Mysql}; Server=192.168.0.51;" &_ "Database=dagostinomp;" &_ "UID=dagostinomp;" &_ "PWD=8G3676Fc" set db = Server.CreateObject("ADODB.Recordset") query = "SELECT * FROM Novedades" db.open query,DSN,1 db.movefirst set dbc = Server.CreateObject("ADODB.Recordset") query2 = "SELECT * FROM Clinicas" dbc.open query2,DSN,1 dbc.movefirst set dbb = Server.CreateObject("ADODB.Recordset") query3 = "SELECT * FROM Bandas" dbb.open query3,DSN,1 dbb.movefirst set dbl = Server.CreateObject("ADODB.Recordset") query4 = "SELECT * FROM Luthier" dbl.open query4,DSN,1 dbl.movefirst set dbhome = Server.CreateObject("ADODB.Recordset") query5 = "SELECT * FROM main" dbhome.open query5,DSN,1 dbhome.movefirst if dbhome("cant") = 1 then ancho = ancho / 1 elseif dbhome("cant") = 2 then ancho = ancho / 2 elseif dbhome("cant") = 3 then ancho = ancho / 3 elseif dbhome("cant") = 4 then ancho = ancho / 4 end if %>

NOVEDADES	CLINICAS	BANDAS	LUTHIER
<%=db("titulo")%> <% db.movenext %> <%=db("titulo")%> <% db.movenext %> <%=db("titulo")%>	<%=dbc("titulo")%> <% dbc.movenext %> <%=dbc("titulo")%> <% dbc.movenext %> <%=dbc("titulo")%>	Info Fechas Lanzamientos	<%=dbl("titulo")%> <% dbl.movenext %> <%=dbl("titulo")%> <% dbl.movenext %> <%=dbl("titulo")%>

<% db.close dbl.close dbb.close dbc.close %>

v1.3