<%@ LANGUAGE="VBScript" %> The Boulevard Mall - Leasing Information - Meet you on the Boulevard <% name=request("name") company=request("company") phone=request("phone") email=request("email") address=request("address") city=request("city") state=request("state") zip=request("zip") country=request("country") retailer=request("retailer") retailname=request("retailname") merchandise=request("merchandise") othstores=request("othstores") broker=request("broker") busplan=request("busplan") financial=request("financial") formflag=request("formflag") mailerror="" mailthisflag="N" ' if there is a name and phone number send email and do not print the form below if trim(name)<>"" and trim(phone)<>"" then mailthisflag="Y" else mailerror=mailerror & "You must enter the Name and Phone Number
" & vbCrLf end if ' if the user tried to submit the form previously, formflag will be Y st= "The following information was received from the Boulevard Mall Leasing Web Page:" & vbCrLf st = st & "Name: " & name & vbCrLf st = st & "Company: " & company & vbCrLf st = st & "Address: " & address & vbCrLf st = st & "City: " & city & vbCrLf st = st & "State: " & state & vbCrLf st = st & "Zip: " & zip & vbCrLf st = st & "Email: " & email & vbCrLf st = st & "Phone: " & phone & vbCrLf st = st & "Country: " & country & vbCrLf st = st & "Retailer?: " & retailer & vbCrLf st = st & "Retail Name: " & retailname & vbCrLf st = st & "Type of Merchandise: " & merchandise & vbCrLf st = st & "Other Stores: " & othstores & vbCrLf st = st & "Stores Represented(Broker): " & broker & vbCrLf st = st & "Business Plan: " & busplan & vbCrLf st = st & "Financial Statement: " & financial & vbCrLf if mailthisflag="Y" and formflag="Y" then ' mailed=sendmail("Boulevard Mall Leasing Information","leasing@boulevard-mall.com","webleasing@boulevard-mall.com","Request for Boulevard Mall Leasing Information",st) ' mailed=sendmail("Boulevard Mall Leasing Information","schaefer@acgroup.com","webleasing@boulevard-mall.com","Request for Boulevard Mall Leasing Information",st) mailed=sendmail("Boulevard Mall Leasing Information","granach@buffnews.com","webleasing@boulevard-mall.com","Request for Boulevard Mall Leasing Information",st) mailed=sendmail("Boulevard Mall Leasing Information","blvdmall@aol.com","webleasing@boulevard-mall.com","Request for Boulevard Mall Leasing Information",st) if mailed=1 then mailerror="There was a problem with the Email Program. Please try again later
" & vbCrLf else mailed=2 sentmsg="
Your request has been sent
" & vbCrLf end if end if if formflag<>"Y" then mailerror="" end if %>
Directions
Directory
Events
Leasing Info
Services
Food
The Boulevard Mall Home Page

Leasing Information

<% if mailthisflag="N" or formflag<>"Y" then %> <% end if %> <% if mailed=1 then Response.write(mailerror) end if if mailed=2 then Response.write(sentmsg) end if %>