<% if islem="sil" then firma_sil(fkodu) Response.Redirect("giris.asp") end if if Request.QueryString("islem")="ekle" then if Request.Form("skodu")="" then hata "Yeni Firma Eklenmedi ... Sektör Seçmediniz",16 elseif Request.Form("adi")="" then hata "Yeni Firma Eklenmedi... Firma Adi Yazmadiniz.",16 elseif Request.Form("yetkili")="" then hata "Yeni Firma Eklenmedi... Firma Yetkilisini Yazmadiniz.",16 else sorgum="select * from firma" Rs.Open Sorgum, Baglantim, 1, 3 rs.addnew rs("adi")=Request.Form("adi") rs("yetkili")=Request.Form("yetkili") rs("skodu")=Request.Form("skodu") rs("ozel")=false rs("onay")=false rs.update Set FSO = CreateObject("Scripting.FileSystemObject") veri=FSO.GetFolder(server.MapPath("/firmalar/"))&"\"&rs("fkodu") Response.Write veri FSO.CreateFolder veri veri1=veri&"\logo" FSO.CreateFolder veri1 veri2=veri&"\urun" FSO.CreateFolder veri2 veri3=veri&"\diger" FSO.CreateFolder veri3 rs.close hata "Yeni Firma Eklendi",64 Response.Redirect("giris.asp") end if end if %>

<% sirala= Request.QueryString("sirala") if sirala="evet" then fkodu=Request.Form("firma") olcu=Request.Form("olcu") sekil=Request.Form("sekil") ozel=Request.Form("ozel") onay=Request.Form("onay") ssayi=cint(Request.Form("ssayi")) if fkodu<>"" and ozel<>"" and onay<>"" then sorgum="Select * from firma where onay="&onay&" and "&ozel&" and fkodu="&fkodu&" order by "&olcu&" "&sekil&"" elseif fkodu<>"" and ozel<>"" and onay="" then sorgum="Select * from firma where "&ozel&" and fkodu="&fkodu&" order by "&olcu&" "&sekil&"" elseif fkodu<>"" and ozel="" and onay<>"" then sorgum="Select * from firma where onay="&onay&" and fkodu="&fkodu&" order by "&olcu&" "&sekil&"" elseif fkodu<>"" and ozel="" and onay="" then sorgum="Select * from firma where fkodu="&fkodu&" order by "&olcu&" "&sekil&"" elseif fkodu="" and ozel<>"" and onay<>"" then sorgum="Select * from firma where "&ozel&" and onay="&onay&" order by "&olcu&" "&sekil&"" elseif fkodu="" and ozel<>"" and onay="" then sorgum="Select * from firma where "&ozel&" order by "&olcu&" "&sekil&"" elseif fkodu="" and ozel="" and onay<>"" then sorgum="Select * from firma where onay="&onay&" order by "&olcu&" "&sekil&"" elseif fkodu="" and ozel="" and onay="" then sorgum="Select * from firma order by "&olcu&" "&sekil&"" end if else sorgum="Select * from firma order by fkodu desc" end if Rs.Open Sorgum, Baglantim, 1, 3 if rs.eof then else %> <% shf = Request.QueryString("shf") if shf="" then shf=1 end if if ssayi<>"" then rs.pagesize = ssayi else rs.pagesize=20 end if rs.absolutepage = shf sayfa = rs.pagecount for i=1 to rs.pagesize if rs.eof then exit for End If %> <% rs.movenext next %> <% end if %>

Firma Kodu	Adi	Yetkili	Onay	Ozel	Vitrin	Islemler
<%= rs("fkodu") %>	<%= rs("adi") %>	<%= rs("yetkili") %>	<% if rs("onay")=true then %> <% else %> <% end if %>	<% if rs("ozel")=true then %> <% else %> <% end if %>	<% if rs("vitrin")=1 then %> <% else %> <% end if %>	&mail=<%= rs("mail") %>&skodu=<%= rs("skodu") %>" target="_blank"> " onclick="return confirm('Dikkat! Firmaya Ait Tüm Bilgiler Silinecektir.')">
<% for y=1 to sayfa %> <% if cint(shf)=cint(y) then %> <%= y %> <% else %> <%= y %> <% end if %> <% next %>
Firma Adı Yetkili Adı Soyadı <% sektor_sec %> Toplam : <%response.Write(rs.recordcount)%> Firma Kayitlidir.