<%
Dim Resultados
Set Resultados = Server.CreateObject("ADODB.Recordset")
Resultados.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("panel_de_control/nova.mdb") & ";"
Dim SQL
SQL="SELECT * FROM galerias where tipo='eventos' order by orden"
'response.write SQL & " "
Resultados.Source = SQL
Resultados.Open()
Dim contador
contador=0
%>
<%
While Not resultados.eof
contador=contador+1
%>
<%if contador=1 then%>