emacs/nxhtml/tests/in/asp.asp

   1 \r
   2 <%@LANGUAGE="VBScript"%>\r
   3 \r
   4 <SCRIPT LANGUAGE="JavaScript" RUNAT="Server">\r
   5 function JSGreeting()\r
   6         {\r
   7         return "Greetings from a JavaScript Function";\r
   8         }\r
   9 </SCRIPT>\r
  10 \r
  11 <SCRIPT LANGUAGE="VBScript" RUNAT="Server">\r
  12 Function VBGreeting()\r
  13         VBGreeting="Greetings from a VBScript Function"\r
  14 End Function\r
  15 \r
  16 Function toDollars(x)\r
  17         toDollars=FormatCurrency(x)\r
  18 End Function\r
  19 </SCRIPT>\r
  20 \r
  21 <%\r
  22 var a = 2;\r
  23 var b = 2;\r
  24 var c = add(a,b)\r
  25 c += " (Two numbers are added by JavaScript, "\r
  26 c += "and then formatted into currency by VBScript.)"\r
  27 \r
  28 function add(x,y)\r
  29         {\r
  30         result = x + y;\r
  31         result = toDollars(result);\r
  32         return result;  \r
  33         }\r
  34 \r
  35 Response.Write("<HTML>\r")\r
  36 Response.Write(JSGreeting() + "<BR>\r")\r
  37 Response.Write(VBGreeting() + "<BR>\r")\r
  38 Response.Write(c + " <BR>\r")\r
  39 Response.Write("</HTML>\r")\r
  40 %>\r