<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim Ariete__MMColParam Ariete__MMColParam = "1" If (Request("MM_EmptyValue") <> "") Then Ariete__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Ariete Dim Ariete_numRows Set Ariete = Server.CreateObject("ADODB.Recordset") Ariete.ActiveConnection = MM_pgCN_STRING Ariete.Source = "SELECT * FROM Oroscopo WHERE ID = " + Replace(Ariete__MMColParam, "'", "''") + "" Ariete.CursorType = 0 Ariete.CursorLocation = 2 Ariete.LockType = 1 Ariete.Open() Ariete_numRows = 0 %> <% Dim Toro__MMColParam Toro__MMColParam = "2" If (Request("MM_EmptyValue") <> "") Then Toro__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Toro Dim Toro_numRows Set Toro = Server.CreateObject("ADODB.Recordset") Toro.ActiveConnection = MM_pgCN_STRING Toro.Source = "SELECT * FROM Oroscopo WHERE ID = " + Replace(Toro__MMColParam, "'", "''") + "" Toro.CursorType = 0 Toro.CursorLocation = 2 Toro.LockType = 1 Toro.Open() Toro_numRows = 0 %> <% Dim Gemelli__MMColParam Gemelli__MMColParam = "3" If (Request("MM_EmptyValue") <> "") Then Gemelli__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Gemelli Dim Gemelli_numRows Set Gemelli = Server.CreateObject("ADODB.Recordset") Gemelli.ActiveConnection = MM_pgCN_STRING Gemelli.Source = "SELECT * FROM Oroscopo WHERE ID = " + Replace(Gemelli__MMColParam, "'", "''") + "" Gemelli.CursorType = 0 Gemelli.CursorLocation = 2 Gemelli.LockType = 1 Gemelli.Open() Gemelli_numRows = 0 %> <% Dim Cancro__MMColParam Cancro__MMColParam = "4" If (Request("MM_EmptyValue") <> "") Then Cancro__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Cancro Dim Cancro_numRows Set Cancro = Server.CreateObject("ADODB.Recordset") Cancro.ActiveConnection = MM_pgCN_STRING Cancro.Source = "SELECT * FROM Oroscopo WHERE ID = " + Replace(Cancro__MMColParam, "'", "''") + "" Cancro.CursorType = 0 Cancro.CursorLocation = 2 Cancro.LockType = 1 Cancro.Open() Cancro_numRows = 0 %> <% Dim Bilancia__MMColParam Bilancia__MMColParam = "7" If (Request("MM_EmptyValue") <> "") Then Bilancia__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Bilancia Dim Bilancia_numRows Set Bilancia = Server.CreateObject("ADODB.Recordset") Bilancia.ActiveConnection = MM_pgCN_STRING Bilancia.Source = "SELECT * FROM Oroscopo WHERE ID = " + Replace(Bilancia__MMColParam, "'", "''") + "" Bilancia.CursorType = 0 Bilancia.CursorLocation = 2 Bilancia.LockType = 1 Bilancia.Open() Bilancia_numRows = 0 %> <% Dim Capricorno__MMColParam Capricorno__MMColParam = "10" If (Request("MM_EmptyValue") <> "") Then Capricorno__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Capricorno Dim Capricorno_numRows Set Capricorno = Server.CreateObject("ADODB.Recordset") Capricorno.ActiveConnection = MM_pgCN_STRING Capricorno.Source = "SELECT * FROM Oroscopo WHERE ID = " + Replace(Capricorno__MMColParam, "'", "''") + "" Capricorno.CursorType = 0 Capricorno.CursorLocation = 2 Capricorno.LockType = 1 Capricorno.Open() Capricorno_numRows = 0 %> <% Dim Leone__MMColParam Leone__MMColParam = "5" If (Request("MM_EmptyValue") <> "") Then Leone__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Leone Dim Leone_numRows Set Leone = Server.CreateObject("ADODB.Recordset") Leone.ActiveConnection = MM_pgCN_STRING Leone.Source = "SELECT * FROM Oroscopo WHERE ID = " + Replace(Leone__MMColParam, "'", "''") + "" Leone.CursorType = 0 Leone.CursorLocation = 2 Leone.LockType = 1 Leone.Open() Leone_numRows = 0 %> <% Dim Scorpione__MMColParam Scorpione__MMColParam = "8" If (Request("MM_EmptyValue") <> "") Then Scorpione__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Scorpione Dim Scorpione_numRows Set Scorpione = Server.CreateObject("ADODB.Recordset") Scorpione.ActiveConnection = MM_pgCN_STRING Scorpione.Source = "SELECT * FROM Oroscopo WHERE ID = " + Replace(Scorpione__MMColParam, "'", "''") + "" Scorpione.CursorType = 0 Scorpione.CursorLocation = 2 Scorpione.LockType = 1 Scorpione.Open() Scorpione_numRows = 0 %> <% Dim Acquario__MMColParam Acquario__MMColParam = "11" If (Request("MM_EmptyValue") <> "") Then Acquario__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Acquario Dim Acquario_numRows Set Acquario = Server.CreateObject("ADODB.Recordset") Acquario.ActiveConnection = MM_pgCN_STRING Acquario.Source = "SELECT * FROM Oroscopo WHERE ID = " + Replace(Acquario__MMColParam, "'", "''") + "" Acquario.CursorType = 0 Acquario.CursorLocation = 2 Acquario.LockType = 1 Acquario.Open() Acquario_numRows = 0 %> <% Dim Vergine__MMColParam Vergine__MMColParam = "6" If (Request("MM_EmptyValue") <> "") Then Vergine__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Vergine Dim Vergine_numRows Set Vergine = Server.CreateObject("ADODB.Recordset") Vergine.ActiveConnection = MM_pgCN_STRING Vergine.Source = "SELECT * FROM Oroscopo WHERE ID = " + Replace(Vergine__MMColParam, "'", "''") + "" Vergine.CursorType = 0 Vergine.CursorLocation = 2 Vergine.LockType = 1 Vergine.Open() Vergine_numRows = 0 %> <% Dim Sagittario__MMColParam Sagittario__MMColParam = "9" If (Request("MM_EmptyValue") <> "") Then Sagittario__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Sagittario Dim Sagittario_numRows Set Sagittario = Server.CreateObject("ADODB.Recordset") Sagittario.ActiveConnection = MM_pgCN_STRING Sagittario.Source = "SELECT * FROM Oroscopo WHERE ID = " + Replace(Sagittario__MMColParam, "'", "''") + "" Sagittario.CursorType = 0 Sagittario.CursorLocation = 2 Sagittario.LockType = 1 Sagittario.Open() Sagittario_numRows = 0 %> <% Dim Pesci__MMColParam Pesci__MMColParam = "12" If (Request("MM_EmptyValue") <> "") Then Pesci__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Pesci Dim Pesci_numRows Set Pesci = Server.CreateObject("ADODB.Recordset") Pesci.ActiveConnection = MM_pgCN_STRING Pesci.Source = "SELECT * FROM Oroscopo WHERE ID = " + Replace(Pesci__MMColParam, "'", "''") + "" Pesci.CursorType = 0 Pesci.CursorLocation = 2 Pesci.LockType = 1 Pesci.Open() Pesci_numRows = 0 %> <% Dim Framacie01__MMColParam Framacie01__MMColParam = "2" If (Request("MM_EmptyValue") <> "") Then Framacie01__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Framacie01 Dim Framacie01_numRows Set Framacie01 = Server.CreateObject("ADODB.Recordset") Framacie01.ActiveConnection = MM_pgCN_STRING Framacie01.Source = "SELECT * FROM Servizi WHERE ID = " + Replace(Framacie01__MMColParam, "'", "''") + "" Framacie01.CursorType = 0 Framacie01.CursorLocation = 2 Framacie01.LockType = 1 Framacie01.Open() Framacie01_numRows = 0 %> <% Dim Framacie02__MMColParam Framacie02__MMColParam = "3" If (Request("MM_EmptyValue") <> "") Then Framacie02__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Framacie02 Dim Framacie02_numRows Set Framacie02 = Server.CreateObject("ADODB.Recordset") Framacie02.ActiveConnection = MM_pgCN_STRING Framacie02.Source = "SELECT * FROM Servizi WHERE ID = " + Replace(Framacie02__MMColParam, "'", "''") + "" Framacie02.CursorType = 0 Framacie02.CursorLocation = 2 Framacie02.LockType = 1 Framacie02.Open() Framacie02_numRows = 0 %> <% Dim Framacie03__MMColParam Framacie03__MMColParam = "4" If (Request("MM_EmptyValue") <> "") Then Framacie03__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Framacie03 Dim Framacie03_numRows Set Framacie03 = Server.CreateObject("ADODB.Recordset") Framacie03.ActiveConnection = MM_pgCN_STRING Framacie03.Source = "SELECT * FROM Servizi WHERE ID = " + Replace(Framacie03__MMColParam, "'", "''") + "" Framacie03.CursorType = 0 Framacie03.CursorLocation = 2 Framacie03.LockType = 1 Framacie03.Open() Framacie03_numRows = 0 %> <% Dim Veterniario1__MMColParam Veterniario1__MMColParam = "7" If (Request("MM_EmptyValue") <> "") Then Veterniario1__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Veterniario1 Dim Veterniario1_numRows Set Veterniario1 = Server.CreateObject("ADODB.Recordset") Veterniario1.ActiveConnection = MM_pgCN_STRING Veterniario1.Source = "SELECT * FROM Servizi WHERE ID = " + Replace(Veterniario1__MMColParam, "'", "''") + "" Veterniario1.CursorType = 0 Veterniario1.CursorLocation = 2 Veterniario1.LockType = 1 Veterniario1.Open() Veterniario1_numRows = 0 %> <% Dim Veterniario2__MMColParam Veterniario2__MMColParam = "8" If (Request("MM_EmptyValue") <> "") Then Veterniario2__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Veterniario2 Dim Veterniario2_numRows Set Veterniario2 = Server.CreateObject("ADODB.Recordset") Veterniario2.ActiveConnection = MM_pgCN_STRING Veterniario2.Source = "SELECT * FROM Servizi WHERE ID = " + Replace(Veterniario2__MMColParam, "'", "''") + "" Veterniario2.CursorType = 0 Veterniario2.CursorLocation = 2 Veterniario2.LockType = 1 Veterniario2.Open() Veterniario2_numRows = 0 %> <% Dim Distributori__MMColParam Distributori__MMColParam = "9" If (Request("MM_EmptyValue") <> "") Then Distributori__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Distributori Dim Distributori_numRows Set Distributori = Server.CreateObject("ADODB.Recordset") Distributori.ActiveConnection = MM_pgCN_STRING Distributori.Source = "SELECT * FROM Servizi WHERE ID = " + Replace(Distributori__MMColParam, "'", "''") + "" Distributori.CursorType = 0 Distributori.CursorLocation = 2 Distributori.LockType = 1 Distributori.Open() Distributori_numRows = 0 %> SERVIZI
Farmacie di turno  
ll servizio di guardia farmaceutica
verrà espletato a battenti chiusi
solo su presentazione di ricetta
medica urgente. Il lunedì la farmacia
di appoggio è aperta in orario
normale (8,30 - 12,30/ 15 - 19,30).
Nell’elenco, la seconda farmacia
indicata è quella di appoggio.

