M
Maximus
Can some one help me with finding the error is this statement?
strSQL_Update = "UPDATE tblWJS_SuperInput SET JobNumber= '"&
strJobNumber &"', " _
& "WeekendingDate = '"& strWeekEndingDate &"', "_
& "CurrentHours = '"& strCurrentHours &"', "_
& "CurrentHoursTaping = '"& strCurrentHoursTaping &"', "_
& "ReportRequired_01 = '"& strReportRequired_01 &"', " _
& "ReportRequired_02 = '"& strReportRequired_02 &"', " _
& "ReportRequired_03 = '"& strReportRequired_03 &"', " _
& "ReportRequired_04 = '"& strReportRequired_04 &"', " _
& "ReportRequired_05 = '"& strReportRequired_05 &"', " _
& "ReportRequired_06 = '"& strReportRequired_06 &"', " _
& "ReportRequired_07 = '"& strReportRequired_07 &"', " _
& "WHERE JobNumber ="&strJobNumber&" AND WeekEndingDate ="&
strWeekEndingDate &""
strConnect = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=\
\CALSJ1\xxxx.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open strConnect
Set objRecordSet = conn.Execute(strSQL_Update)
strSQL_Update = "UPDATE tblWJS_SuperInput SET JobNumber= '"&
strJobNumber &"', " _
& "WeekendingDate = '"& strWeekEndingDate &"', "_
& "CurrentHours = '"& strCurrentHours &"', "_
& "CurrentHoursTaping = '"& strCurrentHoursTaping &"', "_
& "ReportRequired_01 = '"& strReportRequired_01 &"', " _
& "ReportRequired_02 = '"& strReportRequired_02 &"', " _
& "ReportRequired_03 = '"& strReportRequired_03 &"', " _
& "ReportRequired_04 = '"& strReportRequired_04 &"', " _
& "ReportRequired_05 = '"& strReportRequired_05 &"', " _
& "ReportRequired_06 = '"& strReportRequired_06 &"', " _
& "ReportRequired_07 = '"& strReportRequired_07 &"', " _
& "WHERE JobNumber ="&strJobNumber&" AND WeekEndingDate ="&
strWeekEndingDate &""
strConnect = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=\
\CALSJ1\xxxx.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open strConnect
Set objRecordSet = conn.Execute(strSQL_Update)