	[x] Posted via EE Mobile
	Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again.

10/27/2009 at 09:27AM PDT, ID: 24847818

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

7.7

ASP Access Database UPDATE Multiple Rows/Columns

Asked by GegH in Active Server Pages (ASP), Scripting Languages, Web Languages/Standards

I am trying to create a timesheet for our intranet.
I have a form to search for a particular Week Begining date and return a list of entries.
Each Project and Project Taks has a row with an area to enter a number for hours for each day.
Someone logging in would enter a certain task/Project number then through the week add the hours for that task.
Nobody will do this as they complete the task, they will wait to the end of the day or week to fill out the timesheet and so need to update multiple rows at once.
my code returns an error that states the update syntax is wrong. The page has an error saying the current record has been deleted, can you help.
Code is below. This was created in Dreamweaver so maybe lots of errors.

View the Solution FREE for 30 Days

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:

           
           
             <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../Connections/Timesheet.asp" -->
<%
' *** Edit Operations: declare variables
 
Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd
 
Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId
 
Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i
 
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Request.QueryString
End If
 
' boolean to abort record edit
MM_abortEdit = false
 
' query string to execute
MM_editQuery = ""
%>
<%
' *** Update Record: set variables
 
If (CStr(Request("MM_update")) = "form2" And CStr(Request("MM_recordId")) <> "") Then
 
  MM_editConnection = MM_Timesheet_STRING
  MM_editTable = "tbl_TimeLog"
  MM_editColumn = "ID"
  MM_recordId = "" + Request.Form("MM_recordId") + ""
  MM_editRedirectUrl = "TimesheetEd.asp"
  MM_fieldsStr  = "tMon|value"
  MM_columnsStr = "tMon|none,none,NULL"
 
  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, "|")
  MM_columns = Split(MM_columnsStr, "|")
  
  ' set the form values
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
  Next
 
  ' append the query string to the redirect URL
  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
      MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
    End If
  End If
 
End If
%>
<%
' *** Update Record: construct a sql update statement and execute it
 
If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then
 
  ' create the sql update statement
  MM_editQuery = "update " & MM_editTable & " set "
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_formVal = MM_fields(MM_i+1)
    MM_typeArray = Split(MM_columns(MM_i+1),",")
    MM_delim = MM_typeArray(0)
    If (MM_delim = "none") Then MM_delim = ""
    MM_altVal = MM_typeArray(1)
    If (MM_altVal = "none") Then MM_altVal = ""
    MM_emptyVal = MM_typeArray(2)
    If (MM_emptyVal = "none") Then MM_emptyVal = ""
    If (MM_formVal = "") Then
      MM_formVal = MM_emptyVal
    Else
      If (MM_altVal <> "") Then
        MM_formVal = MM_altVal
      ElseIf (MM_delim = "'") Then  ' escape quotes
        MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
      Else
        MM_formVal = MM_delim + MM_formVal + MM_delim
      End If
    End If
    If (MM_i <> LBound(MM_fields)) Then
      MM_editQuery = MM_editQuery & ","
    End If
    MM_editQuery = MM_editQuery & MM_columns(MM_i) & " = " & MM_formVal
  Next
  MM_editQuery = MM_editQuery & " where " & MM_editColumn & " = " & MM_recordId
 
  If (Not MM_abortEdit) Then
    ' execute the update
    Set MM_editCmd = Server.CreateObject("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close
 
    If (MM_editRedirectUrl <> "") Then
      Response.Redirect(MM_editRedirectUrl)
    End If
  End If
 
End If
%>
<%
' *** Edit Operations: declare variables
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Request.QueryString
End If
 
' boolean to abort record edit
MM_abortEdit = false
 
' query string to execute
MM_editQuery = ""
%>
<%
Dim rsTimesheet__MMColParam
rsTimesheet__MMColParam = "1"
If (Request.Form("WeekChoice") <> "") Then 
  rsTimesheet__MMColParam = Request.Form("WeekChoice")
End If
%>
<%
Dim rsDate
Dim rsDate_numRows
 
Set rsDate = Server.CreateObject("ADODB.Recordset")
rsDate.ActiveConnection = MM_Timesheet_STRING
rsDate.Source = "SELECT * FROM qry_TimeLog_Week"
rsDate.CursorType = 0
rsDate.CursorLocation = 2
rsDate.LockType = 1
rsDate.Open()
 
rsDate_numRows = 0
%>
<%
Dim rsTime__MMColParam
rsTime__MMColParam = "1"
If (Request.Form("WeekChoice") <> "") Then 
  rsTime__MMColParam = Request.Form("WeekChoice")
End If
%>
 
<%
Dim rsTime
Dim rsTime_numRows
 
Set rsTime = Server.CreateObject("ADODB.Recordset")
rsTime.ActiveConnection = MM_Timesheet_STRING
rsTime.Source = "SELECT * FROM tbl_TimeLog WHERE tWeekBegin = '" + Replace(rsTime__MMColParam, "'", "''") + "'"
rsTime.CursorType = 0
rsTime.CursorLocation = 2
rsTime.LockType = 1
rsTime.Open()
 
rsTime_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
 
Repeat1__numRows = -1
Repeat1__index = 0
rsTime_numRows = rsTime_numRows + Repeat1__numRows
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index
 
Repeat2__numRows = 10
Repeat2__index = 0
rsTime_numRows = rsTime_numRows + Repeat2__numRows
%>
<head>

           
         

20091111-EE-VQP-91 - Hierarchy / EE_QW_3_20080625

1. carrzkiss720,829
2. sybe272,601
3. hielo204,696
4. angelIII169,338
5. x_com106,709
6. R_Harrison101,107
7. ryancys98,848
8. b0lsc0tt95,363
9. jkdt007792,607
10. neeraj52388,506
11. apresto74,890
12. DanielWilson72,330
13. samic40067,360
14. rg2063,580
15. gawai62,650
16. acperkins61,340
17. golfDoctor58,470
18. sunithnair53,765
19. govindaraj...52,288
20. kevp7550,675
21. Badotz49,125
22. DarthSonic47,300
23. daveamour46,990
24. abel46,728
25. _Stilgar_44,034

1. fritz_the...3,975,430
2. alorentz1,929,293
3. amit_g1,339,338
4. hielo1,238,653
5. b0lsc0tt939,845
6. hongjun922,466
7. ap_sajith921,034
8. kevp75918,733
9. WMIF899,748
10. angelIII895,363
11. sybe837,816
12. jitganguly786,812
13. carrzkiss724,769
14. acperkins721,448
15. peh803684,060
16. ryancys679,899
17. neeraj523631,204
18. Silvers5625,555
19. carl_tawn600,110
20. GaryC123576,347
21. apresto525,417
22. golfDoctor520,113
23. SquareHead517,787
24. deighc466,721
25. gladxml429,512

ASP Access Database UPDATE Multiple Rows/Columns

Asked by GegH in Active Server Pages (ASP), Scripting Languages, Web Languages/Standards

About this solution