%@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)%> |
|
<%
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
%>