Using WinWedge with Visual Basic to pass serial data to an active server page

 Sub Main()
' *** This routine launches Default Browser with Custom URL

'Declare Variables
Dim ExecPath As String, strStart, nResult, MyURL$

' Get the directory Path where this code is executing
' (To retrieve values from setup.ini file stored in same
' directory)
ExecPath = IIf("/" = Mid(App.Path, Len(App.Path)), App.Path, App.Path & "")

' Read URL value from setup.ini into MyURL$ variable
MyURL$ = mfncGetFromIni("Startup", "URL", ExecPath & "Setup.ini")

' Append Wedge data to a string representing a URL:
strStart = "Start.exe " & MyURL$ & Form1.Text1.Text
' (Start.exe is a program that is part of the Windows
' Operating system that allows you to run a program by its
' associated extension. MyURL$ is the main part of the URL
' Specified in setup.ini:
' e.g., "Http://www.website.com/myfile.asp?Wedgedata="
' Form1.Text1.Text is the data from WinWedge.
' By concatenating all of these elements together we can use
' them in a shell command to launch the browser and open the
' page.

'Launch the Browser with the URL - vbhide hides the dos window
' that appears when start.exe is run
nResult = Shell(strStart, vbHide)
End Sub

 Sub Main_b()
  Shell "Start.exe http://www.website.com/myfile.asp?Wedgedata=" &   Form1.Text1.Text, vbHide
End Sub

<% @Language = VBScript %> <%
' declare variables
Dim strWedgeData

' retrieve wedgedata information
strWedgeData = Trim(Request.QueryString("WedgeData"))

%>

<%= strWedgeData %>

 <% @Language = VBScript %>
<%
' declare variables
Dim strWedgeData, i
Dim StartPos, MyVar, DelimPos
Dim Myarray(3) ' Specify the number of fields you need to parse between the parenthesis

'retrieve wedgedata information
strWedgeData = Trim(Request.QueryString("WedgeData"))

' How to separate multiple comma delimited fields from the single strWedgeData variable:

' Add Terminating delimiter
MyVar = strWedgeData & ","

' starting position in the string - start at 1st byte
StartPos = 1

' scan until we reach the end of the string
While StartPos < Len(MyVar)

  ' find the next comma delimiter
  DelimPos = InStr(StartPos, MyVar, ",")

  ' pull out a data point between the starting position and the position of the delimiter
  DataPoint = Mid(MyVar, StartPos, DelimPos - StartPos)

  ' update the starting position (skip over the delimiter)
  StartPos = DelimPos + 1

  ' Field counter
  fCount = fCount + 1

  ' save the current data point
  Myarray(fCount) = DataPoint

' go get the next point
Wend

%>

<%

'Loop through each record in the array and display the data
For i = 1 to Ubound(Myarray)
Response.Write("Field " & i & " = " & Myarray(i) & "
")
next 'i

%>

'Loop through each record in the array and display the data 'Unless it is field 3 For i = 1 to Ubound(Myarray) If i <> 3 then Response.Write("Field " & i & " = " & Myarray(i) & " ") End if next 'i