Bu basit sorunu çözene çikolata

<%
Set baglanti = Server.CreateObject("ADODB.Connection")
baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("uyelik.mdb")
Set Rs=Server.CreateObject("Adodb.Recordset")
%>
<% 

Set rs = Server.CreateObject("ADODB.Recordset")
sql = "Select * from uyeler order by kimlik asc"
rs.open sql,baglanti,1,3
%>
<%
if request("update")<>"" then
K1=request("K1")
K2=request("K2")

rs.update "K1",K1
rs.update "K2",K2
rs.Update
set rs=nothing
response.redirect "uye.asp"
end if %>

   
<form action="uye.asp" method="post">

<center>
<table cellpadding="0" cellspacing="0" style="width: 100%;" class="style2">
              <tr>
                <td width="99%" height="24">
                  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse"  width="100%" id="AutoNumber6">
                    <tr>
<td width="79%">
		</table>
				
				<table width="100%" border="0" cellspacing="1" cellpadding="3">
    <tr height="25" bgcolor="#121212" class="tablo_ust">
     <td width="100" align="center" bgcolor="#FFFFFF" height="18">
		<font face="Tahoma" style="font-size: 8pt">Üye</font></td>
     <td width="100" align="center" bgcolor="#FFFFFF" height="18">
		<font face="Tahoma" style="font-size: 8pt">OCAK</font></td>
     <td width="100" align="center" bgcolor="#FFFFFF" height="18">
		<font face="Tahoma" style="font-size: 8pt">ŞUBAT</font></td>
    </tr>
<%if rs.eof Then 
Response.write"<center>Kaytlı Üye Bulunamıyor.</center>" &"<br>"
response.end 
end if 
%>
<%
shf = Request.QueryString("shf")
IF Not IsNumeric(REQUEST.QUERYSTRING("shf")) THEN
Response.Redirect "uye.asp"
Response.End
END IF

If shf="" Then shf="1"
rs.pagesize = 50
rs.absolutepage = shf
sayfa_sayisi = rs.pagecount
For i=1 To rs.pagesize
If rs.Eof Then exit for
%>    

<td class="nav style1" align="center" bgcolor="#999999" width="100">
  <font face="Verdana" size="1"><b><%=rs("kulladi")%></b></font></td>
<td class="yazi_icerik" align="center" bgcolor="#CCCCCC" width="100">
  <font face="Verdana" size="1">
<input size="10" type="text" name="K1" Value="<%=rs("K1")%>" class="textbox"> </font>
	</td>
<td class="yazi_icerik" align="center" bgcolor="#CCCCCC" width="100">
  <font face="Verdana" size="1"> 
<input size="10" type="text" name="K2" Value="<%=rs("K2")%>" class="textbox"></font></td>
</tr>

<%
rs.Movenext
Next
%><%
          Response.Write "<br><center>"
          Response.Write "<font face=verdana size=1 color=#C0C0C0>&nbsp;<b>Sayfalar &nbsp;</b></font>"
          For g = 1 To sayfa_sayisi
          If g = CInt(shf) Then
          Response.Write "<font face=verdana size=1 color=#C0C0C0>[" & g & "],</font>"
          Else
          Response.Write "<a href=uye.asp?shf=" & g & "><font face=verdana size=1 color=#C0C0C0>" & g & "</a>,</font>"
          End If
          Next
          Response.Write "<font face=verdana size=1 color=#C0C0C0>&nbsp;<b>Her sayfada 50 kayıt</b></font>"
%>
<td>
</td>          
	<input name="Submit" type="submit" class="ttextbox"  value="Kaydet " class="ttextbox">
</form>