<%Option Explicit%> BMW z4 Серии : Справочная информация

Справочная информация

<% Function CSQL(str) CSQL = Replace (str,"'","''") End Function Response.Buffer = true Response.Expires = -1 Session.Timeout = 60 Dim con, rs, query, command set con= GetConnection() Dim modelPath, ser modelPath = "z4series" query = "SELECT folder, name FROM tbl_model WHERE folder='"&CSQL(modelPath)&"'" Set rs = con.execute( query ) if not(rs.eof) then ser = rs( "name" ) end if %> <% Dim fso, f, file, dir, path, s Set fso = Server.CreateObject("Scripting.FileSystemObject") path = "/russian/owners/doc/"&modelPath set dir = Nothing if fso.FileExists( Server.MapPath( path & "/directory.inf") ) then Set dir = server.CreateObject("Scripting.Dictionary") set file = fso.OpenTextFile( Server.MapPath( path & "/directory.inf") , 1, true, -1 ) do if file.AtEndOfLine then Exit Do s = Split(file.ReadLine,chr(9)) dir.Item( s(0) ) = s(1) loop file.Close end if Set f = fso.GetFolder( Server.MapPath( path ) ) if f.Files.Count > 0 then For Each file in f.Files if (file.Attributes And 6) = 0 then if dir Is Nothing then s = file.Name else if IsEmpty( dir.item(file.Name) ) Then dir.item(file.Name) = file.Name end if s = dir.item(file.Name) end if %> " class="arrow" target="_blank"><%=Server.HTMLEncode(s)%> <% end if Next end if %> <% Set fso = Server.CreateObject("Scripting.FileSystemObject") path = "/russian/owners/doc/shared" set dir = Nothing if fso.FileExists( Server.MapPath( path & "/directory.inf") ) then Set dir = server.CreateObject("Scripting.Dictionary") set file = fso.OpenTextFile( Server.MapPath( path & "/directory.inf") , 1, true, -1 ) do if file.AtEndOfLine then Exit Do s = Split(file.ReadLine,chr(9)) dir.Item( s(0) ) = s(1) loop file.Close end if Set f = fso.GetFolder( Server.MapPath( path ) ) if f.Files.Count > 0 then For Each file in f.Files if (file.Attributes And 6) = 0 then if dir Is Nothing then s = file.Name else if IsEmpty( dir.item(file.Name) ) Then dir.item(file.Name) = file.Name end if s = dir.item(file.Name) end if %> " class="arrow" target="_blank"><%=s%> <% end if Next end if Set f = Nothing Set fso = Nothing %> <% Set rs = nothing Set con = Nothing %>

Обращаем Ваше внимание, что на данном сайте представлен неисчерпывающий перечень инструкций к автомобилю. За более подробной информацией просим Вас обратиться к официальному дилеру BMW или в службу клиентской поддержки по телефону 8 800 2003 269