VB6 code to send serverxmlhttp post to asp

<%<br> 'receiver.asp code<br><br> Dim objXMLDoc<br> Dim objStream<br> Dim strFileName<br> Dim StrPos<br> Dim tempstring<br><br> set objXMLDoc = Server.CreateObject("MSXML.DOMDOCUMENT")<br> objXMLDoc.async = False<br> objXMLDoc.validateOnParse = False<br> <br> If objXMLDoc.load (Request) Then<br> <br> Set objStream = Server.CreateObject("ADODB.Stream")<br> objStream.Type = 1<br> objStream.Open<br> <br> objStream.Write objXMLDoc.selectSingleNode("/Base64Data").nodeTypedValue<br> strFileName = objXMLDoc.selectSingleNode("/Base64Data/@FileName").nodeTypedValue<br><br> strPos = instrrev(strFileName, """)<br> tempstring=right(strfilename,len(strfilename)-strpos)<br> <br> objStream.SaveToFile "c: est"" & tempstring<br> objStream.Close()<br> Set objStream = Nothing<br> else<br> 'Failed to load the document<br> End If<br><br>%><br><br><br>================================================== =========<br>vb6 button code for the app, just past it in, works as is, took me a while<br>to create<br>================================================== =========<br><br>Private Sub Command4_Click()<br> Dim objSXH As New ServerXMLHTTP<br> Dim objDocElem<br> Dim objStream As New ADODB.Stream<br> Dim strFileName As String<br> Dim objXMLDoc As New DOMDocument<br> <br> strFileName = SingleFile.Text<br> objXMLDoc.loadXML ("< Base64Data />")<br><br>'added space between < B, just remove it, post would not happen with it<br> <br> objStream.Type = adTypeBinary<br> objStream.Open<br> objStream.LoadFromFile (strFileName)<br> <br> Set objDocElem = objXMLDoc.documentElement<br> objDocElem.dataType = "bin.base64"<br> objDocElem.nodeTypedValue = objStream.Read<br> <br> objDocElem.setAttribute "FileName", strFileName<br> <br> objSXH.Open "post", "http://localhost/receiver.asp", False<br> objSXH.setRequestHeader "content-type", "text/xml"<br> objSXH.send "Document=" & objXMLDoc.xml<br> <br> If objSXH.Status = 200 Then<br> Text2.Text = "success"<br> Else<br> Text2.Text = "failure"<br> End If<br> Set objSXH = Nothing<br>End Sub<br><br>replace localhost with the URL of the site that houses the receiver.asp.<br><br>If someone could help me get that asp translated to aspx and saving the information into SQL table IMAGE type, would be appreciated.