Andorra Principat

<%@LANGUAGE="VBSCRIPT"%> <% set parroquia = Server.CreateObject("ADODB.Recordset") parroquia.ActiveConnection = MM_andorraprincipat_STRING parroquia.Source = "SELECT * FROM Parroquies WHERE ID = " & Request.Querystring("Parroquia") & ";" parroquia.CursorType = 0 parroquia.CursorLocation = 2 parroquia.LockType = 3 parroquia.Open() parroquia_numRows = 0 %> <% Const adOpenStatic = 3 Const adCmdText = &H0001 Const adUseClient = 3 set hotels = Server.CreateObject("ADODB.Recordset") hotels.ActiveConnection = MM_andorraprincipat_STRING strSQL = "SELECT * FROM Hotels WHERE ID = " & Request.Querystring("Parroquia") & " ORDER BY Prioritat DESC, Estels DESC, Hotel ASC;" hotels.Open strSQL, ,adOpenStatic , , adCmdText If NOT hotels.EOF AND NOT hotels.BOF Then intNumRecs = hotels.RecordCount end if %> Andorra Principat

Per visitar >> Parròquies >> <%=(parroquia.Fields.Item("Parroquia").Value)%> >> On dormir

" width="119" height="103" alt="<%=(parroquia.Fields.Item("Parroquia").Value)%>">

<%=UCASE(parroquia.Fields.Item("Parroquia").Value)%> - ON DORMIR
<%=(parroquia.Fields.Item("Text_parroquia").Value)%>

<% If hotels.EOF And hotels.BOF Then %> <% else If NOT hotels.EOF AND NOT hotels.BOF Then %>

	No hem trobat cap hotel a la base de dades.	S'han trobat <%=(intNumRecs)%> coincidències
	Hotels

<% Do While Not hotels.EOF %>

> <%=(hotels.Fields.Item("Hotel").Value)%> <% if (hotels.Fields.Item("Estels").Value) = 5 then %><% else if (hotels.Fields.Item("Estels").Value) = 4 then %><% else if (hotels.Fields.Item("Estels").Value) = 3 then %><% else if (hotels.Fields.Item("Estels").Value) = 2 then %><% else if (hotels.Fields.Item("Estels").Value) = 1 then %><% else if (hotels.Fields.Item("Estels").Value) = 0 then %> <% end if %><% end if %><% end if %><% end if %><% end if %><% end if %>
   <%=(parroquia.Fields.Item("Parroquia").Value)%>
   <% if (hotels.Fields.Item("Adressa").Value) <> "" then %><%=(hotels.Fields.Item("Adressa").Value)%><% end if %>
   <% if (hotels.Fields.Item("Telefon").Value) <> "" then %>Tel: <%=(hotels.Fields.Item("Telefon").Value)%><% end if %><% if (hotels.Fields.Item("Fax").Value) <> "" then %> - Fax: <%=(hotels.Fields.Item("Fax").Value)%><% end if %>
<% if (hotels.Fields.Item("Web").Value) <> "" then %>   " target="_blank"><%=(hotels.Fields.Item("Web").Value)%>
<% end if %> <% if (hotels.Fields.Item("Email").Value) <> "" then %>   "><%=(hotels.Fields.Item("Email").Value)%>
<% end if %>

<% hotels.MoveNext Loop %> <% end if %> <% end if %>

ESCUT

   > BREU RESUM
   > ROMÀNIC
   > OCI I CULTURA
   > ESPORTS
   > ACTIVITATS
   > DATES D'ACTES          IMPORTANTS
   > PER VISITAR
   > AGENDA
   > COMPOSICIÓ POLÍTICA
   > TOPONOMÍA
   > DADES D'INTERÉS
   > ON MENJAR
   > ON DORMIR
   > COMERÇ