Hi Guys,

I really appreciate you, if anyone could help me out of this.


My problem is,

I am developing a visual basic application, there

I am trying to get data from sql server database through web services.

So what I have done sofar is,

I created a ASP file there I wrote the query to take certain numer of strories....

i.e

*********************************************
<%
dim strStoryid
dim strTitle

sSQL = "select top 5 * from LITERATURE order by
Cre_Date desc"

set rs = cn.Execute(sSQL)

rs.save response, 1

Cn.close
Set cn = nothing
set rs = nothing

%>

*********************************************************


then in my visual basic application I have programmed something like this................

Dim oXML As MSXML2.XMLHTTP30
Dim llngPicHeight As Long

Set oXML = New MSXML2.XMLHTTP30
With oXML
.Open "POST", "http://www.mywebsite.com/test/create_text.asp", False
.setRequestHeader "text", "application/x-www-form-urlencoded"
.send
'.sXMLReturned = .responseXML.xml
End With




Set rs = New ADODB.Recordset

Set oStream = New ADODB.Stream
With oStream
.Open
'.WriteText sXMLReturned
.Position = 0

rs.Open oStream

.Close
End With
Set oStream = Nothing

Do While Not rs.EOF

mstrMyTitle = rs("Title")
mintMyStoryId = rs("Story_id")

rs.MoveNext
Loop


The result*********************

I am getting nothing but the error like "the stream is empty"

I do not know how to correct this, if anyone understand me very well, please help me.

Smily