<%
Dim TheQueryType
Dim TheFirstName
Dim TheLastName
Dim TheJobTitle
Dim TheCompany
Dim TheAddress1
Dim TheAddress2
Dim TheCity
Dim TheState
Dim TheZip
Dim TheCountry
Dim ThePhoneNumber
Dim TheEmail
Dim TheIndustryDescription
Dim TheProduct
Dim TheTimeFrame
Dim TheQuery
Dim DataMissing
' Get the forms missing parameters if supplied
TheFirstName = request.querystring("FirstName")
TheLastName = request.querystring("LastName")
TheJobTitle = request.querystring("JobTitle")
TheCompany = request.querystring("Company")
TheAddress1 = request.querystring("Address1")
TheAddress2 = request.querystring("Address2")
TheCity = request.querystring("City")
TheState = request.querystring("State")
TheZip = request.querystring("Zip")
TheCountry = request.querystring("Country")
ThePhoneNumber = request.querystring("PhoneNumber")
TheEmail = request.querystring("Email")
TheIndustryDescription = request.querystring("IndustryDescription")
TheProduct = request.querystring("Product")
TheTimeFrame = request.querystring("TimeFrame")
TheQuery = request.querystring("Query")
DataMissing = request.querystring("DataMissing")
' Get the query type from the caller
TheQueryType=Request.querystring("QueryType")
' Store the variable in the session
Session("QueryType") = TheQueryType
Function Checked(TheActualValue, TheOptionValue)
if TheOptionValue = TheActualValue then
Checked = " CHECKED"
end if
end Function
Function Selected(TheActualValue, TheSelectedValue)
if TheSelectedValue = TheActualValue then
Selected = " SELECTED"
end if
end Function
%>
<%If TheQueryType = "RESELLER" Then%>
ONCALL RESELLER ENQUIRY FORM
Please complete IN FULL to ensure a response, thank you.
<%End If%>
<%If TheQueryType = "GENERAL" Then%>
GENERAL ENQUIRY FORM
Please complete IN FULL to ensure a response, thank you.
