%@ Language=VBScript %> <% Option Explicit %> <% ' ----------------------------------------------------- ' CDONTS Email send script ' © http://www.designplace.org/ ' Comments must remain intact for re-use of this code ' ----------------------------------------------------- dim strErrText, strAction strAction = Request.QueryString("action") Select Case strAction Case "err1" strErrText = "Error: No Name input." Case "err2" strErrText = strErrText & "Error: No Company input." Case "err3" strErrText = strErrText & "Error: No Street Address input." Case "err4" strErrText = strErrText & "Error: No City input." Case "err5" strErrText = strErrText & "Error: No State / Province input." Case "err6" strErrText = strErrText & "Error: No Postal Code input." Case "err7" strErrText = strErrText & "Error: No Country input." Case "err8" strErrText = strErrText & "Error: No Work Telephone input." Case "err9" strErrText = strErrText & "Error: No Fax input." Case "err10" strErrText = strErrText & "Error: No E-Mail input." End Select %>
Submit your request for a free Username & Password by filling out and submitting the form below.
Galiso will then e-mail your Username and Password to the e-mail address you provide in this form.
All fields must be filled out for a successful submission. Please - you cannot use your back arrow if you inadvertently omit a field. Rather, beginning with a blank form, all fields are required.

<% if strAction > "" then response.write strErrText end if %>