'   Use of the program is unautorized unless in writing by US Internet Technologies, Inc.
'   order.cgi version 1.0 02/07/2003
' ===========================================================================
    DEFINT a - z
    DIM pa$(100), qu$(100), price#(50)
    DIM qty(50), des$(50), li$(20)
    p = 0: dpath$ = ""
    i = 1: qs = 0
    rm$ = ENVIRON$("REQUEST_METHOD")
    IF rm$  = "POST" THEN
       INPUT "", ev$
       qs = 2
    END IF
    ip$ = ENVIRON$("REMOTE_ADDR")
    host$ = ENVIRON$("REMOTE_HOST")
    port$ = ENVIRON$("SERVER_NAME")
    querytemp$ = ENVIRON$("QUERY_STRING")
    IF querytemp$ <> "" AND qs = 0 THEN ev$ = ENVIRON$("QUERY_STRING"): qs = 1
    agent$ = ENVIRON$("HTTP_USER_AGENT")
    res$ = ENVIRON$("REFERER")

    IF host$ = "" THEN host$ = "NOHOST"
    IF port$ = "" THEN port$ = "NOPORT"
    IF ip$ = "" THEN ip$ = "REMOTE_ADDR=0.0.0.0"
    rip$ = MID$(ip$, INSTR(1, ip$, "=") + 1)

    IF ev$ <> "QUERY_STRING=" THEN GOSUB break

    PRINT "Content-type: text/html"
    PRINT ""

REM for DEBUG

print "-----------------------------------------------------------------------<br>"
'gosub dump
print "-----------------------------------------------------------------------<br>"


REM p=paramters, pa$() = parameters and values, qu$() = values only

'print ev$+"<br>"
'print ip$+"<br>"
'print rm$+"<br>"
'print host$+"<br>"
'print port$+"<br>"
'print rip$+"<br>"
'print agent$+"<br>"
'print res$+"<br>"
'print "<br>"

'------------  YOUR CGI CODE IN QB2C goes HERE..

    if qu$(1) = "SUBMIT" then
       print zzz$+"<br>"
       print zzzz$+"<br>"
    elseif instr(1,pa$(i),"First Name") <> 0 then
            df$="wasfirstname.html"
	    gosub disp
    else
        print "ERROR in processing"
    end if
    print "</html>"
    end
'------------------------------ START OF SUBS ------------------------------
disp:
    OPEN "../" + df$ FOR INPUT AS 1
    WHILE NOT EOF(1)
          INPUT #1, aa$

          print aa$
    WEND
    CLOSE 1
    RETURN

'------------ BELOW HERE IS MIKES, DO NOT TOUCH ------------------------------
'*****************************************************
'   ev$ =the query string
'   p   =number of parameters
'   pa$()=parameter array with name_of_parameter=parameter
'   qu$()=parameter array the parameter only
'*****************************************************
break:
    i = 1
    FOR j = 1 TO LEN(ev$)
        IF MID$(ev$, j, 1) = "&" THEN
           i = i + 1
        ELSE
              pa$(i) = pa$(i) + MID$(ev$, j, 1)
        END IF
    NEXT
    p = i  
    FOR i = 1 TO p
      temp$ = ""
      FOR j = 1 TO LEN(pa$(i))
        ch$ = MID$(pa$(i), j, 1)
        IF ch$ = "+" THEN   
           temp$ = temp$ + " "  
        ELSEIF ch$ = "%" THEN
           num$ = MID$(pa$(i), j + 1, 2)
           num1 = ASC(MID$(num$, 1, 1))
           num2 = ASC(MID$(num$, 2, 1))
           IF num1 >= 65 THEN
             num1 = num1 - 7
           END IF
           IF num2 >= 65 THEN
             num2 = num2 - 7
           END IF
           num = ((num1 - 48) * 16) + (num2 - 48)
'kill ~ for our parsing character.
           IF CHR$(num) <> "~" THEN
              if num <> 0 and num <> 10 and num <> 13 then
                 temp$ = temp$ + CHR$(num)
              end if
           END IF
           j = j + 2
        ELSE
           temp$ = temp$ + ch$   
        END IF
      NEXT
      pa$(i) = temp$
                
      IF INSTR(1, pa$(i), "WHO") <> 0 THEN
         idm$ = qu$(i)
      END IF
             
      IF INSTR(1, pa$(i), "=") = 0 THEN pa$(i) = "=" + pa$(i)
      qu$(i) = MID$(pa$(i), INSTR(1, pa$(i), "="))
      IF LEN(qu$(i)) > 1 THEN 
         qu$(i) = MID$(qu$(i), 2) 
      ELSE 
         qu$(i) = ""
      END IF
    NEXT
    RETURN

dump:
        print ev$
	print "<br>"
        for i = 1 to p
            print i;" "+pa$(i)+"--"+qu$(i)+"<br>"
            print len(qu$(i))
        next
        print p;"<br>"
        return