Сертификати

ZEMIC
<% Const adVarChar = 200 Dim objFSO,objFolder,objItem Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(Server.MapPath("/certificates/PTB")) Set rstFiles = Server.CreateObject("ADODB.Recordset") rstFiles.Fields.Append "loadcell", adVarChar, 255 rstFiles.Fields.Append "ptb", adVarChar, 255 rstFiles.Fields.Append "oiml", adVarChar, 255 rstFiles.Open For Each objItem In objFolder.Files rstFiles.AddNew rstFiles.Fields("loadcell").Value = Ucase(Replace(objItem.Name,".pdf","")) rstFiles.Fields("ptb").Value = objItem.Name Next 'Set objItem = Nothing 'Set objFolder = Nothing 'Set objFSO = Nothing rstFiles.Sort = "loadcell ASC" rstFiles.MoveFirst Response.write "" i = 0 Do While Not rstFiles.EOF Response.write "" i = i + 1 If i = 7 Then i = 0 Response.Write "" End IF rstFiles.MoveNext Loop Response.write "
" & rstFiles("loadcell") & "
" rstFiles.Close Set rstFiles = Nothing %>

RINSTRUM
R300
R420
2100
5200
5230
 
Tel. +359 32 640987, Fax. +359 32 641133
17 Ravnishta Str , Plovdiv 4001, Bulgaria
© 2005 - www.IBRM.bg - All Rights Reserved. Site By Stalx