::: Hotel Coquille ::: Ubatuba ::: SP ::: Brasil

<%@LANGUAGE="VBSCRIPT"%> <% Dim rsHotel__MMColParam rsHotel__MMColParam = "1" if (Request("MM_EmptyValue") <> "") then rsHotel__MMColParam = Request("MM_EmptyValue") %> <% set rsHotel = Server.CreateObject("ADODB.Recordset") rsHotel.ActiveConnection = MM_coquille_STRING rsHotel.Source = "SELECT * FROM Products WHERE CategoryID = " + Replace(rsHotel__MMColParam, "'", "''") + "" rsHotel.CursorType = 0 rsHotel.CursorLocation = 2 rsHotel.LockType = 3 rsHotel.Open() rsHotel_numRows = 0 %> <% set rsDados = Server.CreateObject("ADODB.Recordset") rsDados.ActiveConnection = MM_coquille_STRING rsDados.Source = "SELECT * FROM dados" rsDados.CursorType = 0 rsDados.CursorLocation = 2 rsDados.LockType = 3 rsDados.Open() rsDados_numRows = 0 %> ::: Hotel Coquille ::: Ubatuba ::: SP ::: Brasil

Registro

SP.20.03.452.446.0001/45

<% rsHotel.Close() Set rsHotel = Nothing %> <% rsDados.Close() Set rsDados = Nothing %>