สอบถามเกี่ยวกับ mySmartUpload ในการส่งค่าข้ามฟอรมเพื่อทำการแก้ไข

Dim a,b,c,d,e,f,g,testVare

a=DatePart("yyyy",Date())
b=DatePart("m",Date())
c=DatePart("d",Date())
d=DatePart("ww",Date())
e=Hour(Now())
f=Minute(Now())
g=Second(Now())
testVare=a&b&c&d&e&f&g


        Dim mySmartUpload
	Dim Conn,strSQL,objExec,id

	'*** Create Object ***'	
	Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

	'*** Upload Files ***'
	mySmartUpload.Upload
	

	'*** Upload file1 ***'
	If  mySmartUpload.Files("sap_re_pb").FileName <>"" Then
		mySmartUpload.Files("sap_re_pb").SaveAs(Server.MapPath("AdminFiles/" &testVare& mySmartUpload.Files("sap_re_pb").FileName))
		Response.write mySmartUpload.Files("sap_re_pb").Name & " Uploaded.<br>"

	
	
	Set Conn = Server.Createobject("ADODB.Connection")
	Conn.Open "DRIVER={MySQL ODBC 5.1 Driver}; SERVER=localhost;UID=root; " & _
	"pwd=root;database=tknrepair;option=16384;"
	strSQL = "UPDATE job_sap SET "
	strSQL = strSQL&"sap_re_pb = '"&testVare&mySmartUpload.Files("sap_re_pb").FileName&"' "
	strSQL = strSQL&",sap_it_comment = '"&mySmartUpload.Form("sap_it_comment")&"' "
	strSQL = strSQL&",sap_date_final = '"&mySmartUpload.Form("sap_date_final")&"' "
	strSQL = strSQL&",sap_time_final = '"&mySmartUpload.Form("sap_time_final")&"' "
	strSQL = strSQL&",sap_status) = '"&mySmartUpload.Form("sap_status)")&"' "
	strSQL = strSQL&"WHERE sap_id = '"&mySmartUpload.Form("SAP_ID")&"' "
	Set objExec = Conn.Execute(strSQL)  ====>> line 55
	If Err.Number = 0 Then
		Response.write("Save Done.")
	Else
		Response.write("Error Save ["&strSQL&"] ("&Err.Description&")")
	End IF
	Conn.Close()
	Set objExec = Nothing
	Set Conn = Nothing
	
	else
	Response.Redirect "Admin_formComPsap.asp?errtext= Plest Attach File PB"
	end if