set XML_RS=Server.CreateObject("ADODB.Recordset")
set XML_DOC=Server.CreateObject("MSXML2.DOMDocument")
XML_DOC.load Request
XML_RS.open XML_DOC
set XML_DOC=nothing
set DB_CN=Server.CreateObject("ADODB.Connection")
set DB_RS=Server.CreateObject("ADODB.Recordset")
DB_CN.Open connstring
DB_RS.Open "SELECT char1,photo1 FROM tablename WHERE 1=0",DB_CN,2,3
DB_RS.AddNew
DB_RS("char1")=XML_RS("VARCHAR")
DB_RS("photo1").AppendChunk XML_RS("photo")
DB_RS.Update
DB_RS.Close
DB_CN.Close
set DB_RS=nothing
set DB_CN=nothing
set XML_RS=Server.CreateObject("ADODB.Recordset")
set XML_DOC=Server.CreateObject("MSXML2.DOMDocument")
XML_DOC.load Request
XML_RS.open XML_DOC
set XML_DOC=nothing
set DB_CN=Server.CreateObject("ADODB.Connection")
set DB_RS=Server.CreateObject("ADODB.Recordset")
DB_CN.Open connstring
DB_RS.Open "SELECT char1,photo1 FROM tablename WHERE 1=0",DB_CN,2,3
DB_RS.AddNew
DB_RS("char1")=XML_RS("char1")
DB_RS("photo1").AppendChunk XML_RS("photo1")
DB_RS.Update
DB_RS.Close
DB_CN.Close
set DB_RS=nothing
set DB_CN=nothing