<% Set iplistesi = Server.CreateObject("ADODB.Recordset") Sorgu = "SELECT * FROM IPENGELLEME where IPALAN=1 and IPNO='" & IPNO & "'" iplistesi.Open Sorgu, Baglanti, 1, 3 If not iplistesi.Recordcount = 0 Then Response.Redirect "defter_ipengel.asp" end if iplistesi.Close Set iplistesi=Nothing %>
<% If FORM18="1" or FORM18="3" then %> <% end if %> <% If FORM19="1" then %> <% end if %> <% If BAKIM="0" then If DEFTER_ONAY="1" then Sorgu = "SELECT * FROM DEFTER where ONAY=1 order by DEFTER_ID desc" Else Sorgu = "SELECT * FROM DEFTER order by DEFTER_ID desc" End If set mesajlarlistele = server.createobject("ADODB.Recordset") mesajlarlistele.open Sorgu,Baglanti,1,3 mesajadet = mesajlarlistele.recordcount %> <% If mesajlarlistele.eof then %> <% Else %> <% sayfasayisi = MESAJ_SAYI if request("s")<>"" then sayfa = cdbl(request("s")) mesajlarlistele.move sayfa*sayfasayisi else sayfa = 0 end if for t=1 to sayfasayisi if mesajlarlistele.eof then exit for If FORM4="1" and mesajlarlistele("ULKE")<>"" then set ulkelistesi = server.createobject("ADODB.Recordset") Sorgu = "SELECT * FROM ULKE where ULKE_ADI = '" & mesajlarlistele("ULKE") & "'" ulkelistesi.open Sorgu,Baglanti,1,3 If ulkelistesi.eof then ULKE_RESIM= "Resim/Bayrak/TU-FLAG.gif" ULKE_ADI= "Ülke Bulunamadı" else ULKE_RESIM=ulkelistesi("ULKE_RESIM") ULKE_ADI=ulkelistesi("ULKE_ADI") end if ulkelistesi.Close Set ulkelistesi=Nothing end if If FORM5="1" and mesajlarlistele("SEHIR")<>"" then set sehirlistesi = server.createobject("ADODB.Recordset") Sorgu = "SELECT * FROM SEHIR where SEHIR_ADI = '" & mesajlarlistele("SEHIR") & "'" sehirlistesi.open Sorgu,Baglanti,1,3 If sehirlistesi.eof then SEHIR_ADI= "Şehir Bulunamadı" else SEHIR_ADI=sehirlistesi("SEHIR_ADI") end if sehirlistesi.Close Set sehirlistesi=Nothing end if %> "> <% mesajlarlistele.movenext next mesajlarlistele.close set mesajlarlistele=nothing %> <% End if %> <% else %> <% End if %> <% If FORM18="2" or FORM18="3" then %> <% end if %>
Mesaj Oku / Nachrichten - Mesaj Yaz / Eintragen
<%Google%>
<%Duyuru%>
Ziyaretçi Defterinde Mesaj Bulunmamaktadır!
<% If FORM4="1" or FORM5="1" then %><% If mesajlarlistele("ULKE")<>"" or mesajlarlistele("SEHIR")<>"" then %>Katılım
<% If FORM4="1" then %><% If mesajlarlistele("ULKE")<>"" then %>
<% end if %><% end if %><% If FORM4="1" then %><% If mesajlarlistele("ULKE")<>"" then %><%=ULKE_ADI%><% end if %><% end if %><% If FORM4="1" and FORM5="1" then %><% If mesajlarlistele("ULKE")<>"" and mesajlarlistele("SEHIR")<>"" then %>/<% end if %><% end if %><% If FORM5="1" then %><% If mesajlarlistele("SEHIR")<>"" then %><%=SEHIR_ADI%><% end if %><% end if %>
<% end if %><% end if %> <% If FORM6="1" then %><% If mesajlarlistele("AVATARS")<>"" then %>">
<% end if %><% end if %> <% If FORM1="1" then %><% If mesajlarlistele("ADSOYAD")<>"" then %>Absender: <%=mesajlarlistele("ADSOYAD")%>
<% end if %><% end if %> <% If FORM2="1" then %><% If mesajlarlistele("EMAIL")<>"" then %>">" src="Resim/mail.gif" border="0"> <% end if %><% end if %> <% If FORM8="1" then %><% If mesajlarlistele("MSN")<>"" then %>">" src="Resim/msn.gif" border="0"> <% end if %><% end if %> <% If FORM9="1" then %><% If mesajlarlistele("ICQ")<>"" then %>">" src="Resim/icq.gif" border="0"> <% end if %><% end if %> <% If FORM12="1" then %><% If mesajlarlistele("YAHOO")<>"" then %>">" src="Resim/yahoo.gif" border="0"> <% end if %><% end if %> <% If FORM3="1" then %><% If mesajlarlistele("WEB")<>"" then %>">" src="Resim/url.gif" border="0"> <% end if %><% end if %> <% If FORM13="1" or FORM14="1" or FORM15="1" or FORM16="1" then %><% If mesajlarlistele("FORMDA1")<>"" or mesajlarlistele("FORMDA2")<>"" or mesajlarlistele("FORMDA3")<>"" or mesajlarlistele("FORMDA4")<>"" then %>');"><% end if %><% end if %> <% If FORM10="1" then %>
Datum:
<%=DateAdd("h" , "" & FORM20 & "", mesajlarlistele("TARIH"))%><% end if %><% If FORM11="1" then %>
">sürekli link<% end if %>
<% If FORM7="1" then %><% If mesajlarlistele("BASLIK")<>"" then %>  <%=mesajlarlistele("BASLIK")%>
<% end if %><% end if %>
<%=MesajFormatla(mesajlarlistele("Mesaj"))%>
Total Nachrichten: <%=mesajadet%>
Seite : <% if mesajadet/sayfasayisi = int(mesajadet/sayfasayisi) then sayfaadet = mesajadet/sayfasayisi else sayfaadet = int(mesajadet/sayfasayisi) +1 for p=0 to sayfaadet-1 if sayfa = p then %> <%=p+1%> <% else %> <%=p+1%> <% end if next %>
<%=BAKIM_MESAJ%>
<%Google%>
<%=DEFTER_ADI%>
<% Baglanti.CLOSE SET Baglanti = NOTHING %>