Welcome to WebmasterWorld Guest from 54.197.116.116

Forum Moderators: ocean10000

Message Too Old, No Replies

Simple read from site

asp

   
10:39 pm on May 10, 2006 (gmt 0)

5+ Year Member



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

12:28 pm on May 11, 2006 (gmt 0)

5+ Year Member



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)

4:27 pm on May 11, 2006 (gmt 0)

5+ Year Member



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?
11:38 pm on May 19, 2006 (gmt 0)

5+ Year Member



Can any1 help?
11:43 pm on May 19, 2006 (gmt 0)

WebmasterWorld Senior Member 10+ Year Member



A quick thought - the MSXML dll expects a valid XML document (and most webpages aren't). Perhaps try the WINHTTP component?
11:49 pm on May 19, 2006 (gmt 0)

5+ Year Member



Can you show me an example? And how do I pass GET values to a url?
4:00 am on May 20, 2006 (gmt 0)

10+ Year Member



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