Please Help!!!!!! Database

I'm currently trying to get my updates to go into the database i've been able to get all the updates to work except the one for the image . My program is just storing the image path into the database. But when i try to do this my program bombs and nothing happends can someone please help.

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/acme_website_database.asp" -->
<%
Server.ScriptTimeout = 300 '5 minutes
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.CodePage = 65001
Upload.OverwriteFiles = False

On Error Resume Next
'temporarily save so modifications can be made to file path before uploading to folder
n = Upload.Save

'create file object to access upload info
Set File = Upload.Files("Image")

'get the information entered from the previous page\
ID= upload.form("ID")
Name= upload.form("Name")
Address= upload.form("Address")
City= upload.form("City")
State= upload.form("State")
Zip_Code= upload.form("Zip_Code")
Phone_Number= upload.form("Phone_Number")
Fax_Number= upload.form("Fax_Number")
Alt= upload.form("Alt")

'Check to see if an image was uploaded
If trim(File.FileName) <> Trim("") then
vchImage = "/images/" & File.FileName 'establish the file path for the image
else
vchImage = ""
End if

'checks to make sure that what was uploaded really is an image
For Each File in Upload.Files
If File.ImageType = "UNKNOWN" Then
iUnknownImage = 1
vchImage = ""
Else
'the uploaded file IS an image - save it
File.SaveAsVirtual(vchImage)

'if there is a problem with the save, establish the error message
ErrorNum = Err.Number
Descr = Err.Description
On Error Goto 0
End If
Next

finalimage = vchImage
%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open MM_acme_website_database_STRING
strSql = "UPDATE Locations SET [Name]='" & Name &"', Address='" & Address & "', City = '" & City & "', [State] = '" & State & "', Zip_Code = '" & Zip_Code & "', Phone_Number = '" & Phone_Number & "', Fax_Number = '" & Fax_Number & "', Alt = '" & Alt & "' WHERE ID=" & ID
'Phone_Number = '" & Phone_Number & "', Fax_Number = '" & Fax_Number & "', Alt = '" & Alt & "', Image = '" & vchImage & "' WHERE ID=" & ID
' "City = '" & City & "', "&_
' "State = '" & State & "', "&_
' "Zip_Code = '" & Zip_Code & "', "&_
' "Phone_Number = '" & Phone_Number & "', "&_
' "Fax_Number = '" & Fax_Number & "', "&_
' "Alt = '" & Alt & "', "&_
' "Image = '" & vchImage & "' "&_
' "where ID = "& ID
'Response.write(strSql)
'Response.end
Conn.Execute(strSql)
imgSql = "Update Locations SET Image='" & finalimage & "' WHERE ID=" & ID
Response.write(imgSql)
'Response.end
Conn.Execute(imgSql)
Conn.Close
Set Conn = Nothing


'Response.redirect("")
%>