<% @Language=JScript %> U5 - Hraj! - Diskutuj

Seagate
U5: the mystery of three oceans Nauč sa! Hraj! ASBIS
Kúp!
U5: the mystery of three oceans Diskutuj
O výhrach
Pravidlá hry
Termíny a podmienky hry
Výkony
Pamiatka na U5
Diskutuj
<% 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(); } %>
Meno:
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 Defense System, DiskWizard, U Series 5 Sú obchodné značky a registrované značky Seagate Technology, Inc. Všetky ostatné značky sú majetkom ich majiteľov.