<% @Language=JScript %> U5 - Play! - Discuss

Seagate
U5: the mystery of three oceans Learn! Play! ASBIS
Buy!
U5: the mystery of three oceans Discuss
About prizes
Rules
Limitation of liability
Rating
A keepsake from U5
Discuss
<% var Conn = new ActiveXObject("ADODB.Connection"); var Cmd = new ActiveXObject("ADODB.Command"); var rs = new ActiveXObject("ADODB.Recordset"); Conn.Open(Application("DSN")); Cmd.ActiveConnection = Conn; function request(Name,Def) { var Val1 = Request.QueryString(Name); var Val2 = Request.Form(Name); if ((Val1.Count == 0) && (Val2.Count == 0)) { return Def } else { return (Val1.Count)?(Val1+""):(Val2+""); } } var name = request("name",""); var email = request("email","No E-mail"); var msg = request("textfield",""); if (msg != "") { Cmd.CommandType = 1; Cmd.CommandText = "insert into Forum (Name, EMail, Message) values (?,?,?)"; if (name != "") {Cmd.Parameters(0)=name;} else {Cmd.Parameters(0)="Anonymous";} if (email != "") {Cmd.Parameters(1)=email;} else {Cmd.Parameters(1)="None";} Cmd.Parameters(2)=msg; Cmd.Execute(); } %>
Name:
E-mail:

<% Cmd.CommandType = 1; Cmd.CommandText = "select * from Forum order by MsgDate desc"; rs = Cmd.Execute(); while (!rs.EOF) { email = new String(rs.Fields(3)); %> -1) {%> href="mailto:<%= email%>"<%}%>><%= rs.Fields(2)%>, <%= rs.Fields(1)%>
<%= rs.Fields(4)%>

<% rs.MoveNext(); } rs.Close(); Conn.Close(); %>


Seagate, Seagate Technology, the Seagate logo, SeaShield, SeaShell, 3D Defence System, DiskWizard, U Series 5 are trademarks and registered trademarks of Seagate Technology, Inc. All other trademarks are the property of their respective owners.