 |
KOSGEB
BÖLGESEL KALKINMA ENSTİTÜSÜ
İl Profili Raporları |
<%
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * from illerBKE", conn
while not rs.EOF
%>
|
|
<%= rs("iladi")%>
İl 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
%>
Yukarıda yayımlanan raporların içerikleri
aşağıdaki şekildedir:
- Coğrafi Durum
- Nüfus
- Eğitim
- Sosyal Güvenlik
- Doğal Kaynaklar
- Altyapı
- İnşaat
- Enerji
- Turizm
- Tanım
- Bankacılık
- Kamu Yatırımları, Teşvikler Vergiler
- Gayri Safi Hasıla
- Ticaret
- İmalat
- Sonuç
 |
PDF dosyalarını izleyebilmek için Adobe Acrobat
Reader' i buradan yükleyebilirsiniz.
|
|
