<%[@ IncludeFile "Code/Util.vbs" ]%> <%[@ IncludeFile "Code/Lang.vbs" ]%> <%[ InitGlobalVariables strBaseUrl = g_strBaseUrl fPrivateFolder = Eval(Left(Report.FileOutput,g_nPrivateFolder) = g_strPrivateFolder) If fPrivateFolder Then strBaseUrl = strBaseUrl & "genomaps/" ReportGenerator.NegateAxisY = True ' Create an HTML file for each GenoMap For Each g In GenoMaps strFileSvg = g.Session("FileSvg") If (strFileSvg <> "") Then ]%> <%[ strScriptPath="../script.js" strFileSvgz = "../genomapsz/" & strFileSvg & "z" If fPrivateFolder Then Report.WriteFormattedLn "", strBaseUrl strFileSvg = "../" & g_strPrivateFolder & "genomaps/" & g.Session("FileSvg") strFileSvgz = "../" & g_strPrivateFolder & "genomapsz/" & g.Session("FileSvg") & "z" strScriptPath= g_strBaseUrl & "script.js" End If ]%> @[Report.WriteTextDic @[Report.WriteTextDic @[Report.WriteTextDic @[Report.WriteTextDic @[Report.WriteTextDic @[Report.WriteTextDic @[Report.WriteTextDic

@[Report.WriteText Util.IfElse(GenoMaps.Count > 1, Dic("HeaderSvg"), Dic.PlurialCardinal("HeaderSvg",1)) & g.Name]@

<%[ strPathGenoMap = g.Session("PathGenoMap") Report.LogWarning "fPrivateFolder=" & fPrivateFolder & " strPathGenoMap=" & strPathGenoMap If fPrivateFolder Then strPathGenoMap = g_strPrivateFolder & strPathGenoMap If strPathGenoMap <> "" Then Report.BufferWriteToFile strPathGenoMap ' Write the content of the buffer to a file Report.BufferLength = 0 ' Flush the buffer for the next HTML page End If Next ' Generate the next HTML page Report.AbortPage ' Prevent the template file "genomap.htm" to be written to the output report ]%>