<% Action= Request.Querystring("Git") If Action="" then Call Ana ElseIf Action= "Ana" then Call Ana ElseIf Action= "Yaz" then Call Yaz ElseIf Action= "Parola" then Call Parola ElseIf Action= "Cikis" then Call Cikis End If %> <%Sub Cikis%> <% Response.Cookies("vsDefter2")("login") = "" Response.Cookies("vsDefter2")("pass") = "" Response.Redirect "index.asp?Git=Parola" %> <%End Sub%> <%Sub Parola%>
Ana Sayfa Parola Gir Mesaj Oku  
Admin Ekranı
Kullanıcı:
Şifre:
 
<%End Sub%> <%Sub Ana%>
Ana Sayfa Mesaj Oku Mesaj Yaz Yönetim   <%=Mesaj_title%>
<% Set rsDefter=Server.CreateObject("ADODB.RecordSet") rsDefter.open "SELECT * From ZDefteri WHERE ONAY=True Order By Tarih Desc",conn,1,3 if not rsDefter.EOF then rsDefter.pagesize=""&MesajAdeti&"" if Request.QueryString("Sayfa")="" then Session("Sayfa")=1 else Session("Sayfa")=int(Request.QueryString("Sayfa")) end if rsDefter.absolutepage=Session("Sayfa") if rsDefter.pagecount>1 and int(Session("Sayfa"))"&Yon1&"" end if if int(Session("Sayfa"))>1 then strYon = ""&Yon2&""&strYon end if end if %>
<%=Toplam%>: <%=rsDefter.recordcount%> Sayfa:<%=Session("Sayfa")%>/<%=rsDefter.pagecount%> <%=strYon%>

<%Sayi=1 While not rsDefter.EOF and Sayi<=rsDefter.pagesize Sayi=Sayi+1%>
İsim: <%=rsDefter("isim")%> Tarih: <%=rsDefter("tarih")%>
Soyisim: <%=rsDefter("soyisim")%> Şehir: <%=rsDefter("sehir")%>
E-Mail: " class="zdlink"> <%=rsDefter("mail")%>
Web: " class="zdlink"><%=rsDefter("web")%>
<%=rsDefter("mesaj")%>
<% Set rsDefterCvp=server.CreateObject("adodb.recordset") SQL = "Select * from Cevaplar where MesajID="&rsDefter("MesajID") rsDefterCvp.Open SQL,conn,1,3 If not rsDefterCvp.eof then%>
Yanıt:
<%=DefterYanit%>;
<%=rsDefterCvp("Cevap")%>
<%end if%>

<%rsDefter.MoveNext Wend%>
<%=Toplam%>: <%=rsDefter.recordcount%> Sayfa:<%=Session("Sayfa")%>/<%=rsDefter.pagecount%> <%=strYon%>
 
<%End Sub%><%Sub Yaz%>
Ana Sayfa Mesaj Oku Mesaj Yaz Yönetim   <%=Mesaj_title2%>
<%if Request.Form("Submit")<>"Tamam" then%>

İsim:
Soyisim:
Şehir:
E-Posta:
Web Site: http://
Mesaj:

<%else set rsDefter=Server.CreateObject("ADODB.RecordSet") rsDefter.open "ZDefteri",conn,1,3 rsDefter.AddNew rsDefter.Fields("isim")=Temizle(Request.Form("Adi")) rsDefter.Fields("soyisim")=Temizle(Request.Form("Soy")) rsDefter.Fields("mail")=Temizle(Request.Form("Maili")) rsDefter.Fields("sehir")=Temizle(Request.Form("Sehiri")) rsDefter.Fields("web")=Temizle(Request.Form("WebSitesi")) msg=Trim(Request.Form("Mesaji")) msg=Temizle(msg) msg=Trim(msg) rsDefter.Fields("mesaj")=msg rsDefter.Fields("tarih")=date() rsDefter.Update %>
a

Sevgili <%=Request.Form("Adi")%>,
İlgin için teşekkür ederim.

Mesajın Başarıyla Gönderildi.
Fakat, Onaylandıktan Sonra Defterde Yayınlanacak...

Tamam

<%end if%>
<%End Sub%>
<% conn.Close Set conn=Nothing %>