Secured Loans - Myspace Codes - Servidores - Debt Help - Libros
PDA

View Full Version : why not UPDATE all instead of 10 at a time?

gilgalbiblewheel
Apr 21st 2005, 9:57 am
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 "&nbsp;+&nbsp;"
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 "&nbsp;|&nbsp;"

' 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 "&nbsp;|&nbsp;"

' 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 "&nbsp;|&nbsp;"
' 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>
lovethecoast
Apr 30th 2005, 7:38 pm
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.