<% '############################################################################### '# CCCCCCC OOOOOOO RRRRR V V U U SSSS # '# C C O O R R V V U U S # '# C O O RRRRR V V U U SSSS # '# C O O R R V V U U S # '# C C O O R R V V U U S S # '# CCCCCCC OOOOOOO R R V UUUUUU SSSS # '# # '# E-Kart Servisi Scripti Versiyon 0.5 23/04/2003 # '# # '# Bu scriptin bütün hakları CORVUS` a aittir. # '# Scripti, bu satırları silmemek şartıyla ücretsiz kullanabilirsiniz. # '# Önerilerinizi ve scripteki hataları mail aracılığıyla bildirebilirsiniz. # '# Ayrıntılı kurulum, özellik ve kullanım bilgileri için BeniOku.htm dosya- # '# sına bakabilirsiniz. # '# # '# admin@DiyalogTR.Com http://www.DiyalogTR.Com # '# # '############################################################################### %> <% Response.Buffer = True kimden = Request("kimden") kimdene = Request("kimdene") kimdene = Replace(kimdene, " ", "") kime = Request("kime") kimee = Request("kimee") kimee = Replace(kimee, " ", "") adresbar = server.HTMLencode("kimden=" & kimden & "&kimdene=" & kimdene & "&kime=" & kime & "&kimee=" & kimee) adresbar = Replace(adresbar, " ", "%20") katid = Request.QueryString("katid") If katid = "" Then katid = Request.Form("katid") End If If katid = "" Then Response.Redirect "." End If %>

DiyalogTR.Com E-kart Servisi
<% Set oRS = Baglanti().Execute("SELECT * FROM kat WHERE katid=" & katid) %> <% oRS.Close Set oRS = Nothing %> <% syf = Request.QueryString("syf") If syf="" Then syf="1" Dim oConn Set oConn = Baglanti() Set oRS = Server.CreateObject("ADODB.Recordset") Set oRS.ActiveConnection = oConn oRS.CursorLocation = adUseClient oRS.Open "SELECT resid, katid, resim, resims FROM kart WHERE katid=" & katid,,3,1 oRS.PageSize = 9 sayfa_sayisi=oRS.PageCount oRS.AbsolutePage = syf %>   <%=oRS("isim")%> <% for g = 1 to sayfa_sayisi if g = cint(syf) then response.write "" & g & " " else response.Write "" & g & " " end if next %> <% for i=1 to 3 if oRS.eof then exit for %> <% oRS.MoveNext Next %> <% for i=4 to 6 if oRS.eof then exit for %> <% oRS.MoveNext Next %> <% for i=7 to oRS.pagesize if oRS.eof then exit for %> <% oRS.MoveNext Next oRS.Close Set oRS = Nothing oConn.Close Set oConn = Nothing %> &resid=<%=oRS("resid")%>&<%=adresbar%>">" alt="Bu resmi E-kart yapmak için tıklayınız" width="86" height="64"> ">Resmi Büyüt &resid=<%=oRS("resid")%>&<%=adresbar%>">" alt="Bu resmi E-kart yapmak için tıklayınız" width="86" height="64"> ">Resmi Büyüt &resid=<%=oRS("resid")%>&<%=adresbar%>">" alt="Bu resmi E-kart yapmak için tıklayınız" width="86" height="64"> ">Resmi Büyüt <% for g = 1 to sayfa_sayisi if g = cint(syf) then response.write "" & g & " " else response.Write "" & g & " " end if next %>