<%@ Language=VBScript %> <% Option Explicit %> <% ' -- declare our variables -- dim strErrText, strAction ' -- place the action parameter into the strAction variable -- strAction = Request.QueryString("action") ' -- check the querystring for err=value parameters and show the required error -- Select Case strAction Case "err1" strErrText = "Error: No name input." Case "err2" strErrText = strErrText & "Error: No email input." Case "err3" strErrText = strErrText & "Error: No phone input." Case "err4" strErrText = strErrText & "Error: No Company name input." Case "err5" strErrText = strErrText & "Error: No message input." End Select %> SOLI Cubist
<% ' -- if our querystring contains an action= parameter, it means theres an error and it will be shown -- if strAction > "" then response.write strErrText end if %>

Name:

Email:

Company:

Address:

City:

State:         Zipcode:

Phone:

Fax:

Yes! please send me your newsletter

Comments/Suggestions/Request for Catalog:



SHOWROOMS:
458 North Robertson Boulevard
West Hollywood California 90048
T 310 659 6626  F 310 659 6676

5974 West Pico Boulevard
Los Angeles California 90035
T 323 931 0444  F 323 931 8884

32 Northeast 39th Street
Miami Florida 33137
T 305 573 4860  F 305 573 9876

Email us at info@soliusa.com
for additional product details.