<%
TEMA=request.QueryString("TMA")
select case TEMA
case "hotel"
temita="hoteles"
cadena0 = "hotel_peru.asp?ID="
imaga="img/hotel_peru.gif"
case "rest"
temita="restaurantes"
cadena0 = "restaurant_peru.asp?ID="
imaga="img/restaurante_peru.gif"
case "atrac"
temita="atractivos"
cadena0 = "atractivo_peru.asp?ID="
imaga="img/atractivo_peru.gif"
case "calen"
temita="calendario"
cadena0 = "calendario_peru.asp?ID="
imaga="img/calendario_peru.gif"
case "tours"
temita="paquetes"
cadena0 = "tours_peru.asp?ID="
imaga="img/tours_peru.gif"
case "prom"
temita="promociones"
cadena0 = "promocion_peru.asp?ID="
imaga="img/promo_peru.gif"
case "clima"
case "vuelo"
case else
end select
HOJA0=request.QueryString("ID")
'--------------------------SECCION DE CONEXION DE BD A BASE CLIENTE--------
strclienteDBPath = "Db/" & "cms.mdb"
Set objConncliente = Server.CreateObject("ADODB.Connection")
objConncliente.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source = " & Server.MapPath(strclienteDBPath) & ";" & _
"User Id=Admin;" & _
"Password="
'fin conexion a cliente
'inicia base y retorna la data de listas
'-------------------------fin de CONEXION BD -----------------------------
'---------------------------- Seccion de rs---------------------------
Set rsAdminss = Server.CreateObject("ADODB.Recordset")
strSQLcliente = "SELECT ID,Nombre,Breve FROM " & temita & " WHERE PAIS ='PERU' ORDER BY ID"
rsAdminss.Open strSQLcliente, objConncliente, adOpenForwardOnly, adLockOptimistic, adCmdText
'------------------------------Fin de seccion de RS-----------------------------------------------
%>