<%@LANGUAGE="VBSCRIPT"%> <% Session.LCID = 1040 %> <% dim ConvertDate2American ConvertDate2American = Month(date)&"/"&Day(date)&"/"&Year(date) %> <% Dim Rs_news Dim Rs_news_cmd Dim Rs_news_numRows Set Rs_news_cmd = Server.CreateObject ("ADODB.Command") Rs_news_cmd.ActiveConnection = MM_conn_marcia_STRING Rs_news_cmd.CommandText = "SELECT * FROM news ORDER BY data DESC" Rs_news_cmd.Prepared = true Set Rs_news = Rs_news_cmd.Execute Rs_news_numRows = 0 %> <% Dim Rs_gallery Dim Rs_gallery_cmd Dim Rs_gallery_numRows Set Rs_gallery_cmd = Server.CreateObject ("ADODB.Command") Rs_gallery_cmd.ActiveConnection = MM_conn_marcia_STRING Rs_gallery_cmd.CommandText = "SELECT * FROM gallery ORDER BY id DESC" Rs_gallery_cmd.Prepared = true Set Rs_gallery = Rs_gallery_cmd.Execute Rs_gallery_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 5 Repeat1__index = 0 Rs_news_numRows = Rs_news_numRows + Repeat1__numRows %> <% Dim HLooper1__numRows HLooper1__numRows = 9 Dim HLooper1__index HLooper1__index = 0 Rs_gallery_numRows = Rs_gallery_numRows + HLooper1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 3 Repeat2__index = 0 Rs_appuntamenti_numRows = Rs_appuntamenti_numRows + Repeat2__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> <% Dim MM_editAction MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit Dim MM_abortEdit MM_abortEdit = false %> <% ' IIf implementation Function MM_IIf(condition, ifTrue, ifFalse) If condition = "" Then MM_IIf = ifFalse Else MM_IIf = ifTrue End If End Function %> <% If (CStr(Request("MM_insert")) = "form2") Then If (Not MM_abortEdit) Then ' execute the insert Dim MM_editCmd Set MM_editCmd = Server.CreateObject ("ADODB.Command") MM_editCmd.ActiveConnection = MM_conn_marcia_STRING MM_editCmd.CommandText = "INSERT INTO mailing (nome, mail, privacy) VALUES (?, ?, ?)" MM_editCmd.Prepared = true MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 250, Request.Form("nome")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 250, Request.Form("mail")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 1, MM_IIF(Request.Form("privacy"), "Y", "N")) ' adVarWChar session("user_ml") = request.form("nome") session("mail_ml") = request.form("mail") MM_editCmd.Execute MM_editCmd.ActiveConnection.Close ' append the query string to the redirect URL Dim MM_editRedirectUrl MM_editRedirectUrl = "conferma_reg_mailing.asp" If (Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If Response.Redirect(MM_editRedirectUrl) End If End If %> Centro Preparazione di alta pres

A.s.d. Scuola del Cammino
● Storia
Centro Preparazione di alta prestazione per la Marcia
● Presentazione
● Storia
● Gli atleti
 Corsi
● I Corsi
● Organizzazione dei corsi
 Eventi
● Fitwalking del Cuore
● Fitwalking Sulle Strade dei Campioni
 
 Contatti
 

<% While ((Repeat1__numRows <> 0) AND (NOT Rs_news.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Rs_news.MoveNext() Wend %>
WalkIn - Centri di Cammino Terapia

Walk-in Centri di Cammino Terapia rappresentano un progetto in avanzato stato di definizione che la Scuola del Cammino sta contribuendo a realizzare. L’idea nasce dal sempre più evidente beneficio salutistico derivante dall’Esercizio Fisico, e dal camminare a passo svelto in modo particolare, che la letteratura scientifica sottolinea con forza. 

Partendo da tale presupposto, considerati i diversi progetti ministeriali inerenti proprio l’attività fisica quale elemento qualificante della qualità di salute dei cittadini e lavorando sul mondo del cammino, focus dell’attenzione sportivo-motoria della Scuola del Cammino che si esplicita al meglio nel fitwalking attività motoria con finalità sportive e disciplina che si identifica direttamente con il cammino a passo svelto attività ideale di riferimento in ambito salutistico consigliata anche dalla letteratura scientifica, si è sviluppata l’idea che proprio questa attività possa rappresentare una vera e propria forma terapeutica. Per raggiungere i benefici salutistici ad ognuna delle persone che, per necessità o per convinta idea e via di prevenzione, si avvicinino a questa proposta è richiesto poco: modificare in direzione di una maggiore attività fisica il proprio stile di vita.

Il progetto si sta modellando attraverso alcune iniziative pilota. La prima fa capo direttamente alla Scuola del Cammino e coinvolge il mondo della diabetologia. Si tratta di uno dei settori e delle patologie che maggiormente trovano giovamento terapeutico dall’attività. Sappiamo però che non solo la sindrome metabolica per eccellenza, il diabete, entra nella sfera dei vantaggi acquisibili con il cammino, ma altre patologie come le malattie cardio-circolatorie e respiratorie, con tutti fattori di rischio che le caratterizzano, alcuni tipi di cancro, la depressione, l’obesità, l’osteoporosi etc… sono da annoverarsi tra queste. Il secondo progetto si sta invece sviluppando in collaborazione con la ASL TO1 per la nascita di un primo WALK-in Centro di Cammino Terapia che coinvolge una struttura sanitaria pubblica.

WALK-in è pertanto un progetto che vuole riunire esperienze e conoscenze scientifiche e pratiche dirette che potranno essere esportate e riprodotte, con specifici e univoci protocolli, nei vari centri WALk-in che potranno espandersi in Italia. Un progetto ambizioso, proveniente dal mondo del cammino e dell’attività fisica in senso più generale, guidato dalla Scuola del Cammino, che si prefigge si affiancare alla tradizionale organizzazione della Sanità pubblica strutture specialistiche nel proporre e guidare l’attività del cammino a passo svelto e giungere a utilizzare il cammino come un vero e proprio farmaco consigliato, prescritto e somministrato correttamente e coerentemente alle singole patologie.

Associazione Sportiva Dilettantistica SCUOLA DEL CAMMINO
C.so Beato Giovenale Ancina, 8 - 12037 SALUZZO (CN) - ITALIA - Tel. 0175.24.81.32
<% Rs_news.Close() Set Rs_news = Nothing %> <% Rs_gallery.Close() Set Rs_gallery = Nothing %>