<%@ LANGUAGE="VBScript" %> <% 'ouverture de connection Dim Conn Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open(cfgDSN) 'reprise de parametre Dim id 'id = request("id") id=1 'SELECT If id = 1 Then Dim nbRecordCS Dim dicFNCS Dim arrResultCS() nbRecordCS = fillInfoBaseFromQuery (Conn, getSQLStmtReqConditionSki(id), dicFNCS, arrResultCS) End If 'variable locales Dim bAffiche If nbRecordCS = 1 Then bAffiche = true Else bAffiche = false End If 'fermeture de connection Conn.Close set Conn=nothing %> <% 'Configuration Dim szPhotoCommentsFrCurrent szPhotoCommentsFrCurrent = Server.MapPath("photos") & "/current/current_fr.txt" Dim szPhotoCommentsEnCurrent szPhotoCommentsEnCurrent = Server.MapPath("photos") & "/current/current_en.txt" 'Ouverture du ficher et lecture du commentaire Function readFile(szFile) Dim fs Set fs = CreateObject("Scripting.FileSystemObject") Dim file Set file = fs.GetFile(szFile) Dim ts Set ts = file.OpenAsTextStream(1, TristateUseDefault) ' ForReading = 1, ForWriting = 2, ForAppending = 3 readFile = ts.ReadLine ts.Close End Function %> <% 'Configuration Dim szPhotoCommentsCurrent szPhotoCommentsCurrent = Server.MapPath("photos/current/current_fr.txt") Dim recupmessage recupmessage = Server.MapPath("photos/current/message.txt") Dim recupmessage2 recupmessage2 = Server.MapPath("photos/current/messageen.txt") 'Ouverture du ficher et lecture du commentaire Function readFile(szFile) Dim fs Set fs = CreateObject("Scripting.FileSystemObject") Dim file Set file = fs.GetFile(szFile) Dim ts Set ts = file.OpenAsTextStream(1, TristateUseDefault) ' ForReading = 1, ForWriting = 2, ForAppending = 3 readFile = ts.ReadLine ts.Close End Function Function readFile2(szFile) Dim fs2 Set fs2 = CreateObject("Scripting.FileSystemObject") Dim file2 Set file2= fs2.GetFile(szFile) Dim ts2 Set ts2 = file2.OpenAsTextStream(1, TristateUseDefault) ' ForReading = 1, ForWriting = 2, ForAppending = 3 readFile2 = ts2.ReadLine ts2.Close End Function %> Station de ski Mont Habitant, Saint-Sauveur, Québec, Canada
<%If bAffiche = true Then%> <%=arrResultCS(dicFNCS("cn_condition"), 0)%>
Température
" >
Pistes ouvertes - Jour
<%=arrResultCS(dicFNCS("cs_nbPisteOuverteJour"), 0)%>
Pistes ouvertes - Soir
<%=arrResultCS(dicFNCS("cs_nbPisteOuverteSoir"), 0)%>
Neige tombée (cm)
<%=arrResultCS(dicFNCS("cs_neigeTombe"), 0)%>
 <%End If%>