%
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
%>