|Simple read from site|
| 10:39 pm on May 10, 2006 (gmt 0)|
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 = "32"
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
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
response.write("Thank you, your data is: " & contents)
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?
| 12:28 pm on May 11, 2006 (gmt 0)|
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
| 4:27 pm on May 11, 2006 (gmt 0)|
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)|
Can any1 help?
| 11:43 pm on May 19, 2006 (gmt 0)|
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)|
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)|
Set objWinHttp = Server.CreateObject("WinHttp.WinHttpRequest.5")
objWinHttp.Open "GET", url
strHTML = objWinHttp.ResponseText
Set objWinHttp = Nothing