|
 |
SANAYİ
VE TİCARET BAKANLIĞI
Sanayi ve Araştırma Geliştirme Genel Müdürlüğü Sektör
Raporları |
<%
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * from STBRapor order by sektor_adi asc", conn
while not rs.EOF
%>
|
|
<%= rs("sektor_adi")%>
Raporu
<%
dim dogru
dogru = rs("new")
if dogru = True then %>
<% end if %>
|
| |
">
<%
dim fs, dosyaw, yolword, yolpdf, dosyap
yolword = Server.MapPath(rs("wordURL"))
yolpdf = Server.MapPath(rs("pdfURL"))
set fs = CreateObject("Scripting.FileSystemObject")
set dosyaw = fs.GetFile(yolword)
set dosyap = fs.GetFile(yolpdf)
%>
Microsoft Word Dokümanı (<%= FormatNumber(dosyaw.Size / 1000, 0, 0, 0, -1) %>
KB) |
"> PDF Dokümanı (<%= FormatNumber(dosyap.Size / 1000, 0, 0, 0, -1) %>
KB) |
<%
set dosyap = nothing
set dosyaw = nothing
set fs = nothing
rs.Movenext
wend
rs.Close
set rs = nothing
%>
 |
PDF dosyalarını izleyebilmek için Adobe Acrobat
Reader' i buradan yükleyebilirsiniz.
|
|
