<%sConn = "your_connection_string"
sXML = "your_xml_file.xml"
sSQL = "SELECT * FROM your_table_name WHERE 1=0"

Set oDoc    = CreateObject("Msxml2.DOMDocument")
With oDoc
    .async              = False
    .validateOnParse    = False
    .preserveWhiteSpace = False
    .resolveExternals   = False
    .load sXML
    If .parseError.errorCode <> 0 Then
        sErrMsg     = .parseError.errorCode & "|" &_
                      .parseError.srcText & "|" & .parseError.reason
        Set oDoc = Nothing
        Response.Write sErrMsg
        Response.End
    End If
End With

Set oConn   = CreateObject("ADODB.Connection")
oConn.Open
oConn.Close
Set oRS = CreateObject("ADODB.RecordSet")
oRS.CursorLocation = 3
oRS.Open sSQL, oConn, 1, 4
Set oNodes = oDoc.selectNodes("//pro")
For i = 0 To oNodes.length-1
    oRS.AddNew
    oRS("pid").Value = oNodes(i).getAttribute("pid")
    oRS("name").Value = oNodes(i).selectSingleNode("name").text
    oRS("category").Value = oNodes(i).selectSingleNode("category").text
    oRS("dw").Value = oNodes(i).selectSingleNode("dw").text
    oRS("brand").Value = oNodes(i).selectSingleNode("brand").text
    oRS("property").Value = oNodes(i).selectSingleNode("property").text
    oRS("stats").Value = oNodes(i).selectSingleNode("stats").text
    oRS("procode").Value = oNodes(i).selectSingleNode("procode").text
    oRS("defaultprice").Value = oNodes(i).selectSingleNode("defaultprice").text
    oRS("kthcartsmoney").Value = oNodes(i).selectSingleNode("kthcartsmoney").text
    oRS("kc").Value = oNodes(i).selectSingleNode("kc").text
    oRS("description").Value = oNodes(i).selectSingleNode("description/img").getAttribute("src")
    oRS("pic").Value = oNodes(i).selectSingleNode("pic").text
    oRS("gg").Value = oNodes(i).selectSingleNode("gg").text
    oRS("weight").Value = oNodes(i).selectSingleNode("weight").text
    oRS("material").Value = oNodes(i).selectSingleNode("material").text
    oRS("boxing").Value = oNodes(i).selectSingleNode("boxing").text
    oRS("origin").Value = oNodes(i).selectSingleNode("origin").text
    oRS("boxnums").Value = oNodes(i).selectSingleNode("boxnums").text
    oRS("gw").Value = oNodes(i).selectSingleNode("gw").text
    oRS("nw").Value = oNodes(i).selectSingleNode("nw").text
    oRS("smallfile").Value = oNodes(i).selectSingleNode("smallfile").text
    oRS("middlefile").Value = oNodes(i).selectSingleNode("middlefile").text
    oRS("att").Value = oNodes(i).selectSingleNode("att").text
Next
oRS.UpdateBatch
oRS.Close
Set oRS = Nothing
oConn.Close
Set oConn = Nothing
Set oNodes = Nothing
Set oDoc = Nothing
%>