Maks antal poster i denne kode!

Hej, som sagt. Det er en gæste bog hvor der bliver vist 20 post per side, men der er ikke en begrænsning på maks antal post...

Kan i ikke lige gøre det sådan at der kun bliver vist 200 post ialt i denne kode

<%
Set mConn = Server.CreateObject("ADODB.Connection")
Set mRs = Server.CreateObject("ADODB.Recordset")
   
mConn.Open myDb
   
mSQL = "select * from bannedIp where bannedIp = '" & Request.ServerVariables("REMOTE_ADDR") & "'"

mRs.Open msql, mconn, 1, 3

if not mRs.eof then
response.write "Sayfadan uzaklastirildin!"
response.end
end if


if Request.QueryString("islem") <> "ekle" then
%>

     
     
<script language="javascript">
function yolla(){
var isim=document.misafir.isim.value;
var mail=document.misafir.mail.value;
var yer=document.misafir.yer.value;
var notu=document.misafir.notu.value;

if (isim=="")
{
alert("Lütfen adinizi ekleyin")
document.misafir.isim.focus()
return false
        }

if (mail==""){
        alert("Lütfen E-Mail ekleyin.");
        document.misafir.mail.focus()
        return false }
       
if (mail.indexOf('@', 0) == -1 || mail.indexOf('.', 0) == -1){
        alert("E-Mail gecersiz.");
document.misafir.mail.focus()
return false
            }       

if (yer=="")
{
alert("Hangi ülkeden yazdiginizi belirtin.")
document.misafir.yer.focus()
return false
        }
       
if (notu=="")
{
alert("Mesajinizi ekleyin")
document.misafir.notu.focus()
return false
        }
}
</script>

<table width="100%" border="0" cellspacing="1" cellpadding="1" bgcolor=Gainsboro height="400">

<form action="default.asp?modul=defter&islem=ekle"  name="misafir" onsubmit="return yolla()" method=post>

<tr height=100 align=center>
<td align=center colspan=2 bgcolor=#ffcc99>

  <table width="100%" border="0" cellspacing="0" cellpadding="4" bgcolor=Gainsboro>
    <tr>
      <td align=right>
      <font size=2> isim :</font>&nbsp;
      <INPUT type="text" name="isim" maxlength=30 size=20 style="border-style: solid; border-width: 1; font-size : 9pt"><br>
      <font size=2>E-Mail :</font>&nbsp;
      <INPUT type="text" name="mail"  maxlength=40 size=20 style="border-style: solid; border-width: 1; font-size : 9pt"><br>
      <font size=2>Yer :</font>&nbsp;
      <INPUT type="text" name="yer" maxlength=30 size=20 style="border-style: solid; border-width: 1; font-size : 9pt"><br><br>
      <INPUT type="submit" value="Deftere Ekle" id=submit1 name=submit1 style="border-style: solid; border-width: 1; font-size : 9pt">
      </td>
      <td>
      <TEXTAREA rows=8 cols=45 name="notu" style="border-style: solid; border-width: 1; font-size : 9pt">Mesaj</TEXTAREA>
      </td>
    </tr>
  </table>
   
  </td>
</tr>

</form>


<%
end if



Dim sayfaIci, mconn, mrs, msql, sayac, Sayfalar, gastNot, ulovligeord, regEx

sayfaIci = 12
if request("seite")="" then
    sayfa = 1
else
    sayfa = cint(request.querystring("seite"))
end if

Set mConn = Server.CreateObject("ADODB.Connection")
Set mRs = Server.CreateObject("ADODB.Recordset")
   
mConn.Open myDb
   
mSQL = "select * from gast order by id desc"
   
mRs.Open msql, mconn, 1, 3


if Request.QueryString("islem") = "ekle" then

    gastNot = left(Request.Form("notu"), 600)
    gastNot = replace(gastNot, "<", "x")
    gastNot = replace(gastNot, ">", "x")
    gastNot = replace(gastNot, vbcrlf, "<br>")
   


        ulovligeord = "fuck|pis|fucker|götlek|salak|serefsiz|ibne|orosbu|götlek|sikilmis|sikerim|sikini|||||||"
        Set regEx = New RegExp
        regEx.Global = true
        regEx.IgnoreCase = True

        regEx.Pattern = "(^|[^a-z])" & ulovligeord & "([^a-z]|$)"
        gastNot = regEx.Replace (gastNot, "")
        Set regEx = Nothing


   
    mRs.AddNew
    mrs.Fields("name") = left(Request.Form("isim"), 20)
    mrs.Fields("email") = left(Request.Form("mail"), 30)
    mrs.Fields("ort") = left(Request.Form("yer"), 20)
    mrs.Fields("text") = gastNot
    mrs.Fields("Ip") = Request.ServerVariables("REMOTE_ADDR")
    mrs.Update
   
    Response.Redirect "default.asp?modul=defter"
   

else

    mRS.PageSize = sayfaIci
    mRS.CacheSize = SayfaIci
    mRS.AbsolutePage = sayfa

    Sayfalar = mRS.PageCount

    sayac = 0



Do While sayac < SayfaIci And Not mRS.EOF
%>
<tr bgcolor=#fffff9><td  valign=top width="100"><img src='img/right.gif' border=0 align=middle> <b><font size=2  color=DarkViolet><a href="mailto:<%=mrs("email")%>"><%=mrs("name")%></a></font></b><br><font size=1><%=mrs("datum")%></font><br><font size=1><%=mrs("ort")%></font>
</td>
<td width="80%"><font size=2> <%=mRs("text")%></font></td></tr>
     
<%
Sayac = Sayac + 1
mRs.MoveNext
loop

response.write "<tr><td colspan=2 Align='center'  height='100%' width='100%' valign=bottom bgcolor='#ffffff'><font size=1 color=black><b>[Toplam: " & mrs.recordcount & "]</b> " & " .. Sayfalar :"
for i=1 to Sayfalar step 1
  if sayfa = i then
        Response.Write "<font size=1><b> "&i&", </b></font>"
  else
    response.write "<a href='default.asp?modul=defter&seite="&i&"'><font size=1><b>" & i & "</b></font></a>,&nbsp;"
  end if
next


%>   
</font></td></tr>     
       
      </table>

<%

mrs.Close
Set mrs = nothing
mconn.Close
set mconn = nothing
end if


%>

På forhånd mange tak

Musti