<% getHeader %>


SMITHER'S OASIS FLORAL PRODUCTS

Acme | Brody | Bettalic Balloons | Design Master | Floralife
General Wax/Candle Artisan | Giftware | John Henry
Pokon Chrysal |Smither's Oasis | Syndicate Sales | Trimar, Inc.
Unlimited Container | Vacuum | Western Pulp | Winward Silks
 






















Previous Page --------------------------------------------------------------------------------------------------------------------- Next Page
 

------------------------------------------------------------------------------------------------------------


Contact Us | Where to buy | Map & Directions | Policies | About Us | Specials | Home
© 2002 Mt. Eden Floral Company, All rights reserved.
<% end sub %> <% sub preserveForm(frmName) index = request.form().count 'dim frmName() redim tmpArray(index) i = 0 for each item in request.form tmp = request.form(item) 'response.write(item & " = " & tmp & "
") tmpArray(i) = item &"="&tmp i = i + 1 next 'for i = lbound(tmpArray) to ubound(tmpArray)-1 ' response.write("tmpArray[" & i & "] = " & tmpArray(i) & "
") 'next session(frmName) = tmpArray end sub sub getFormContents(frmName) formName = frmName flush = request("flush") if (flush) then unloadForm frmName else ' response.write (frmName) tmpArray = session(frmName) %> <% end if end sub sub unloadForm(frmName) session(frmName) = "" end sub ' ============================================================================== ' Subroutine : requireLevel(userlevels) ' verifies that the level is correct ' parameters : userlevels (ARRAY) ' ============================================================================== statusArray = Array("Not Sent", "Sent", "Assigned", "Confirmed", "Complete") function getrandom() Randomize getrandom = Rnd end function sub requireLevel(userlevels) for i = 0 to ubound(userlevels) if userlevels(i) = cint(Session("usertype")) then successFlag = TRUE end if next if (successFlag = TRUE) then 'you are of the correct level else openHTML "User Access Restriction" var1 = 0 var2 = 0 openTable var1,var2,0 %> <% end sub %> <% sub preserveForm(frmName) index = request.form().count 'dim frmName() redim tmpArray(index) i = 0 for each item in request.form tmp = request.form(item) 'response.write(item & " = " & tmp & "
") tmpArray(i) = item &"="&tmp i = i + 1 next 'for i = lbound(tmpArray) to ubound(tmpArray)-1 ' response.write("tmpArray[" & i & "] = " & tmpArray(i) & "
") 'next session(frmName) = tmpArray end sub sub getFormContents(frmName) formName = frmName flush = request("flush") if (flush) then unloadForm frmName else ' response.write (frmName) tmpArray = session(frmName) %> <% end if end sub sub unloadForm(frmName) session(frmName) = "" end sub ' ============================================================================== ' Subroutine : requireLevel(userlevels) ' verifies that the level is correct ' parameters : userlevels (ARRAY) ' ============================================================================== statusArray = Array("Not Sent", "Sent", "Assigned", "Confirmed", "Complete") function getrandom() Randomize getrandom = Rnd end function sub requireLevel(userlevels) for i = 0 to ubound(userlevels) if userlevels(i) = cint(Session("usertype")) then successFlag = TRUE end if next if (successFlag = TRUE) then 'you are of the correct level else openHTML "User Access Restriction" var1 = 0 var2 = 0 openTable var1,var2,0 %> <% end sub %> <% sub preserveForm(frmName) index = request.form().count 'dim frmName() redim tmpArray(index) i = 0 for each item in request.form tmp = request.form(item) 'response.write(item & " = " & tmp & "
") tmpArray(i) = item &"="&tmp i = i + 1 next 'for i = lbound(tmpArray) to ubound(tmpArray)-1 ' response.write("tmpArray[" & i & "] = " & tmpArray(i) & "
") 'next session(frmName) = tmpArray end sub sub getFormContents(frmName) formName = frmName flush = request("flush") if (flush) then unloadForm frmName else ' response.write (frmName) tmpArray = session(frmName) %> <% end if end sub sub unloadForm(frmName) session(frmName) = "" end sub ' ============================================================================== ' Subroutine : requireLevel(userlevels) ' verifies that the level is correct ' parameters : userlevels (ARRAY) ' ============================================================================== statusArray = Array("Not Sent", "Sent", "Assigned", "Confirmed", "Complete") function getrandom() Randomize getrandom = Rnd end function sub requireLevel(userlevels) for i = 0 to ubound(userlevels) if userlevels(i) = cint(Session("usertype")) then successFlag = TRUE end if next if (successFlag = TRUE) then 'you are of the correct level else openHTML "User Access Restriction" var1 = 0 var2 = 0 openTable var1,var2,0 %> <% end sub %> <% sub preserveForm(frmName) index = request.form().count 'dim frmName() redim tmpArray(index) i = 0 for each item in request.form tmp = request.form(item) 'response.write(item & " = " & tmp & "
") tmpArray(i) = item &"="&tmp i = i + 1 next 'for i = lbound(tmpArray) to ubound(tmpArray)-1 ' response.write("tmpArray[" & i & "] = " & tmpArray(i) & "
") 'next session(frmName) = tmpArray end sub sub getFormContents(frmName) formName = frmName flush = request("flush") if (flush) then unloadForm frmName else ' response.write (frmName) tmpArray = session(frmName) %> <% end if end sub sub unloadForm(frmName) session(frmName) = "" end sub ' ============================================================================== ' Subroutine : requireLevel(userlevels) ' verifies that the level is correct ' parameters : userlevels (ARRAY) ' ============================================================================== statusArray = Array("Not Sent", "Sent", "Assigned", "Confirmed", "Complete") function getrandom() Randomize getrandom = Rnd end function sub requireLevel(userlevels) for i = 0 to ubound(userlevels) if userlevels(i) = cint(Session("usertype")) then successFlag = TRUE end if next if (successFlag = TRUE) then 'you are of the correct level else openHTML "User Access Restriction" var1 = 0 var2 = 0 openTable var1,var2,0 %> <% end sub %> <% sub preserveForm(frmName) index = request.form().count 'dim frmName() redim tmpArray(index) i = 0 for each item in request.form tmp = request.form(item) 'response.write(item & " = " & tmp & "
") tmpArray(i) = item &"="&tmp i = i + 1 next 'for i = lbound(tmpArray) to ubound(tmpArray)-1 ' response.write("tmpArray[" & i & "] = " & tmpArray(i) & "
") 'next session(frmName) = tmpArray end sub sub getFormContents(frmName) formName = frmName flush = request("flush") if (flush) then unloadForm frmName else ' response.write (frmName) tmpArray = session(frmName) %> <% end if end sub sub unloadForm(frmName) session(frmName) = "" end sub ' ============================================================================== ' Subroutine : requireLevel(userlevels) ' verifies that the level is correct ' parameters : userlevels (ARRAY) ' ============================================================================== statusArray = Array("Not Sent", "Sent", "Assigned", "Confirmed", "Complete") function getrandom() Randomize getrandom = Rnd end function sub requireLevel(userlevels) for i = 0 to ubound(userlevels) if userlevels(i) = cint(Session("usertype")) then successFlag = TRUE end if next if (successFlag = TRUE) then 'you are of the correct level else openHTML "User Access Restriction" var1 = 0 var2 = 0 openTable var1,var2,0 %> <% end sub %> <% sub preserveForm(frmName) index = request.form().count 'dim frmName() redim tmpArray(index) i = 0 for each item in request.form tmp = request.form(item) 'response.write(item & " = " & tmp & "
") tmpArray(i) = item &"="&tmp i = i + 1 next 'for i = lbound(tmpArray) to ubound(tmpArray)-1 ' response.write("tmpArray[" & i & "] = " & tmpArray(i) & "
") 'next session(frmName) = tmpArray end sub sub getFormContents(frmName) formName = frmName flush = request("flush") if (flush) then unloadForm frmName else ' response.write (frmName) tmpArray = session(frmName) %> <% end if end sub sub unloadForm(frmName) session(frmName) = "" end sub ' ============================================================================== ' Subroutine : requireLevel(userlevels) ' verifies that the level is correct ' parameters : userlevels (ARRAY) ' ============================================================================== statusArray = Array("Not Sent", "Sent", "Assigned", "Confirmed", "Complete") function getrandom() Randomize getrandom = Rnd end function sub requireLevel(userlevels) for i = 0 to ubound(userlevels) if userlevels(i) = cint(Session("usertype")) then successFlag = TRUE end if next if (successFlag = TRUE) then 'you are of the correct level else openHTML "User Access Restriction" var1 = 0 var2 = 0 openTable var1,var2,0 %> <% end sub %> <% sub preserveForm(frmName) index = request.form().count 'dim frmName() redim tmpArray(index) i = 0 for each item in request.form tmp = request.form(item) 'response.write(item & " = " & tmp & "
") tmpArray(i) = item &"="&tmp i = i + 1 next 'for i = lbound(tmpArray) to ubound(tmpArray)-1 ' response.write("tmpArray[" & i & "] = " & tmpArray(i) & "
") 'next session(frmName) = tmpArray end sub sub getFormContents(frmName) formName = frmName flush = request("flush") if (flush) then unloadForm frmName else ' response.write (frmName) tmpArray = session(frmName) %> <% end if end sub sub unloadForm(frmName) session(frmName) = "" end sub ' ============================================================================== ' Subroutine : requireLevel(userlevels) ' verifies that the level is correct ' parameters : userlevels (ARRAY) ' ============================================================================== statusArray = Array("Not Sent", "Sent", "Assigned", "Confirmed", "Complete") function getrandom() Randomize getrandom = Rnd end function sub requireLevel(userlevels) for i = 0 to ubound(userlevels) if userlevels(i) = cint(Session("usertype")) then successFlag = TRUE end if next if (successFlag = TRUE) then 'you are of the correct level else openHTML "User Access Restriction" var1 = 0 var2 = 0 openTable var1,var2,0 %> <% end sub %> <% sub preserveForm(frmName) index = request.form().count 'dim frmName() redim tmpArray(index) i = 0 for each item in request.form tmp = request.form(item) 'response.write(item & " = " & tmp & "
") tmpArray(i) = item &"="&tmp i = i + 1 next 'for i = lbound(tmpArray) to ubound(tmpArray)-1 ' response.write("tmpArray[" & i & "] = " & tmpArray(i) & "
") 'next session(frmName) = tmpArray end sub sub getFormContents(frmName) formName = frmName flush = request("flush") if (flush) then unloadForm frmName else ' response.write (frmName) tmpArray = session(frmName) %> <% end if end sub sub unloadForm(frmName) session(frmName) = "" end sub ' ============================================================================== ' Subroutine : requireLevel(userlevels) ' verifies that the level is correct ' parameters : userlevels (ARRAY) ' ============================================================================== statusArray = Array("Not Sent", "Sent", "Assigned", "Confirmed", "Complete") function getrandom() Randomize getrandom = Rnd end function sub requireLevel(userlevels) for i = 0 to ubound(userlevels) if userlevels(i) = cint(Session("usertype")) then successFlag = TRUE end if next if (successFlag = TRUE) then 'you are of the correct level else openHTML "User Access Restriction" var1 = 0 var2 = 0 openTable var1,var2,0 %> <% end sub %> <% sub preserveForm(frmName) index = request.form().count 'dim frmName() redim tmpArray(index) i = 0 for each item in request.form tmp = request.form(item) 'response.write(item & " = " & tmp & "
") tmpArray(i) = item &"="&tmp i = i + 1 next 'for i = lbound(tmpArray) to ubound(tmpArray)-1 ' response.write("tmpArray[" & i & "] = " & tmpArray(i) & "
") 'next session(frmName) = tmpArray end sub sub getFormContents(frmName) formName = frmName flush = request("flush") if (flush) then unloadForm frmName else ' response.write (frmName) tmpArray = session(frmName) %> <% end if end sub sub unloadForm(frmName) session(frmName) = "" end sub ' ============================================================================== ' Subroutine : requireLevel(userlevels) ' verifies that the level is correct ' parameters : userlevels (ARRAY) ' ============================================================================== statusArray = Array("Not Sent", "Sent", "Assigned", "Confirmed", "Complete") function getrandom() Randomize getrandom = Rnd end function sub requireLevel(userlevels) for i = 0 to ubound(userlevels) if userlevels(i) = cint(Session("usertype")) then successFlag = TRUE end if next if (successFlag = TRUE) then 'you are of the correct level else openHTML "User Access Restriction" var1 = 0 var2 = 0 openTable var1,var2,0 %> <% end sub %> <% sub preserveForm(frmName) index = request.form().count 'dim frmName() redim tmpArray(index) i = 0 for each item in request.form tmp = request.form(item) 'response.write(item & " = " & tmp & "
") tmpArray(i) = item &"="&tmp i = i + 1 next 'for i = lbound(tmpArray) to ubound(tmpArray)-1 ' response.write("tmpArray[" & i & "] = " & tmpArray(i) & "
") 'next session(frmName) = tmpArray end sub sub getFormContents(frmName) formName = frmName flush = request("flush") if (flush) then unloadForm frmName else ' response.write (frmName) tmpArray = session(frmName) %> <% end if end sub sub unloadForm(frmName) session(frmName) = "" end sub ' ============================================================================== ' Subroutine : requireLevel(userlevels) ' verifies that the level is correct ' parameters : userlevels (ARRAY) ' ============================================================================== statusArray = Array("Not Sent", "Sent", "Assigned", "Confirmed", "Complete") function getrandom() Randomize getrandom = Rnd end function sub requireLevel(userlevels) for i = 0 to ubound(userlevels) if userlevels(i) = cint(Session("usertype")) then successFlag = TRUE end if next if (successFlag = TRUE) then 'you are of the correct level else openHTML "User Access Restriction" var1 = 0 var2 = 0 openTable var1,var2,0 %> <% end sub %> <% sub preserveForm(frmName) index = request.form().count 'dim frmName() redim tmpArray(index) i = 0 for each item in request.form tmp = request.form(item) 'response.write(item & " = " & tmp & "
") tmpArray(i) = item &"="&tmp i = i + 1 next 'for i = lbound(tmpArray) to ubound(tmpArray)-1 ' response.write("tmpArray[" & i & "] = " & tmpArray(i) & "
") 'next session(frmName) = tmpArray end sub sub getFormContents(frmName) formName = frmName flush = request("flush") if (flush) then unloadForm frmName else ' response.write (frmName) tmpArray = session(frmName) %> <% end if end sub sub unloadForm(frmName) session(frmName) = "" end sub ' ============================================================================== ' Subroutine : requireLevel(userlevels) ' verifies that the level is correct ' parameters : userlevels (ARRAY) ' ============================================================================== statusArray = Array("Not Sent", "Sent", "Assigned", "Confirmed", "Complete") function getrandom() Randomize getrandom = Rnd end function sub requireLevel(userlevels) for i = 0 to ubound(userlevels) if userlevels(i) = cint(Session("usertype")) then successFlag = TRUE end if next if (successFlag = TRUE) then 'you are of the correct level else openHTML "User Access Restriction" var1 = 0 var2 = 0 openTable var1,var2,0 %> <% end sub %> <% sub preserveForm(frmName) index = request.form().count 'dim frmName() redim tmpArray(index) i = 0 for each item in request.form tmp = request.form(item) 'response.write(item & " = " & tmp & "
") tmpArray(i) = item &"="&tmp i = i + 1 next 'for i = lbound(tmpArray) to ubound(tmpArray)-1 ' response.write("tmpArray[" & i & "] = " & tmpArray(i) & "
") 'next session(frmName) = tmpArray end sub sub getFormContents(frmName) formName = frmName flush = request("flush") if (flush) then unloadForm frmName else ' response.write (frmName) tmpArray = session(frmName) %> <% end if end sub sub unloadForm(frmName) session(frmName) = "" end sub ' ============================================================================== ' Subroutine : requireLevel(userlevels) ' verifies that the level is correct ' parameters : userlevels (ARRAY) ' ============================================================================== statusArray = Array("Not Sent", "Sent", "Assigned", "Confirmed", "Complete") function getrandom() Randomize getrandom = Rnd end function sub requireLevel(userlevels) for i = 0 to ubound(userlevels) if userlevels(i) = cint(Session("usertype")) then successFlag = TRUE end if next if (successFlag = TRUE) then 'you are of the correct level else openHTML "User Access Restriction" var1 = 0 var2 = 0 openTable var1,var2,0 %> <% end sub %> <% sub preserveForm(frmName) index = request.form().count 'dim frmName() redim tmpArray(index) i = 0 for each item in request.form tmp = request.form(item) 'response.write(item & " = " & tmp & "
") tmpArray(i) = item &"="&tmp i = i + 1 next 'for i = lbound(tmpArray) to ubound(tmpArray)-1 ' response.write("tmpArray[" & i & "] = " & tmpArray(i) & "
") 'next session(frmName) = tmpArray end sub sub getFormContents(frmName) formName = frmName flush = request("flush") if (flush) then unloadForm frmName else ' response.write (frmName) tmpArray = session(frmName) %> <% end if end sub sub unloadForm(frmName) session(frmName) = "" end sub ' ============================================================================== ' Subroutine : requireLevel(userlevels) ' verifies that the level is correct ' parameters : userlevels (ARRAY) ' ============================================================================== statusArray = Array("Not Sent", "Sent", "Assigned", "Confirmed", "Complete") function getrandom() Randomize getrandom = Rnd end function sub requireLevel(userlevels) for i = 0 to ubound(userlevels) if userlevels(i) = cint(Session("usertype")) then successFlag = TRUE end if next if (successFlag = TRUE) then 'you are of the correct level else openHTML "User Access Restriction" var1 = 0 var2 = 0 openTable var1,var2,0 %> <% end sub %> <% sub preserveForm(frmName) index = request.form().count 'dim frmName() redim tmpArray(index) i = 0 for each item in request.form tmp = request.form(item) 'response.write(item & " = " & tmp & "
") tmpArray(i) = item &"="&tmp i = i + 1 next 'for i = lbound(tmpArray) to ubound(tmpArray)-1 ' response.write("tmpArray[" & i & "] = " & tmpArray(i) & "
") 'next session(frmName) = tmpArray end sub sub getFormContents(frmName) formName = frmName flush = request("flush") if (flush) then unloadForm frmName else ' response.write (frmName) tmpArray = session(frmName) %> <% end if end sub sub unloadForm(frmName) session(frmName) = "" end sub ' ============================================================================== ' Subroutine : requireLevel(userlevels) ' verifies that the level is correct ' parameters : userlevels (ARRAY) ' ============================================================================== statusArray = Array("Not Sent", "Sent", "Assigned", "Confirmed", "Complete") function getrandom() Randomize getrandom = Rnd end function sub requireLevel(userlevels) for i = 0 to ubound(userlevels) if userlevels(i) = cint(Session("usertype")) then successFlag = TRUE end if next if (successFlag = TRUE) then 'you are of the correct level else openHTML "User Access Restriction" var1 = 0 var2 = 0 openTable var1,var2,0 %> <% end sub %> <% sub preserveForm(frmName) index = request.form().count 'dim frmName() redim tmpArray(index) i = 0 for each item in request.form tmp = request.form(item) 'response.write(item & " = " & tmp & "
") tmpArray(i) = item &"="&tmp i = i + 1 next 'for i = lbound(tmpArray) to ubound(tmpArray)-1 ' response.write("tmpArray[" & i & "] = " & tmpArray(i) & "
") 'next session(frmName) = tmpArray end sub sub getFormContents(frmName) formName = frmName flush = request("flush") if (flush) then unloadForm frmName else ' response.write (frmName) tmpArray = session(frmName) %> <% end if end sub sub unloadForm(frmName) session(frmName) = "" end sub ' ============================================================================== ' Subroutine : requireLevel(userlevels) ' verifies that the level is correct ' parameters : userlevels (ARRAY) ' ============================================================================== statusArray = Array("Not Sent", "Sent", "Assigned", "Confirmed", "Complete") function getrandom() Randomize getrandom = Rnd end function sub requireLevel(userlevels) for i = 0 to ubound(userlevels) if userlevels(i) = cint(Session("usertype")) then successFlag = TRUE end if next if (successFlag = TRUE) then 'you are of the correct level else openHTML "User Access Restriction" var1 = 0 var2 = 0 openTable var1,var2,0 %> <% end sub %> <% sub preserveForm(frmName) index = request.form().count 'dim frmName() redim tmpArray(index) i = 0 for each item in request.form tmp = request.form(item) 'response.write(item & " = " & tmp & "
") tmpArray(i) = item &"="&tmp i = i + 1 next 'for i = lbound(tmpArray) to ubound(tmpArray)-1 ' response.write("tmpArray[" & i & "] = " & tmpArray(i) & "
") 'next session(frmName) = tmpArray end sub sub getFormContents(frmName) formName = frmName flush = request("flush") if (flush) then unloadForm frmName else ' response.write (frmName) tmpArray = session(frmName) %> <% end if end sub sub unloadForm(frmName) session(frmName) = "" end sub ' ============================================================================== ' Subroutine : requireLevel(userlevels) ' verifies that the level is correct ' parameters : userlevels (ARRAY) ' ============================================================================== statusArray = Array("Not Sent", "Sent", "Assigned", "Confirmed", "Complete") function getrandom() Randomize getrandom = Rnd end function sub requireLevel(userlevels) for i = 0 to ubound(userlevels) if userlevels(i) = cint(Session("usertype")) then successFlag = TRUE end if next if (successFlag = TRUE) then 'you are of the correct level else openHTML "User Access Restriction" var1 = 0 var2 = 0 openTable var1,var2,0 %> <% end sub %> <% sub preserveForm(frmName) index = request.form().count 'dim frmName() redim tmpArray(index) i = 0 for each item in request.form tmp = request.form(item) 'response.write(item & " = " & tmp & "
") tmpArray(i) = item &"="&tmp i = i + 1 next 'for i = lbound(tmpArray) to ubound(tmpArray)-1 ' response.write("tmpArray[" & i & "] = " & tmpArray(i) & "
") 'next session(frmName) = tmpArray end sub sub getFormContents(frmName) formName = frmName flush = request("flush") if (flush) then unloadForm frmName else ' response.write (frmName) tmpArray = session(frmName) %> <% end if end sub sub unloadForm(frmName) session(frmName) = "" end sub ' ============================================================================== ' Subroutine : requireLevel(userlevels) ' verifies that the level is correct ' parameters : userlevels (ARRAY) ' ============================================================================== statusArray = Array("Not Sent", "Sent", "Assigned", "Confirmed", "Complete") function getrandom() Randomize getrandom = Rnd end function sub requireLevel(userlevels) for i = 0 to ubound(userlevels) if userlevels(i) = cint(Session("usertype")) then successFlag = TRUE end if next if (successFlag = TRUE) then 'you are of the correct level else openHTML "User Access Restriction" var1 = 0 var2 = 0 openTable var1,var2,0 %> <% end sub %> <% sub preserveForm(frmName) index = request.form().count 'dim frmName() redim tmpArray(index) i = 0 for each item in request.form tmp = request.form(item) 'response.write(item & " = " & tmp & "
") tmpArray(i) = item &"="&tmp i = i + 1 next 'for i = lbound(tmpArray) to ubound(tmpArray)-1 ' response.write("tmpArray[" & i & "] = " & tmpArray(i) & "
") 'next session(frmName) = tmpArray end sub sub getFormContents(frmName) formName = frmName flush = request("flush") if (flush) then unloadForm frmName else ' response.write (frmName) tmpArray = session(frmName) %> <% end if end sub sub unloadForm(frmName) session(frmName) = "" end sub ' ============================================================================== ' Subroutine : requireLevel(userlevels) ' verifies that the level is correct ' parameters : userlevels (ARRAY) ' ============================================================================== statusArray = Array("Not Sent", "Sent", "Assigned", "Confirmed", "Complete") function getrandom() Randomize getrandom = Rnd end function sub requireLevel(userlevels) for i = 0 to ubound(userlevels) if userlevels(i) = cint(Session("usertype")) then successFlag = TRUE end if next if (successFlag = TRUE) then 'you are of the correct level else openHTML "User Access Restriction" var1 = 0 var2 = 0 openTable var1,var2,0 %> <% end sub %> <% sub preserveForm(frmName) index = request.form().count 'dim frmName() redim tmpArray(index) i = 0 for each item in request.form tmp = request.form(item) 'response.write(item & " = " & tmp & "
") tmpArray(i) = item &"="&tmp i = i + 1 next 'for i = lbound(tmpArray) to ubound(tmpArray)-1 ' response.write("tmpArray[" & i & "] = " & tmpArray(i) & "
") 'next session(frmName) = tmpArray end sub sub getFormContents(frmName) formName = frmName flush = request("flush") if (flush) then unloadForm frmName else ' response.write (frmName) tmpArray = session(frmName) %> <% end if end sub sub unloadForm(frmName) session(frmName) = "" end sub ' ============================================================================== ' Subroutine : requireLevel(userlevels) ' verifies that the level is correct ' parameters : userlevels (ARRAY) ' ============================================================================== statusArray = Array("Not Sent", "Sent", "Assigned", "Confirmed", "Complete") function getrandom() Randomize getrandom = Rnd end function sub requireLevel(userlevels) for i = 0 to ubound(userlevels) if userlevels(i) = cint(Session("usertype")) then successFlag = TRUE end if next if (successFlag = TRUE) then 'you are of the correct level else openHTML "User Access Restriction" var1 = 0 var2 = 0 openTable var1,var2,0 %> <% end sub %> <% sub preserveForm(frmName) index = request.form().count 'dim frmName() redim tmpArray(index) i = 0 for each item in request.form tmp = request.form(item) 'response.write(item & " = " & tmp & "
") tmpArray(i) = item &"="&tmp i = i + 1 next 'for i = lbound(tmpArray) to ubound(tmpArray)-1 ' response.write("tmpArray[" & i & "] = " & tmpArray(i) & "
") 'next session(frmName) = tmpArray end sub sub getFormContents(frmName) formName = frmName flush = request("flush") if (flush) then unloadForm frmName else ' response.write (frmName) tmpArray = session(frmName) %> <% end if end sub sub unloadForm(frmName) session(frmName) = "" end sub ' ============================================================================== ' Subroutine : requireLevel(userlevels) ' verifies that the level is correct ' parameters : userlevels (ARRAY) ' ============================================================================== statusArray = Array("Not Sent", "Sent", "Assigned", "Confirmed", "Complete") function getrandom() Randomize getrandom = Rnd end function sub requireLevel(userlevels) for i = 0 to ubound(userlevels) if userlevels(i) = cint(Session("usertype")) then successFlag = TRUE end if next if (successFlag = TRUE) then 'you are of the correct level else openHTML "User Access Restriction" var1 = 0 var2 = 0 openTable var1,var2,0 %> <% end sub %> <% sub preserveForm(frmName) index = request.form().count 'dim frmName() redim tmpArray(index) i = 0 for each item in request.form tmp = request.form(item) 'response.write(item & " = " & tmp & "
") tmpArray(i) = item &"="&tmp i = i + 1 next 'for i = lbound(tmpArray) to ubound(tmpArray)-1 ' response.write("tmpArray[" & i & "] = " & tmpArray(i) & "
") 'next session(frmName) = tmpArray end sub sub getFormContents(frmName) formName = frmName flush = request("flush") if (flush) then unloadForm frmName else ' response.write (frmName) tmpArray = session(frmName) %> <% end if end sub sub unloadForm(frmName) session(frmName) = "" end sub ' ============================================================================== ' Subroutine : requireLevel(userlevels) ' verifies that the level is correct ' parameters : userlevels (ARRAY) ' ============================================================================== statusArray = Array("Not Sent", "Sent", "Assigned", "Confirmed", "Complete") function getrandom() Randomize getrandom = Rnd end function sub requireLevel(userlevels) for i = 0 to ubound(userlevels) if userlevels(i) = cint(Session("usertype")) then successFlag = TRUE end if next if (successFlag = TRUE) then 'you are of the correct level else openHTML "User Access Restriction" var1 = 0 var2 = 0 openTable var1,var2,0 %> <% end sub %> <% sub preserveForm(frmName) index = request.form().count 'dim frmName() redim tmpArray(index) i = 0 for each item in request.form tmp = request.form(item) 'response.write(item & " = " & tmp & "
") tmpArray(i) = item &"="&tmp i = i + 1 next 'for i = lbound(tmpArray) to ubound(tmpArray)-1 ' response.write("tmpArray[" & i & "] = " & tmpArray(i) & "
") 'next session(frmName) = tmpArray end sub sub getFormContents(frmName) formName = frmName flush = request("flush") if (flush) then unloadForm frmName else ' response.write (frmName) tmpArray = session(frmName) %> <% end if end sub sub unloadForm(frmName) session(frmName) = "" end sub ' ============================================================================== ' Subroutine : requireLevel(userlevels) ' verifies that the level is correct ' parameters : userlevels (ARRAY) ' ============================================================================== statusArray = Array("Not Sent", "Sent", "Assigned", "Confirmed", "Complete") function getrandom() Randomize getrandom = Rnd end function sub requireLevel(userlevels) for i = 0 to ubound(userlevels) if userlevels(i) = cint(Session("usertype")) then successFlag = TRUE end if next if (successFlag = TRUE) then 'you are of the correct level else openHTML "User Access Restriction" var1 = 0 var2 = 0 openTable var1,var2,0 %> <% end sub %> <% sub preserveForm(frmName) index = request.form().count 'dim frmName() redim tmpArray(index) i = 0 for each item in request.form tmp = request.form(item) 'response.write(item & " = " & tmp & "
") tmpArray(i) = item &"="&tmp i = i + 1 next 'for i = lbound(tmpArray) to ubound(tmpArray)-1 ' response.write("tmpArray[" & i & "] = " & tmpArray(i) & "
") 'next session(frmName) = tmpArray end sub sub getFormContents(frmName) formName = frmName flush = request("flush") if (flush) then unloadForm frmName else ' response.write (frmName) tmpArray = session(frmName) %> <% end if end sub sub unloadForm(frmName) session(frmName) = "" end sub ' ============================================================================== ' Subroutine : requireLevel(userlevels) ' verifies that the level is correct ' parameters : userlevels (ARRAY) ' ============================================================================== statusArray = Array("Not Sent", "Sent", "Assigned", "Confirmed", "Complete") function getrandom() Randomize getrandom = Rnd end function sub requireLevel(userlevels) for i = 0 to ubound(userlevels) if userlevels(i) = cint(Session("usertype")) then successFlag = TRUE end if next if (successFlag = TRUE) then 'you are of the correct level else openHTML "User Access Restriction" var1 = 0 var2 = 0 openTable var1,var2,0 %> <% end sub %> <% sub preserveForm(frmName) index = request.form().count 'dim frmName() redim tmpArray(index) i = 0 for each item in request.form tmp = request.form(item) 'response.write(item & " = " & tmp & "
") tmpArray(i) = item &"="&tmp i = i + 1 next 'for i = lbound(tmpArray) to ubound(tmpArray)-1 ' response.write("tmpArray[" & i & "] = " & tmpArray(i) & "
") 'next session(frmName) = tmpArray end sub sub getFormContents(frmName) formName = frmName flush = request("flush") if (flush) then unloadForm frmName else ' response.write (frmName) tmpArray = session(frmName) %> <% end if end sub sub unloadForm(frmName) session(frmName) = "" end sub ' ============================================================================== ' Subroutine : requireLevel(userlevels) ' verifies that the level is correct ' parameters : userlevels (ARRAY) ' ============================================================================== statusArray = Array("Not Sent", "Sent", "Assigned", "Confirmed", "Complete") function getrandom() Randomize getrandom = Rnd end function sub requireLevel(userlevels) for i = 0 to ubound(userlevels) if userlevels(i) = cint(Session("usertype")) then successFlag = TRUE end if next if (successFlag = TRUE) then 'you are of the correct level else openHTML "User Access Restriction" var1 = 0 var2 = 0 openTable var1,var2,0 %> <% end sub %> <% sub preserveForm(frmName) index = request.form().count 'dim frmName() redim tmpArray(index) i = 0 for each item in request.form tmp = request.form(item) 'response.write(item & " = " & tmp & "
") tmpArray(i) = item &"="&tmp i = i + 1 next 'for i = lbound(tmpArray) to ubound(tmpArray)-1 ' response.write("tmpArray[" & i & "] = " & tmpArray(i) & "
") 'next session(frmName) = tmpArray end sub sub getFormContents(frmName) formName = frmName flush = request("flush") if (flush) then unloadForm frmName else ' response.write (frmName) tmpArray = session(frmName) %> <% end if end sub sub unloadForm(frmName) session(frmName) = "" end sub ' ============================================================================== ' Subroutine : requireLevel(userlevels) ' verifies that the level is correct ' parameters : userlevels (ARRAY) ' ============================================================================== statusArray = Array("Not Sent", "Sent", "Assigned", "Confirmed", "Complete") function getrandom() Randomize getrandom = Rnd end function sub requireLevel(userlevels) for i = 0 to ubound(userlevels) if userlevels(i) = cint(Session("usertype")) then successFlag = TRUE end if next if (successFlag = TRUE) then 'you are of the correct level else openHTML "User Access Restriction" var1 = 0 var2 = 0 openTable var1,var2,0 %> <% end sub %> <% sub preserveForm(frmName) index = request.form().count 'dim frmName() redim tmpArray(index) i = 0 for each item in request.form tmp = request.form(item) 'response.write(item & " = " & tmp & "
") tmpArray(i) = item &"="&tmp i = i + 1 next 'for i = lbound(tmpArray) to ubound(tmpArray)-1 ' response.write("tmpArray[" & i & "] = " & tmpArray(i) & "
") 'next session(frmName) = tmpArray end sub sub getFormContents(frmName) formName = frmName flush = request("flush") if (flush) then unloadForm frmName else ' response.write (frmName) tmpArray = session(frmName) %> <% end if end sub sub unloadForm(frmName) session(frmName) = "" end sub ' ============================================================================== ' Subroutine : requireLevel(userlevels) ' verifies that the level is correct ' parameters : userlevels (ARRAY) ' ============================================================================== statusArray = Array("Not Sent", "Sent", "Assigned", "Confirmed", "Complete") function getrandom() Randomize getrandom = Rnd end function sub requireLevel(userlevels) for i = 0 to ubound(userlevels) if userlevels(i) = cint(Session("usertype")) then successFlag = TRUE end if next if (successFlag = TRUE) then 'you are of the correct level else openHTML "User Access Restriction" var1 = 0 var2 = 0 openTable var1,var2,0 %> <% end sub %> <% sub preserveForm(frmName) index = request.form().count 'dim frmName() redim tmpArray(index) i = 0 for each item in request.form tmp = request.form(item) 'response.write(item & " = " & tmp & "
") tmpArray(i) = item &"="&tmp i = i + 1 next 'for i = lbound(tmpArray) to ubound(tmpArray)-1 ' response.write("tmpArray[" & i & "] = " & tmpArray(i) & "
") 'next session(frmName) = tmpArray end sub sub getFormContents(frmName) formName = frmName flush = request("flush") if (flush) then unloadForm frmName else ' response.write (frmName) tmpArray = session(frmName) %> <% end if end sub sub unloadForm(frmName) session(frmName) = "" end sub ' ============================================================================== ' Subroutine : requireLevel(userlevels) ' verifies that the level is correct ' parameters : userlevels (ARRAY) ' ============================================================================== statusArray = Array("Not Sent", "Sent", "Assigned", "Confirmed", "Complete") function getrandom() Randomize getrandom = Rnd end function sub requireLevel(userlevels) for i = 0 to ubound(userlevels) if userlevels(i) = cint(Session("usertype")) then successFlag = TRUE end if next if (successFlag = TRUE) then 'you are of the correct level else openHTML "User Access Restriction" var1 = 0 var2 = 0 openTable var1,var2,0 %> <% end sub %> <% sub preserveForm(frmName) index = request.form().count 'dim frmName() redim tmpArray(index) i = 0 for each item in request.form tmp = request.form(item) 'response.write(item & " = " & tmp & "
") tmpArray(i) = item &"="&tmp i = i + 1 next 'for i = lbound(tmpArray) to ubound(tmpArray)-1 ' response.write("tmpArray[" & i & "] = " & tmpArray(i) & "
") 'next session(frmName) = tmpArray end sub sub getFormContents(frmName) formName = frmName flush = request("flush") if (flush) then unloadForm frmName else ' response.write (frmName) tmpArray = session(frmName) %> <% end if end sub sub unloadForm(frmName) session(frmName) = "" end sub ' ============================================================================== ' Subroutine : requireLevel(userlevels) ' verifies that the level is correct ' parameters : userlevels (ARRAY) ' ============================================================================== statusArray = Array("Not Sent", "Sent", "Assigned", "Confirmed", "Complete") function getrandom() Randomize getrandom = Rnd end function sub requireLevel(userlevels) for i = 0 to ubound(userlevels) if userlevels(i) = cint(Session("usertype")) then successFlag = TRUE end if next if (successFlag = TRUE) then 'you are of the correct level else openHTML "User Access Restriction" var1 = 0 var2 = 0 openTable var1,var2,0 %> <% end sub %> <% sub preserveForm(frmName) index = request.form().count 'dim frmName() redim tmpArray(index) i = 0 for each item in request.form tmp = request.form(item) 'response.write(item & " = " & tmp & "
") tmpArray(i) = item &"="&tmp i = i + 1 next 'for i = lbound(tmpArray) to ubound(tmpArray)-1 ' response.write("tmpArray[" & i & "] = " & tmpArray(i) & "
") 'next session(frmName) = tmpArray end sub sub getFormContents(frmName) formName = frmName flush = request("flush") if (flush) then unloadForm frmName else ' response.write (frmName) tmpArray = session(frmName) %> <% end if end sub sub unloadForm(frmName) session(frmName) = "" end sub ' ============================================================================== ' Subroutine : requireLevel(userlevels) ' verifies that the level is correct ' parameters : userlevels (ARRAY) ' ============================================================================== statusArray = Array("Not Sent", "Sent", "Assigned", "Confirmed", "Complete") function getrandom() Randomize getrandom = Rnd end function sub requireLevel(userlevels) for i = 0 to ubound(userlevels) if userlevels(i) = cint(Session("usertype")) then successFlag = TRUE end if next if (successFlag = TRUE) then 'you are of the correct level else openHTML "User Access Restriction" var1 = 0 var2 = 0 openTable var1,var2,0 %> <% end sub %> <% sub preserveForm(frmName) index = request.form().count 'dim frmName() redim tmpArray(index) i = 0 for each item in request.form tmp = request.form(item) 'response.write(item & " = " & tmp & "
") tmpArray(i) = item &"="&tmp i = i + 1 next 'for i = lbound(tmpArray) to ubound(tmpArray)-1 ' response.write("tmpArray[" & i & "] = " & tmpArray(i) & "
") 'next session(frmName) = tmpArray end sub sub getFormContents(frmName) formName = frmName flush = request("flush") if (flush) then unloadForm frmName else ' response.write (frmName) tmpArray = session(frmName) %> <% end if end sub sub unloadForm(frmName) session(frmName) = "" end sub ' ============================================================================== ' Subroutine : requireLevel(userlevels) ' verifies that the level is correct ' parameters : userlevels (ARRAY) ' ============================================================================== statusArray = Array("Not Sent", "Sent", "Assigned", "Confirmed", "Complete") function getrandom() Randomize getrandom = Rnd end function sub requireLevel(userlevels) for i = 0 to ubound(userlevels) if userlevels(i) = cint(Session("usertype")) then successFlag = TRUE end if next if (successFlag = TRUE) then 'you are of the correct level else openHTML "User Access Restriction" var1 = 0 var2 = 0 openTable var1,var2,0 %> <% end sub %> <% sub preserveForm(frmName) index = request.form().count 'dim frmName() redim tmpArray(index) i = 0 for each item in request.form tmp = request.form(item) 'response.write(item & " = " & tmp & "
") tmpArray(i) = item &"="&tmp i = i + 1 next 'for i = lbound(tmpArray) to ubound(tmpArray)-1 ' response.write("tmpArray[" & i & "] = " & tmpArray(i) & "
") 'next session(frmName) = tmpArray end sub sub getFormContents(frmName) formName = frmName flush = request("flush") if (flush) then unloadForm frmName else ' response.write (frmName) tmpArray = session(frmName) %> <% end if end sub sub unloadForm(frmName) session(frmName) = "" end sub ' ============================================================================== ' Subroutine : requireLevel(userlevels) ' verifies that the level is correct ' parameters : userlevels (ARRAY) ' ============================================================================== statusArray = Array("Not Sent", "Sent", "Assigned", "Confirmed", "Complete") function getrandom() Randomize getrandom = Rnd end function sub requireLevel(userlevels) for i = 0 to ubound(userlevels) if userlevels(i) = cint(Session("usertype")) then successFlag = TRUE end if next if (successFlag = TRUE) then 'you are of the correct level else openHTML "User Access Restriction" var1 = 0 var2 = 0 openTable var1,var2,0 %> <% end sub %> <% sub preserveForm(frmName) index = request.form().count 'dim frmName() redim tmpArray(index) i = 0 for each item in request.form tmp = request.form(item) 'response.write(item & " = " & tmp & "
") tmpArray(i) = item &"="&tmp i = i + 1 next 'for i = lbound(tmpArray) to ubound(tmpArray)-1 ' response.write("tmpArray[" & i & "] = " & tmpArray(i) & "
") 'next session(frmName) = tmpArray end sub sub getFormContents(frmName) formName = frmName flush = request("flush") if (flush) then unloadForm frmName else ' response.write (frmName) tmpArray = session(frmName) %> <% end if end sub sub unloadForm(frmName) session(frmName) = "" end sub ' ============================================================================== ' Subroutine : requireLevel(userlevels) ' verifies that the level is correct ' parameters : userlevels (ARRAY) ' ============================================================================== statusArray = Array("Not Sent", "Sent", "Assigned", "Confirmed", "Complete") function getrandom() Randomize getrandom = Rnd end function sub requireLevel(userlevels) for i = 0 to ubound(userlevels) if userlevels(i) = cint(Session("usertype")) then successFlag = TRUE end if next if (successFlag = TRUE) then 'you are of the correct level else openHTML "User Access Restriction" var1 = 0 var2 = 0 openTable var1,var2,0 %> <% end sub %> <% sub preserveForm(frmName) index = request.form().count 'dim frmName() redim tmpArray(index) i = 0 for each item in request.form tmp = request.form(item) 'response.write(item & " = " & tmp & "
") tmpArray(i) = item &"="&tmp i = i + 1 next 'for i = lbound(tmpArray) to ubound(tmpArray)-1 ' response.write("tmpArray[" & i & "] = " & tmpArray(i) & "
") 'next session(frmName) = tmpArray end sub sub getFormContents(frmName) formName = frmName flush = request("flush") if (flush) then unloadForm frmName else ' response.write (frmName) tmpArray = session(frmName) %> <% end if end sub sub unloadForm(frmName) session(frmName) = "" end sub ' ============================================================================== ' Subroutine : requireLevel(userlevels) ' verifies that the level is correct ' parameters : userlevels (ARRAY) ' ============================================================================== statusArray = Array("Not Sent", "Sent", "Assigned", "Confirmed", "Complete") function getrandom() Randomize getrandom = Rnd end function sub requireLevel(userlevels) for i = 0 to ubound(userlevels) if userlevels(i) = cint(Session("usertype")) then successFlag = TRUE end if next if (successFlag = TRUE) then 'you are of the correct level else openHTML "User Access Restriction" var1 = 0 var2 = 0 openTable var1,var2,0 %> <% end sub %> <% sub preserveForm(frmName) index = request.form().count 'dim frmName() redim tmpArray(index) i = 0 for each item in request.form tmp = request.form(item) 'response.write(item & " = " & tmp & "
") tmpArray(i) = item &"="&tmp i = i + 1 next 'for i = lbound(tmpArray) to ubound(tmpArray)-1 ' response.write("tmpArray[" & i & "] = " & tmpArray(i) & "
") 'next session(frmName) = tmpArray end sub sub getFormContents(frmName) formName = frmName flush = request("flush") if (flush) then unloadForm frmName else ' response.write (frmName) tmpArray = session(frmName) %> <% end if end sub sub unloadForm(frmName) session(frmName) = "" end sub ' ============================================================================== ' Subroutine : requireLevel(userlevels) ' verifies that the level is correct ' parameters : userlevels (ARRAY) ' ============================================================================== statusArray = Array("Not Sent", "Sent", "Assigned", "Confirmed", "Complete") function getrandom() Randomize getrandom = Rnd end function sub requireLevel(userlevels) for i = 0 to ubound(userlevels) if userlevels(i) = cint(Session("usertype")) then successFlag = TRUE end if next if (successFlag = TRUE) then 'you are of the correct level else openHTML "User Access Restriction" var1 = 0 var2 = 0 openTable var1,var2,0 %> <% end sub %> <% sub preserveForm(frmName) index = request.form().count 'dim frmName() redim tmpArray(index) i = 0 for each item in request.form tmp = request.form(item) 'response.write(item & " = " & tmp & "
") tmpArray(i) = item &"="&tmp i = i + 1 next 'for i = lbound(tmpArray) to ubound(tmpArray)-1 ' response.write("tmpArray[" & i & "] = " & tmpArray(i) & "
") 'next session(frmName) = tmpArray end sub sub getFormContents(frmName) formName = frmName flush = request("flush") if (flush) then unloadForm frmName else ' response.write (frmName) tmpArray = session(frmName) %>