Simple read from site

asp

[FiRe]

Hi,
I do not know ASP but I found part of the code at [asptutorial.info...] and using my patchy visual basic skills I have tried to modify it to make it work.
What it is supposed to do is read the data from a page and output it, after you have sent the appropriate GET variables. I need someone to check this will work, as I am not using it but its just an example to help people on my site:

<%

dim user, auth, length, type, url, contents

' Your User ID
user = "123"

' Your Auth Code
auth = "28F21DZ"

' Length
length = "32"

' Type
type = "1"

' Create the url
url = "http://www.site.com/?user=" & user & "&auth=" & auth & "&length=" & length & "&type=" & type

' Query page
Set GetConnection = CreateObject("Microsoft.XMLHTTP")
GetConnection.Open "get", url, False
GetConnection.Send
contents = GetConnection.responseText
Set GetConnection = Nothing

' Check for errors
If (InStr(contents, "error") > 0) Then
response.write("There was an error generating your data!")

' Output serial key
Else
response.write("Thank you, your data is: " & contents)
End If

%>

If there are any errors please let me know! Also are there any better ways to improve this? Finally can anyone provide a .NET version of this?
Thanks

[T_Virus]

Can't check you code right now but I use this regularly:

Response.Buffer = True
Dim objXMLHTTP, xml
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", "http://www.domain.com/", False
xml.Send
Response.Write(xml.responseText)

[FiRe]

Yeh I have similar but I think the way to pass GET values is wrong in my script as I am putting them in the url?

[FiRe]

Can any1 help?

[Iguana]

A quick thought - the MSXML dll expects a valid XML document (and most webpages aren't). Perhaps try the WINHTTP component?

[FiRe]

Can you show me an example? And how do I pass GET values to a url?

[macrost]

Try this:
Set objWinHttp = Server.CreateObject("WinHttp.WinHttpRequest.5")
objWinHttp.Open "GET", url
objWinHttp.Send
strHTML = objWinHttp.ResponseText
Set objWinHttp = Nothing