THinking that the reasone why it's not UPDATING all was because the the page holds 10 records at a time right? I tried blocking all the codes which have to do with pageing but it's not working. Can you show me what I missed (if that's the reason why it cannot UPDATE all at once)? <% Option Explicit ' ADO constants used in this page Const adOpenForwardOnly = 0 Const adLockReadOnly = 1 Const adCmdTableDirect = &H0200 Const adUseClient = 3 %> <html> <head> <style> body { font-family : Verdana; font-size : 8pt; } a { font-family : Verdana; font-size : 8pt; text-decoration : none; } </style> </head> <body> <% Dim connStr connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("hebrewbible.mdb") Dim ans Dim i Dim rs Dim SQL Dim TheString, ArrayTemp, NumberOfWords, Word function getKeyValue_h(chr) //A select statement is more efficient for this select case chr case "a" getKeyValue_h = 1 case "b" getKeyValue_h = 2 case "g" getKeyValue_h = 3 case "d" getKeyValue_h = 4 case "h" getKeyValue_h = 5 case "w" getKeyValue_h = 6 case "z" getKeyValue_h = 7 case "x" getKeyValue_h = 8 case "j" getKeyValue_h = 9 case "y" getKeyValue_h = 10 case "k","$" getKeyValue_h = 20 case "l" getKeyValue_h = 30 case "m","~" getKeyValue_h = 40 case "n","!" getKeyValue_h = 50 case "s" getKeyValue_h = 60 case "[" getKeyValue_h = 70 case "p","@" getKeyValue_h = 80 case "c","#" getKeyValue_h = 90 case "q" getKeyValue_h = 100 case "r" getKeyValue_h = 200 case "f","v" getKeyValue_h = 300 case "t" getKeyValue_h = 400 case else getKeyValue_h = 0 end select end function function computeValue(str) ans = 0 for i = 0 to len(str) ans = ans + getKeyValue_h(mid(str,i+1,1)) next computeValue = ans end function SQL = "SELECT * from hebrewbibletable" SQL = SQL & " ORDER by id ASC " Set rs = Server.CreateObject("ADODB.Recordset") ' rs.PageSize = 10 ' rs.CacheSize = 5 ' rs.CursorLocation = adUseClient rs.Open SQL, connStr, adOpenForwardOnly, adLockReadOnly, adCmdTableDirect ' If Len(Request("pagenum")) = 0 Then 'a rs.AbsolutePage = 1 ' Else ' If CInt(Request("pagenum")) <= rs.PageCount Then ' rs.AbsolutePage = Request("pagenum") ' Else ' rs.AbsolutePage = 1 ' End If ' End If ' Dim abspage, pagecnt ' abspage = rs.AbsolutePage ' pagecnt = rs.PageCount If Not rs.EOF Then ' Response.Write "PageCount : " & rs.PageCount & "<br>" & vbcrlf ' Response.Write "Absolute Page : " & rs.AbsolutePage & "<br>" & vbcrlf Response.Write "Total number of records : " & rs.RecordCount & "<br><br>" & vbcrlf Dim fldF, intRec%> <form method="post" action="pageing2update.asp"> <%'<form method="post" action="pageing4.asp"> '<form method="post" action="pageing2update3.asp"> Response.Write "<table border=1 align=center cellpadding=3 cellspacing=0><thead><tr>" For Each fldF in rs.Fields Response.Write "<td>" & fldF.Name & "</td>" Next Response.Write "<td><input type=""submit"" value=""Add New""></td></tr></thead><tbody>" For intRec=1 To rs.PageSize If Not rs.EOF Then Response.Write "<tr>" For Each fldF in rs.Fields Response.Write "<td>" & fldF.Value & "</td>" Next%> <td><%=rs("id")%> <input type="hidden" name="id_<%=intRec%>" value="<%=rs.Fields("id").Value%>"> <textarea name="gemetria_<%=intRec%>" id="gemetria_<%=intRec%>"> <%'Dim TheString, ArrayTemp, NumberOfWords, Word TheString = rs("text_data") ArrayTemp = split(TheString, " ") NumberOfWords = UBound(ArrayTemp) + 1 'dont need Response.Write "<P>The String is: " & TheString ' Response.Write "<P><i>Number of words:</i> " & NumberOfWords ' Response.Write "<BR>Total=" & computeValue(TheString) 'dont need Response.Write "<P>Here are the words which compose that string: " For Each Word In ArrayTemp ' Response.Write "<BR><font size=""5"" face=""BSTHebrew"">" & word & "</font>=" response.write computeValue(word) response.write " + " next %> </textarea></td> <% Response.Write "<tr>" rs.MoveNext End If Next Response.Write "</tbody></table><p>" ' Now showing first, next, back, last buttons. ' Response.Write "<div align=""center"">" & vbcrlf ' Response.Write "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?pagenum=1"">First Page</a>" ' Response.Write " | " ' If abspage = 1 Then ' Response.Write "<span style=""color:silver;"">Previous Page</span>" ' Else ' Response.Write "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?pagenum=" & abspage - 1 & """>Previous Page</a>" ' End If ' Response.Write " | " ' If abspage < pagecnt Then ' Response.Write "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?pagenum=" & abspage + 1 & """>Next Page</a>" ' Else ' Response.Write "<span style=""color:silver;"">Next Page</span>" ' End If ' Response.Write " | " ' Response.Write "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?pagenum=" & pagecnt & """>Last Page</a>" ' Response.Write "</div>" & vbcrlf%> </form> <% Else Response.Write "No records found!" End If rs.Close Set rs = Nothing %> </body> </html> Code (markup):
I gave your code about a 5 minute overview. First, to get help, you *really* need to better format your code. Mixing so much asp and html code only slows things down. (Disclaimer before someone else points it out: Not significantly, for sure -- but there is a decrease in performance.) It also makes your code *very* hard to read. Put all of your asp code in routines and leave html out of them to make reading your code (which translates to maintaining your code) easier. Now to your question -- it's impossible to tell why it's not updating all records, because you didn't include your update statement. The code above only includes SELECT statements. You reference pageing2update.asp as the result page for your form, but you don't include the code in the sample above.