<%=(Framacie01.Fields.Item("servizio").Value)%>

<%=(Framacie02.Fields.Item("servizio").Value)%>

<%=(Framacie03.Fields.Item("servizio").Value)%>


Guardia medica
Croce Rossa
Servizio Veterinario
(dalle ore 10 del sabato mattina)
DISTRETTO DI MondovÌ,
Villanova, San Michele
tel. 0174/ 554629
Distretto di CarrÙ-Dogliani
tel. 0173/ 75250
Distretto di ceva
tel. 0174/ 723903
ambulanze-ospedale - tel. 7231
Distretto di
Monesiglio-SALICETO
tel. 0174/ 92400
Distretto di
Garessio-ORMEA
tel. 0174/391110
Numeri utili
Servizio di emergenza territoriale
“118” per tutte le Asl
Centro Unificato di prenotazione: tel. 0174/ 723700 dalle 8 alle 13 e dalle 14 alle 17 dal lunedì al giovedì; venerdì dalle 8 alle 14
Orario ufficio cassa del Distretto di via Fossano dal lunedì al venerdì dalle 7,30 alle 13; dal lunedì al giovedì dalle 14,15 alle 16,30.
Usl 15 per i Comuni di Chiusa Pesio, Peveragno, Beinette, Margarita e Morozzo centro unico di chiamata - tel. 0171/269632-260013.
Usl 17 per i Comuni di Fossano, Benevagienna, S. Albano, Trinità, Ospedale di Fossano
tel. 0172/699265.
 
