<%@LANGUAGE="VBSCRIPT"%>
<%
Dim cata
Dim cata_cmd
Dim cata_numRows
Set cata_cmd = Server.CreateObject ("ADODB.Command")
cata_cmd.ActiveConnection = MM_amhoteles_STRING
cata_cmd.CommandText = "SELECT * FROM cata"
cata_cmd.Prepared = true
Set cata = cata_cmd.Execute
cata_numRows = 0
%>
AM Hoteles
