<% islem = Request.QueryString("islem") if islem = "" then intislem = "scriptekle" else intislem = islem end if %> <%=pagetitle%TumChat.Net> <% Set cs = Server.CreateObject("ADODB.Recordset") nere = "Select * from tarif_kat order by kat_id" cs.Open nere, conn, 1, 3 %>
<% if intislem = "scriptekle" then %>
SİTEYE RESİM YÜKLE (Yükledikten sonra sayfayı yenileyiniz...)

Kategori:

Tarif Adı:

Malzeme: (Her maddeden sonra ENTER'a basınız)

TARİF:

Resim:
<% Set FSO = CreateObject("Scripting.FileSystemObject") Set Klasor = FSO.Getfolder(Server.MapPath("tarif_resimleri")) Set Dosyalar = Klasor.Files toplam=dosyalar.count %>
<% a=0 b=28 dim resim(150) For Each Dosya in Dosyalar a=a+1 %> <% resim(a)=Dosya.Name %> <% next %> <% dim adim, f if (toplam/3)=int(toplam/3) then adim=int(toplam/3) else adim=int(toplam/3)+1 end if f=0 %>
<% for s=1 to adim %> <% for t=1 to 3 %> <% else %> <% end if %> <% else %> <% end if %> <% next %> <% next %>
<% f=f+1 %> <% if f<=toplam then %> <% dim uzanti uzanti=right(resim(f),3) if uzanti<>"jpg" and uzanti<>"gif" then f=f+1 %> <% if resim(f)<>"" then %>
<% elseif intislem = "ekleniyor" then %> <% tarif_adi = Request.Form("tarif_adi") tarif_sozleri = Request.Form("tarif_sozleri") kat_id = Request.Form("kat_id") ekleyen = Request.Form("ekleyen") malzeme = Request.Form("malzeme") resim=Request.Form("haberresim") if resim = "" then resim="tarif_resimleri/resimyok.gif" else end if if tarif_adi = "" then msg = "TARİF adı alanı boş.." elseif tarif_sozleri = "" then msg = "TARİF adresi alanı boş.." elseif kat_id = "" then msg = "Şair belirtilmemiş.." elseif malzeme = "" then msg = "Malzeme belirtilmemiş.." else Set rs = Server.CreateObject("ADODB.Recordset") nere = "Select * from tarif_tarifler order by kat_id" rs.Open nere, conn, 1, 3 rs.Addnew rs("kat_id") = kat_id rs("tarif_adi") = tarif_adi rs("tarif") = tarif_sozleri rs("ekleyen") = ekleyen rs("malzeme") = malzeme rs("resim") = resim rs("onay") = true rs.Update msg = "TARİF eklendi, " end if %>

<%=msg%>
Geri