<% 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 %> opcode - OpMail SMTP/POP3 Server - download <% 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%>
Confirm email:">
Company name
(if applicable):

Where will you be using OpMail?
How many users will be accessing the server?

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