<%
Option Explicit
dim CompanyName, name, StreetAddress, city, State, Zip, telephone, email, questions
dim Msg, FocusField, Screen
Call Main
sub d(x)
Response.Write ""
Response.Write x
Response.Write ""
end sub
sub WriteSelectOption(Key, Text, Value)
dim selected
if trim(Key) = trim(Value) then
Selected = " selected "
end if
%>