Option Explicit

'AMAZON GRAB v01	UpDate: 28DEC2003	Author: Ard Haskell
'Copyright notice: most of this vbs portion was gathered from free internet sources.
'Also the aide of Guru Dan Palmer was at play concerning, the wicked check boxes.

Dim oIE, oFSO, path, oFile
Dim ASIN, TYPE_
path = WScript.ScriptFullName
path = Left(path, InstrRev(path, "\"))
'Line 11

'Open up internet explorer window.
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFile = oFSO.CreateTextFile("C:\temp\GRAB_INPUT")
set oIE = Wscript.CreateObject("InternetExplorer.Application")
	oIE.left = 50
	oIE.top = 500
	oIE.height = 225
	oIE.width = 250
	oIE.menubar = 0
	oIE.toolbar = 0
	oIE.statusbar = 0
	oIE.navigate path + "GRAB_FORM.html"
	oIE.visible = 1
'Line 26
Do While (oIE.Busy)
Loop
On Error Resume Next
'Report error if form is closed before submit was hit.
Do
Loop While (oIE.document.script.CheckVal()=0)
If err <> 0 Then
	Wscript.Echo "Sorry, a run time error occured during checking of the" & _
	" the SUBMIT button " & vbCrLf & _
	"Error: " & err.number & " " & _
	"I guess the GRAB form was closed prematurely..."
	WScript.Quit
End If
On Error Goto 0
'Line ?
'User has clicked OK, retrieve the values!
ASIN = "ASIN:" & oIE.Document.ValidForm.GRAB_ASIN.Value
TYPE_ = "Type:" & oIE.Document.ValidForm.GRAB_TYPE.Value

oIE.Quit()
Set oIE = Nothing
'Line 53
'Write the variables to the text file.
oFile.Writeline (ASIN)
oFile.Writeline (Type_)

oFile.Close
Wscript.Quit()
'Line ?
'The End