|
||||||
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "Select * from defter where onay=true order by id desc"
rs.open sql,Baglanti,1,3
shf = Request.QueryString("shf")
IF Not IsNumeric(REQUEST.QUERYSTRING("shf")) THEN
Response.Redirect "default.asp"
Response.End
END IF
If rs.eof then
Response.Write "
<% rs.Movenext renk = renk + 1 Next Response.Write " |
<%
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 2
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "No-Store"
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = -1
if request("bolum") = "defter" then
call defter
elseif request("bolum") = "mesaj_yaz" then
call mesaj_yaz
end if
%> <%
sub defter
%>
<%
end sub
%>
<%
sub mesaj_yaz
IF Request.QueryString("@")="ok" Then
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "Select * from defter "
rs.open sql,Baglanti,1,3
gonderen= veri(Request.Form("gonderen"))
GelenKod=Request.Form("kod")
mail = veri(Request.Form("mail"))
mesaj=Request.Form("mesaj" )
ip=Request.Form("ip" )
if strMinTCode(GelenKod)=False Then
Response.Write ""
Response.Write ""
else
IF gonderen="" OR mesaj="" Then
Response.Write ""
Response.Write ""
Else
rs.AddNew
rs("gonderen") = gonderen
rs("mail") = mail
rs("tarih") = date()
rs("mesaj")= mesaj
rs("ip") = Request.ServerVariables("REMOTE_ADDR")
rs.Update
Response.Write ""
Response.Write ""
End IF
End IF
End IF
%>
<%
end sub
%>