problem with webservice

<i><b>Originally posted by : pauline</b></i><br />Hi Guys,<br /><br />I really appreciate you, if anyone could help me out of this.<br /><br /><br />My problem is,<br /><br />I am developing a visual basic application, there<br /><br />I am trying to get data from sql server database through web services.<br /><br />So what I have done sofar is,<br /><br />I created a ASP file there I wrote the query to take certain numer of strories....<br /><br />i.e<br /><br />*********************************************<br /><%<br />dim strStoryid<br />dim strTitle<br /><br />sSQL = "select top 5 * from LITERATURE order by<br />Cre_Date desc"<br /><br />set rs = cn.Execute(sSQL)<br /><br />rs.save response, 1<br /><br />Cn.close<br />Set cn = nothing<br />set rs = nothing<br /><br />%><br /><br />************************************************** *******<br /><br /><br />then in my visual basic application I have programmed something like this................<br /><br />Dim oXML As MSXML2.XMLHTTP30<br />Dim llngPicHeight As Long<br /><br />Set oXML = New MSXML2.XMLHTTP30<br />With oXML<br /> .Open "POST", "http://www.mywebsite.com/test/create_text.asp", "FALSE"<br /> .setRequestHeader "text", "application/x-www-form-urlencoded"<br /> .send<br /> '.sXMLReturned = .responseXML.xml<br />End With<br /><br /><br /><br /><br />Set rs = New ADODB.Recordset<br /> <br /> Set oStream = New ADODB.Stream<br /> With oStream<br /> .Open<br /> '.WriteText sXMLReturned<br /> .Position = 0<br /> <br /> rs.Open oStream<br /> <br /> .Close<br /> End With<br /> Set oStream = Nothing<br /> <br /> Do While Not rs.EOF<br /> <br /> mstrMyTitle = rs("Title")<br /> mintMyStoryId = rs("Story_id")<br /> <br /> rs.MoveNext<br /> Loop<br /><br /><br />The result*********************<br /><br />I am getting nothing but the error like "the stream is empty"<br /><br />I do not know how to correct this, if anyone understand me very well, please help me.<br /><br />Smily<br /> <br /> <br />