<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Option Explicit%>
Retail Merchant Inquiry
<%
Dim zip, phone, numlocs
Dim fc_name, fc_position, fc_company, fc_address, fc_city, fc_state, fc_zip
Dim fc_phone, fc_numlocs, fc_parentcompany, fc_processmeth
'fc is short for font color
'set the font color to red for ones where an error was detected
'calltime and email are not required, so do not need to check for font color
zip = Session("zip")
phone = Session("phone")
numlocs = Session("numlocs")
If Session("resend_ind") = "Y" Then
if Session("name_err") = "Y" Then
fc_name = "red"
End If
if Session("position_err") = "Y" Then
fc_position = "red"
End If
if Session("company_err") = "Y" Then
fc_company = "red"
End If
if Session("address_err") = "Y" Then
fc_address = "red"
End If
if Session("city_err") = "Y" Then
fc_city = "red"
End If
if Session("state_err") = "Y" Then
fc_state = "red"
End If
if Session("zip_err") = "Y" Then
fc_zip = "red"
zip = " "
End If
if Session("phone_err") = "Y" Then
fc_phone = "red"
phone = " "
End If
if Session("numlocs_err") = "Y" Then
fc_numlocs = "red"
numlocs = " "
End If
if Session("parentcompany_err") = "Y" Then
fc_parentcompany = "red"
End If
End If
%>