<% Option Explicit Response.Buffer = False Dim strValidate If Request("action") = "Download" Then Dim bValidate bValidate = True If Request("name")="" Then strValidate = "

Please enter your name" bValidate = False End If If Request("email")="" Then strValidate = "

Please enter your email address" bValidate = False End If If Request("email") <> Request("email2") Then strValidate = "

Please enter the same email address" bValidate = False End If If bValidate Then Dim fso, f Set fso = Server.CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile( Server.MapPath("dlinfo.txt"), 8, True) f.WriteLine "*** Download Information: " & CStr(Now()) Dim t For t = 1 To Request.Form.Count f.WriteLine Request.Form.Key(t) & ": " & Request.Form.Item(t) Next f.Close Response.Redirect("/downloads/OpMailSetup.exe") End If End If %> <% Server.Execute("/border_top.asp") %> Please enter your email address and some information about your intended use of OpMail. We won't sell or otherwise abuse your email address, but we'd like to keep in touch with you, the people who are beta testing OpMail. <%=strValidate%>

Name:	">
Email:	">
Confirm email:	">
Company name (if applicable):	">

---

Where will you be using OpMail?	Personal use Not for profit organisation Small company Large company
How many users will be accessing the server?	Up to 10 Between 10 and 100 Between 100 and 1000 Over 1000

---

<% Server.Execute("/border_bottom2.asp") %>