<%@ Language=VBScript %>
<%
Dim objUpload
Dim strFileName
Dim objConn
Dim objRs
Dim lngFileID
strTable = Request.QueryString("pictable")
strField = Request.QueryString("picfield")
sWhere = Request.QueryString("where")
strPK = Request.QueryString("PK")
strBack = Request.QueryString("Back")
if strBack="" then
strBack=1
else
strBack = CStr(CLng(strBack)+1)
end if
if Request.TotalBytes>0 then
' Instantiate Upload Class
Set objUpload = New clsUpload
' Grab the file name
strFileName = objUpload.Fields("File1").FileName
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRs = Server.CreateObject("ADODB.Recordset")
objConn.Open strConnection
objRs.Open "SELECT " & strPK & ", " & AddWrappers(strField) & " FROM " & AddWrappers(strTable) & " WHERE " & sWhere, objConn, adOpenKeyset, adLockOptimistic
objRs.Fields(strField).AppendChunk objUpload("File1").BLOB & ChrB(0)
objRs.Update
objRs.Close
Set objRs = Nothing
Set objConn = Nothing
Set objUpload = Nothing
Response.Write "File has been saved in database