Live Web-X Demo Sign Up Form

<% Dim action action = Request("action") Select Case action Case "demosignup" 'do error checking here If Trim(Request("FirstName")) = "" Then ErrorText = ErrorText & "You forgot to enter your first name.
" & vbcrlf End If If Trim(Request("LastName")) = "" Then ErrorText = ErrorText & "You forgot to enter your last name.
" & vbcrlf End If If Trim(Request("Organization")) = "" Then ErrorText = ErrorText & "You forgot to enter your organization.
" & vbcrlf End If If Trim(Request("Address")) = "" Then ErrorText = ErrorText & "You forgot to enter your address.
" & vbcrlf End If If Trim(Request("City")) = "" Then ErrorText = ErrorText & "You forgot to enter your city.
" & vbcrlf End If If Trim(Request("State")) = "" Then ErrorText = ErrorText & "You forgot to enter your state.
" & vbcrlf End If If Trim(Request("Phone")) = "" Then ErrorText = ErrorText & "You forgot to enter your work phone.
" & vbcrlf End If If Trim(Request("Email")) = "" Then ErrorText = ErrorText & "You forgot to enter your email address.
" & vbcrlf Else If Instr(1,Request("Email"),"@") = 0 Or Instr(1,Request("Email"),".") = 0 Then ErrorText = ErrorText & "The email address you entered is invalid.
" & vbcrlf End If End If If Trim(Request("Platform")) = "" Then ErrorText = ErrorText & "You forgot to select the platform(s) you would like to demo.
" & vbcrlf End If If ErrorText <> "" Then ShowForm Response.End Else Dim BodyText, objMailer 'send email then show thank you BodyText = "First name: " & Trim(Request("FirstName")) & vbcrlf BodyText = BodyText & "Last name: " & Trim(Request("LastName")) & vbcrlf BodyText = BodyText & "Title: " & Trim(Request("Title")) & vbcrlf BodyText = BodyText & "Department: " & Trim(Request("Department")) & vbcrlf BodyText = BodyText & "Organization: " & Trim(Request("Organization")) & vbcrlf BodyText = BodyText & "Address: " & Trim(Request("Address")) & vbcrlf BodyText = BodyText & "City: " & Trim(Request("City")) & vbcrlf BodyText = BodyText & "State: " & Trim(Request("State")) & vbcrlf BodyText = BodyText & "Phone: " & Trim(Request("Phone")) & vbcrlf BodyText = BodyText & "Fax: " & Trim(Request("Fax")) & vbcrlf BodyText = BodyText & "Email: " & Trim(Request("Email")) & vbcrlf BodyText = BodyText & "Platform: " & Trim(Request("Platform")) & vbcrlf BodyText = BodyText & "Prefered contact: " & Trim(Request("Contact")) & vbcrlf Set objMailer = CreateObject("CDONTS.NewMail") objMailer.From = Trim(Request("Email")) objMailer.To = "jbartlett@copiatechnologies.com;mbartlett@copiatechnologies.com" objMailer.Subject = "Live Web-X Demo Signup" objMailer.Body = BodyText objMailer.Send Set objMailer = Nothing ShowThankYou Response.End End If Case Else ShowForm End Select Sub ShowForm %> Live Web-X Demo Sign Up Form

<% If ErrorText <> "" Then %> <% = ErrorText %> <% End If %>

* All Fields in Bold are Required

First Name ">

Last Name ">

Title ">

Department ">

Organization ">

Street Address ">

City ">

State ">

Work Phone ">

Fax ">

E-mail ">

Platform(s) to be
Demo'd > NT
> UNIX (Includes: Solaris 2.6, AIX 4.3.2, HP-UX 10.2, 11.0 & Linux)
> AS/400
Apache Webserver (Coming Soon)

Preferred Method of Contact <% If Request("Contact") <> "Email" Then %> <% Else %> <% End If %> By Phone <% If Request("Contact") <> "Email" Then %> <% Else %> <% End If %> By E-mail

Or contact our office direct at
714-371-4053

"Knowing you need a security solution generally means it's too late."

714-371-4053 • FAX 714-371-4169

<% End Sub %> <% Sub ShowThankYou %> Live Web-X Demo Sign Up Form

Thank you! A representive will be contacting you soon to schedule your demo.

"Knowing you need a security solution generally means it's too late."

<% End Sub %> <% Function SelCheck(byVal ReqVal, ChkVal) If Instr(1,ReqVal,ChkVal) <> 0 Then SelCheck = " CHECKED" End If End Function %>