MondovÌ
tel. 0174/552255
Niella Tanaro
tel. 0174/226356
San Michele
tel. 0174/222500
Peveragno
tel. 0171/339555
Morozzo
tel. 0171/772555
CEVA (Croce Bianca)
tel. 0174/701566
Garessio (Croce Bianca)
tel. 0174/803084
Ormea (Croce Bianca)
tel. 0174/393090
Monesiglio
tel. 0174/ 900900-900006
fax 0174/ 900007
Dogliani
tel. 0173/70110
CarrÙ
tel. 0173/750880
Farigliano
tel. 0173/76210

Pronta disponibilità
veterinaria pubblica


Reperibilità veterinari
libero professionale

<%=(Veterniario1.Fields.Item("servizio").Value)%>

<%=(Veterniario2.Fields.Item("servizio").Value)%>

Distributori:

<%=(Distributori.Fields.Item("servizio").Value)%>

L'oroscopo della settimana a cura di Corinne
<%=(Ariete.Fields.Item("previsione").Value)%> <%=(Cancro.Fields.Item("previsione").Value)%> <%=(Bilancia.Fields.Item("previsione").Value)%> <%=(Capricorno.Fields.Item("previsione").Value)%>
<%=(Toro.Fields.Item("previsione").Value)%> <%=(Leone.Fields.Item("previsione").Value)%> <%=(Scorpione.Fields.Item("previsione").Value)%> <%=(Acquario.Fields.Item("previsione").Value)%>
<%=(Gemelli.Fields.Item("previsione").Value)%>
<%=(Vergine.Fields.Item("previsione").Value)%>
<%=(Sagittario.Fields.Item("previsione").Value)%> <%=(Pesci.Fields.Item("previsione").Value)%>


<% Ariete.Close() Set Ariete = Nothing %> <% Toro.Close() Set Toro = Nothing %> <% Gemelli.Close() Set Gemelli = Nothing %> <% Cancro.Close() Set Cancro = Nothing %> <% Bilancia.Close() Set Bilancia = Nothing %> <% Capricorno.Close() Set Capricorno = Nothing %> <% Leone.Close() Set Leone = Nothing %> <% Scorpione.Close() Set Scorpione = Nothing %> <% Acquario.Close() Set Acquario = Nothing %> <% Vergine.Close() Set Vergine = Nothing %> <% Sagittario.Close() Set Sagittario = Nothing %> <% Pesci.Close() Set Pesci = Nothing %> <% Framacie01.Close() Set Framacie01 = Nothing %> <% Framacie02.Close() Set Framacie02 = Nothing %> <% Framacie03.Close() Set Framacie03 = Nothing %> <% Veterniario1.Close() Set Veterniario1 = Nothing %> <% Veterniario2.Close() Set Veterniario2 = Nothing %> <% Distributori.Close() Set Distributori = Nothing %>