Dear <<< name | unknown >>>,
We are happy you joined our website.

Greetings,
<<< sender | Your website team >>>

Dear <<< customerName >>>,

Your ordered articles:
<<< block articles >>>
   Name: <<< name >>>
   Number :<<< nr | unknown >>>
<<< endblock articles >>>

Thank you for purchasing with us.

<%
set t = new TextTemplate
t.filename = "template.txt"

'create a block and add the data from a recordset
set b = new TextTemplateBlock
b.addRS(db.getRS("SELECT * FROM ...", empty))

'add the block to the template
t.add "articles", b
%>

<%
'creating new recordset
set rs = ["R"](array( _
  array("firstname", "lastname", "age"), _
  array("Lebron", "James", 20), _
  array("Britney", "Spears") _
))

'ready for looping...
while not rs.eof
  str.write(rs("firstname"))
  rs.movenext
wend

'we can even skip columns
'age is skipped for the first record .. cause we do not know the age ;)
set rs = ["R"](array( _
  array("firstname", "lastname", "age"), _
  array("Barack", "Obama"), _
  array("David", "Copperfield", 50) _
))
%>

<%
'dynamically expanding an array
set dc = (new DataContainer)(array())
'chained add
dc.add("one").add("two").add("three")

'dictionary data container
with (new DataContainer)(["D"](empty))
  .add(array(1, "BWM"))
  .add(array(2, "Ford"))
  'updating the item with key 1
  .add(array(1, "Toyota"))
end with

'recordsets
set dc = (new DataContainer)(["R"](array( _
  array("brand", "ps"), _
  array("BWM", 200)
)))
dc.add(array("Toyota", 100)).add(array("Mazda", 7))
%>

<!--#include virtual="/ajaxed/class_TestFixture/testFixture.asp"-->
<%
set tf = new TestFixture
tf.allEnvs = true
tf.run()

sub test_1()
    tf.assert 1 = 1, "1 is not equal 1"
end sub
%>

<!--#include virtual="/ajaxed/class_TestFixture/testFixture.asp"-->
<%
set tf = new TestFixture
tf.allEnvs = true
tf.run()

sub test_1()
    tf.assert 1 = 2, "1 is not equal 1"
end sub
%>

<%
sub test_1()
  'your asserts
end sub

sub test_2()
  'other asserts
end sub

'IMPORTANT: This test won't be called cause
'the test_3 is missing. Tests are not in
'continous order
sub test_4()
end sub
%>

<!--#include virtual="/ajaxed/class_TestFixture/testFixture.asp"-->
<%
set tf = new TestFixture
tf.allEnvs = true
tf.run()

sub test_1()
  with tf
    'simple
    .assert true, "Asserts truth"
    .assertEqual true, true, "Asserts equality"
    .assertNotEqual 1, 2, "Asserts not equality" 
    .assertInDelta 10, 15, 5, "Number with tolerance (delta)" 
    .assertInstanceOf "TestFixture", tf, "Asserts a type"
    .assertNothing nothing, "Asserts that an object is nothing"
    
    'advanced
    .assertMatch "\d+", "12312", "Asserts to a given regex pattern"
    .assertInFile "/ajaxed/ajaxed.asp", "include", "Asserts a string in a file"
    .assertEqual array("x", "y"), array("x", "y"), "Asserts equality also on arrays" 

    'contains assertions
    .assertHas array(1, 2, 3), 2, "Asserts containment"
    .assertHasNot array(1, 2, 3), 5, "Asserts non existence"
  end with
end sub
%>

<!--#include virtual="/ajaxed/class_TestFixture/testFixture.asp"-->
<%
set tf = new TestFixture
tf.allEnvs = true
tf.run()

sub test_1()
    if lib.env = "LIVE" then
      tf.fail "i want the test to fail"
    end if
end sub
%>

<!--#include virtual="/ajaxed/class_TestFixture/testFixture.asp"-->
<%
set tf = new TestFixture
tf.allEnvs = true
tf.run()

'testing our most important pages
sub test_1()
  with tf
    .assertResponse "/api/", empty, "API", "API has a problem"
    .assertResponse "/", empty, "ajaxed", "Main page has a problem"
    .assertResponse "/about/", empty, "michal", "About page has a problem"
    .assertResponse "/download/", empty, "2.0", "Download page is not workin"
  end with
end sub
%>

<!--#include virtual="/page.asp"-->
<!--#include virtual="/ajaxed/class_datatable/datatable.asp"-->
<%
set table = new Datatable
set page = new AjaxedPage
page.draw()

sub init()
  table.sql = "SELECT id, title, created_on FROM active_articles"
  table.recordlink = "javascript:alert('The id is: {id} and ive been created on {created_on}')"
end sub

sub callback(a)
  table.draw()
end sub

sub main()
  table.draw()
end sub
%>

<!--#include virtual="/page.asp"-->
<!--#include virtual="/ajaxed/class_datatable/datatable.asp"-->
<%
set table = new Datatable
set page = new AjaxedPage
page.draw()

sub init()
  table.sql = "SELECT * FROM active_articles"
  table.recordlink = "javascript:alert('The id is: {id} and ive been created on {created_on}')"
  'for that we need to add the columns manually
  table.newColumn("id", "ID").link = false
  table.newColumn "title", "Title"
  table.newColumn "created_on", "Created"
end sub

sub callback(a)
  table.draw()
end sub

sub main()
  table.draw()
end sub
%>

<!--#include virtual="/page.asp"-->
<!--#include virtual="/ajaxed/class_datatable/datatable.asp"-->
<%
set table = new Datatable
set page = new AjaxedPage
page.draw()

sub init()
  table.sql = "SELECT id, title, created_on FROM active_articles"
  table.onRowCreated = "onRow"
end sub

sub onRow(dt)
  'setting the link on the whole row.
  'it will be placed into the TR tag directly
  dt.row.attributes = "onclick=""alert('The id is: " & dt.data("id") & " and ive been created on " & dt.data("created_on") & "')"""
end sub

sub callback(a)
  table.draw()
end sub

sub main()
  table.draw()
end sub
%>

<!--#include virtual="/page.asp"-->
<!--#include virtual="/ajaxed/class_datatable/datatable.asp"-->
<%
set table = new Datatable
set page = new AjaxedPage
page.draw()

sub init()
  with table
    .sql = "SELECT * FROM active_articles"
    'we use the ID column to place the number into it
    .newColumn("id", "").onCellCreated = "onID"
    .newColumn "title", "Title"
    .newColumn "created_on", "Created"
    'turn on paging so you see how it affects numbering
    .recsPerPage = 10
  end with
end sub

function onID(dt)
  'pass the row number and ignore the actual value (ID)
  onID = dt.row.number
end function

sub callback(a)
  table.draw()
end sub

sub main()
  table.draw()
end sub
%>

<%
'before:
function onCell(dt)
    onCell = dt.col.value
end function

'now (so fullsearch highlighting will work fine):
function onCell(dt)
    onCell = dt.col.valueF
end function
%>

<%
AJAXED_LOADINGTEXT = "Please be patient..."
%>

<!--#include virtual="/ajaxed/ajaxed.asp"-->
<%
AJAXED_LOADINGTEXT = "You have to wait. You know that ;)"
set page = new AjaxedPage
page.draw()

sub pagePart_do()
  lib.sleep(1)
  str.write("Done! Do it again?")
end sub

sub main() %>

  <style>
    .ajaxLoadingIndicator {
      font:16pt tahoma;
      color:#fff;
      background:#f00;
      padding:1em 2em;
      top:auto !important;
      bottom:0px;
    }
  </style>

  <button id="btn" type="button" onclick="ajaxed.callback('do', 'btn')">
    Do somehthing
  </button>

<% end sub %>

<!--#include virtual="/ajaxed/ajaxed.asp"-->
<%
set page = new AjaxedPage
page.draw()

sub callback(a)
  lib.sleep(2)
end sub

sub main() %>

  <script>
    function doSomething() {
      $('loading').show();
      ajaxed.callback('do', function(r) {
        alert('done!');
      }, null, function(t) {
        $('loading').hide();
      })
    }
  </script>

  <button type="button" onclick="doSomething()">
    Do somehthing
  </button>
  <div id="loading" style="display:none">
    <img src="http://www.tourmandu.com/img/uploading.gif" style="vertical-align:middle"/>
    Please be patient...
  </div>

<% end sub %>

<!--#include virtual="/page.asp"-->
<!--#include virtual="/ajaxed/class_dropdown/dropdown.asp"-->
<%
set page = new AjaxedPage
page.draw()

sub drawCategoryDD()
  with new Dropdown
    .datasource = "SELECT * FROM category ORDER BY catname"
    'we use the category name as a value and as a caption
    .dataTextField = "catname"
    .dataValueField = "catname"
    .name = "cat"
    .commonFieldText = "-- category --"
    'the "no category" item should have a blank value
    'as by default its 0
    .commonFieldValue = ""
    .attributes = "onchange=""ajaxed.callback('articlesDD', 'articles')"""
    .draw()
  end with
end sub

sub pagePart_articlesDD()
  with new Dropdown
    set .datasource = db.getUnlockedRS( _
      "SELECT * FROM active_articles WHERE category = '{0}' ORDER BY title", _
      page.RF("cat") _
    )
    .dataTextField = "title"
    .dataValueField = "id"
    'we disable the articles if we have no selected category
    .disabled = page.RFT("cat") = ""
    .commonFieldText = "-- article --"
    .name = "article"
    .draw()
  end with
end sub

sub main() %>

  <form id="frm">
    <div><% drawCategoryDD() %></div>
    <div id="articles"><% pagePart_articlesDD() %></div>
  </form>

<% end sub %>

<!--#include virtual="/page.asp"-->
<!--#include virtual="/ajaxed/class_dropdown/dropdown.asp"-->
<%
set page = new AjaxedPage
page.draw()

sub drawCategoryDD()
  with new Dropdown
    .datasource = "SELECT * FROM category ORDER BY catname"
    'we use the category name as a value and as a caption
    .dataTextField = "catname"
    .dataValueField = "catname"
    .name = "cat"
    .commonFieldText = "-- category --"
    'the "no category" item should have a blank value
    'as by default its 0
    .commonFieldValue = ""
    .attributes = "onchange=""ajaxed.callback('articlesDD', 'articles')"""
    'create an event handler to highlight the news item
    .onItemCreated = "onCategory"
    .draw()
  end with
end sub

sub onCategory(it)
  'if the items value is news we make it bold and red
  if it.value = "News" then it.style = "font-weight:bold;color:#f00"
end sub

sub pagePart_articlesDD()
  with new Dropdown
    set .datasource = db.getUnlockedRS( _
      "SELECT * FROM active_articles WHERE category = '{0}' ORDER BY title", _
      page.RF("cat") _
    )
    .dataTextField = "title"
    .dataValueField = "id"
    'we disable the articles if we have no selected category
    .disabled = page.RFT("cat") = ""
    .commonFieldText = "-- article --"
    .name = "article"
    .cssClass = "articles"
    'enable convenient multiple selection
    .multiple = true
    .multipleSelectionType = DD_SELECTIONTYPE_MULTIPLE
    'we need the height if multiple is turned on
    .size = 80
    .draw()
  end with
end sub

sub main() %>

  <style>
   #articleSelection {
     border:2px inset #ccc;
     background:#eee;
     padding:0.5em 1em;
     width:300px;
   }
   .articles {
     overflow:auto;
     white-space:nowrap;
     margin-top:1em;
   }
  </style>

  <form id="frm">
    <div id="articleSelection">
      <div><% drawCategoryDD() %></div>
      <div id="articles"><% pagePart_articlesDD() %></div>
    <div>
  </form>

<% end sub %>

<%
sub main()
  'request an URL and store its response
  r = lib.requestURL("GET", "http://www.ajaxed.org", empty, empty).responseText
end sub
%>

<%
sub main()
  'request as a post with a parameter "date" set to current date
  'set the timeout to 5 seconds.
  set r = lib.requestURL( _
    "POST", "http://www.ajaxed.org", array("date", date()), _
    array("timeout", 5)
  )
  if r is nothing then
    lib.error("Could not request URL. It did not respond.")
  elseif r.status <> 200 then
    lib.error("Request successful but response not a success.")
  else
    'everthing fine .. do something with it
    str.write(r.responseText)
  end if 
end sub
%>

<!--#include virtual="/ajaxed/ajaxed.asp"-->
<%
set page = new AjaxedPage
page.draw()

'we are using ajaxed PageParts for that
sub pagePart_parse()
  url = page.RFT("url")
  if url = "" then lib.error("Please enter a valid URL.")
  set r = lib.requestURL("GET", url, empty, array("timeout", 5))
  if r is nothing then
    lib.error("Could not request URL (timeout, ..). Are you sure it exists?")
  elseif r.status <> 200 then
    lib.error("URL responded with an unsuccessful status: " & r.status)
  else
    with new Regexp
      'simple email pattern
      .pattern = "[a-z0-9_.]+@[a-z0-9_.]+"
      .global = true
      .ignoreCase = true
      set mails = .execute(r.responseText)
    end with
    if mails.count = 0 then str.write("No emails found at " & url)
    for each mail in mails
      str.write(mail & "<br/>")
    next
  end if
end sub

sub main() %>
  
  <form id="frm" onsubmit="ajaxed.callback('parse', 'result');return false;">
    <input type="text" name="url" value="http://www.">
    <input type="submit" value="get all emails">
    <div id="result"></div>
  </form>

<% end sub %>

<!--#include virtual="/page.asp"-->
<!--#include virtual="/ajaxed/class_datatable/datatable.asp"-->
<%
set table = new Datatable
set page = new AjaxedPage
page.draw()

sub init()
  db.open(DATA_CONNSTRING)
  table.sql = "SELECT * FROM person"
end sub

sub callback(action)
  table.draw()
end sub

sub main() %>

  <% table.draw() %> 

<% end sub %>

<!--#include virtual="/page.asp"-->
<!--#include virtual="/ajaxed/class_datatable/datatable.asp"-->
<%
set table = new Datatable
set page = new AjaxedPage
page.draw()

sub init()
  db.open(DATA_CONNSTRING)
  with table
    .sql = "SELECT id, firstname, lastname, lastname + ', ' + firstname AS name FROM person"
    .sort = "lastname, firstname"
    .newColumn "name", "Name"
    .newColumn "lastname", "Last"
    .newColumn "firstname", "First"
  end with
end sub

sub callback(action)
  table.draw()
end sub

sub main() %>

  <% table.draw() %> 

<% end sub %>

'valid sorting expressions
table.sort = "firstname DESC, lastname"
table.sort = "id, name, lastname"

<!--#include virtual="/page.asp"-->
<!--#include virtual="/ajaxed/class_datatable/datatable.asp"-->
<%
set table = new Datatable
set page = new AjaxedPage
page.draw()

sub init()
  db.open(DATA_CONNSTRING)
  table.sql = "SELECT * FROM person"
  
  'add id column and set CSS class
  'quickes way (but only one property)
  table.newColumn("id", "ID").cssClass = "light"
  
  'add lastname column and set CSS class
  'another way of assigning properties
  with table.newColumn("lastname", "Name")
    .cssClass = "name"
    .help = "Some tooltip for the header"
  end with
end sub

sub callback(action)
  table.draw()
end sub

sub main() %>
  
  <style>
    .light {
      color:#bbb;
    }
    .name {
      color:#f00;
      text-align:center;
      font-weight:bold;
    }
  </style>
  <% table.draw() %> 

<% end sub %>

 
table.sql = "SELECT id, firstname AS first, lastname AS last FROM person"

' would result in a datable with the following columns:
' id | first | last

<!--#include virtual="/ajaxed/ajaxed.asp"-->
<%
set page = new AjaxedPage
with
  .debug = true
  .draw()
end with

sub callback(a)
  if a = "do" then page.return "done"
end sub

sub main() %>
  
  <button type="button" onclick="ajaxed.callback('do', function(r) { alert(r)})">
    clik me for debug info
  </button>

<% end sub %>

<%
sub callback(a)
  lib.logger.debug "Action: " & a
  if a = "some" then
    lib.logger.debug "Went here"
  else
    lib.logger.error "Should not be here"
  end if
end sub
%>

<%
sub callback(a)
  if a = "some" then
    a = 1 + 2
    'can be useful for debugging
    lib.error("a = " & a)
  else
    lib.throwError("Invalid call.")
  end if
end sub
%>

<%
'we need a page instance in order to get
'access to the post parameters
set p = new AjaxedPage
p.draw()

sub main()
  '-- 1. common reading
  'old style
  someVal = request.form("paramName")
  'new style
  someVal = p.RF("paramName")
  
  '-- 2. parsing into a given datatype in one go
  'old style (fails if a parameter is not an int)
  someVal = cint(request.form("paramName")) 
  'new style
  someVal = p.RFP("paramName", 0)
  someBool = p.RFP("paramName", true)
  
  '-- 3. trimming
  'old style
  someVal = trim(request.form("paramName"))
  'new style
  someVal = p.RFT("paramName")
  
  '-- 4. getting an array (if more value have the same name)
  'old style 
  set val = request.form(name)
  someVal = array()
  redim preserve someVal(val.count - 1)
  for i = 0 to uBound(someVal)
    someVal(i) = val(i + 1)
  next
  RFA = arr
  
  'new style
  someVal = p.RFA("paramName")
  
  '-- 5. Checking existence
  'old style
  someVal = request.form("paramName") <> ""
  'new style
  someVal = p.RFHas("paramName")
  
end sub
%>

<%
'this is safe because the ID parameter will be
'parsed into an integer for sure
set RS = db.getRS("SELECT * FROM users WHERE id = " p.RFP("id", 0), empty)
%>

<input type="checkbox" checked="<%= lib.iif(p.RFHas("foo"), "checked", "") %>"/>

<%
'we need a page instance in order to get
'access to the post parameters
set p = new AjaxedPage
p.draw()

sub main()
  '-- 1. common reading
  'old style
  someVal = request.querystring("paramName")
  'new style
  someVal = p.QS("paramName")
  
  '-- 2. parsing into a given datatype in one go
  'old style (fails if a parameter is not an int)
  someVal = cint(request.querystring("paramName")) 
  'new style
  someVal = p.QSP("paramName", 0)
  someBool = p.QSP("paramName", true)
  
  '-- 3. trimming
  'old style
  someVal = trim(request.querystring("paramName"))
  'new style
  someVal = p.QST("paramName")
    
end sub
%>

<%
set p = new AjaxedPage
p.draw()

sub main()
  'tries to parse it into a floating point number
  'page can be called with ...
  ' page.asp?speed=2.2 => would pass 2.2
  ' page.asp?speed=xy => would pass 0.0
  ' page.asp?speed=1 => would pass 1.0
  ' page.asp => would pass 0.0
  speed = page.RFP("speed", 0.0)
end sub
%>

<%
set p = new AjaxedPage
p.draw

sub main()

  'old style
  response.write("hello world")
  'new style
  str.write("hello world")
  'or
  page.write("hello world")  

  'old
  response.write("hello world" & vbnewline)
  'new
  str.writeln("hello world")
  'or
  page.writeln("hello world")

  'old
  response.end()
  'new
  str.end()

  'old
  response.write("some debug")
  response.end()
  'new
  str.writeend("some debug")

  'old
  name = "Jack"
  response.write("My name is " & name & ".")
  'new
  str.writef("My name is {0}.", name)
  'more parameters
  str.writef("My name is {0} and i am {1}.", array(name, 18))

  'old
  response.write(server.HTMLEncode("some <html>"))
  'new
  str.HTMLEncode("some <html>")
  'or quicker by using the default method
  str("some <html>")

end sub
%>

<%
'before
set RS = db.getRecordset("SELECT * FROM user WHERE id = " & str.sqlSafe(id))
'now
set RS = db.getRS("SELECT * FROM user WHERE id = {0}", id)
%>

<!--#include virtual="/ajaxed/ajaxed.asp"-->
<%
set page = new AjaxedPage
page.draw()

sub main() %>

  <button type="button" onclick="ajaxed.callback('one', 'content')">content 1</button>
  <button type="button" onclick="ajaxed.callback('two', 'content')">content 2</button>

  <div id="content"></div>

<% end sub %>

<% sub pagepart_one() %>

  the first content

<% end sub %>

<% sub pagepart_two() %>

  some other content from server side

<% end sub %>

<!--#include virtual="/page.asp"-->
<!--#include virtual="/ajaxed/class_datatable/datatable.asp"-->
<!--#include virtual="/ajaxed/class_dropdown/dropdown.asp"-->
<%
set table = new Datatable
set page = new AjaxedPage
page.draw()

sub init()
  db.open(DATA_CONNSTRING)
  table.sql = "SELECT * FROM person"
  table.recsPerPage = 10
end sub

sub callback(action)
  table.draw()
end sub

sub main() %>

  <% table.draw() %> 

<% end sub %>

<!--#include virtual="/ajaxed/ajaxed.asp"-->
<%
set page = new AjaxedPage
page.draw()

sub main()
  'create a new datacontainer for an array
  set data = (new DataContainer)(array("first", "second", "Second", "third"))

  'write some details about it
  str.writef "First Element: {0} <br/>", data.first
  str.writef "Last Element: {0} <br/>", data.last
  str.writef "Count: {0} items <br/>", data.count

  'get only unique elements
  for each el in data.unique(false)
    str.write(el & "<br/>")
  next
end sub
%>

<!--#include virtual="/ajaxed/ajaxed.asp"-->
<!--#include virtual="/ajaxed/class_validator/validator.asp"-->
<%
set page = new AjaxedPage
page.draw()

sub callback(a)
  if a = "save" then
    'create new validator
    set v = new Validator
    'if the name is empty add an error
    if page.RFT("name") = "" then v.add "name", "Name required"
    'if age is not a number or less than 1 then error
    if page.RFP("age", 0) < 1 then v.add "age", "Age invalid"
    'thanks to ajaxed we can return the whole
    'object. it implements the reflect() method
    page.return v
  end if
end sub

sub main() %>

  <script>
    function save() {
      ajaxed.callback('save', function(r) {
        //easy access to the validator properties.
        if (!r.valid) return $('errors').update(r.summary);
        alert('Successully saved. No errors :)');
      })
    }
  </script>

  <form id="frm" onsubmit="save();return false;">
    <ul id="errors"></ul>
    Your Name:
    <input type="text" name="name"/>
    <br/>
    Your Age:
    <input type="text" name="age"/>
    <br/>
    <input type="submit" value="save"/>
  </form>

<% end sub %>

<!--#include virtual="/ajaxed/ajaxed.asp"-->
<%
set page = new AjaxedPage
page.draw()

sub main()
  'get the countrycode with timeout of 5 seconds
  countryCode = local.locateClient(5, empty)
  if isEmpty(countryCode) then str.writeEnd("Service unavailable")
  if countryCode = "XX" then str.writeEnd("Location unknown")
  str.writef "You are located in '{0}', arent you?", countryCode
end sub
%>

<!--#include virtual="/ajaxed/ajaxed.asp"-->
<!--#include virtual="/ajaxed/class_dropdown/dropdown.asp"-->
<%
set page = new AjaxedPage
page.draw()

sub drawDD()
  with new Dropdown
    'you can also use SQL, Dictionary, ...
    .datasource = array("Jack Johnson", "John Meyer")
    .name = "myDD"
    .multiple = page.QS("t") <> ""
    if .multiple then .size = 2
    if page.QS("t") = "multipleS" then
      .multipleSelectionType = DD_SELECTIONTYPE_SINGLE
      .size = 50
    elseif page.QS("t") = "multipleM" then
      .multipleSelectionType = DD_SELECTIONTYPE_MULTIPLE
      .size = 50
    end if
   .draw()
  end with
end sub

sub main() %>

  <a href="?t=">classic</a>
  <br/>
  <a href="?t=multiple">multiple classic</a>
  <br/>
  <a href="?t=multipleS">multiple single selection</a>
  <br/>
  <a href="?t=multipleM">multiple multi selection</a>
  <br/>

  <% drawDD() %>

<% end sub %>

<!--#include virtual="/ajaxed/ajaxed.asp"-->
<%
set page = new AjaxedPage
page.draw()

sub main()
  'create new instance
  set o = new StringBuilder
  for i = 0 to 10000
    'append some value
    o("Hello world")
  next
  'output the concatenated string
  str.write(o.toString())
end sub
%>

<!--#include virtual="/ajaxed/ajaxed.asp"-->
<%
with new AjaxedPage
  .headerFooter = array("pageHeader", "pageFooter")
  .draw()
end with
%>

<% sub pageHeader() %>
  <html><body>
<% end sub %>

<% sub pageFooter() %>
  </html></body>
<% end sub %>

<!--#include virtual="/ajaxed/class_testFixture/testFixture.asp"-->
<%
set tf = new TestFixture
tf.run

sub test_1
  tf.assertResponse "/somePage.asp", empty, "<h3>.*?</h3>", "Page seem not to work"
end sub
%>

<%
'checks if numbers exist in a given string
isNumber = str.matching("2", "^\d$", true)
'removes all numbers from a string
noNumbers = str.rReplace("abcd2efg4", "\d", "", true)

'Note: the last parameter has to do with
'case sensivity. check the API for it.
%>

<%
'get values from forms auto-trimmed
name = page.RFT("name")

'get from querystring, form and parse immediately
'before
id = str.parse(page.RF("id"), 0)
id = str.parse(page.QS("id"), 0)
'now
id = page.RFP("id", 0)
id = page.QSP("id", 0)

'combine str.write and str.format
'before
str.write str.format("say {0}", "hello")
'now
str.writef "say {0}", "hello"

'str.format can be used without array too (if only one arg)
'before
str.format "say {0}", array(10)
'now
str.format "say {0}", 10

'StringOperations default function HTML encodes string
'dont forget to encode all your user input
'to prevent attacks such as XSS
str.write(str("<please encode me>"))
%>

<%
sub callback(a)
  if a = "one" then
    'NEVER REACHED! because there is a
    'sub called pagePart_one
    page.return "foo"
  elseif a = "two" then
    'will be reached
    page.return "foo"
  end if
end sub

sub pagePart_one
  str.write("<strong>some html response</strong>")
end sub
%>
<script>
  ajaxed.callback("one", function(r) {
    //do something
  });
  ajaxed.callback("two", function(r) {
    //do something
  });
</script>

<%
sub callback(a)
  if a = "actionOne" then
    page.return "wow!"
  end if
end sub

sub pagePart_partOne %>
  <strong>hi</strong>
<% end sub %>
<script>
  //you can create functions and reuse them
  function myHandler(r) {
    alert(r);
  }

  //will alert "<strong>hi</strong>"
  ajaxed.callback('partOne', myHandler);
  
  //will alert "wow!"
  ajaxed.callback('actionOne', myHandler);

  //you can write the function inline as well
  //will alert "wow!"
  ajaxed.callback('actionOne', function(r) {
    alert(r)
  });
</script>

<% sub pagePart_partOne %>
  <strong>hi</strong>
<% end sub %>

<script>
  ajaxed.callback('partOne', 'destination');

  //same, but not rapid :)
  ajaxed.callback('partOne', function(r) {
    $('destination').update(r)
  });
</script>

<div id="destination"></div>

<script>
  //#1
  //will automatically pass the param1 value
  //to the server side (because the page contains
  //a form with the ID 'frm'
  ajaxed.callback('check', function(r) {
    //do something
  });

  //#2
  //provide parameters manually
  ajaxed.callback('check', function(r) {
    //do something
  }, {someParam1: "foo", anotherParam: "foo"});

  //#3
  //take parameter from form and add an own (1st)
  ajaxed.callback('check', function(r) {
    //do something
  }, {pName: $F("pID"), anotherParam: "foo"});

  //#4
  //take parameter from form and add an own
  //automatically grab all fields from the form
  ajaxed.callback('check', function(r) {
    //do something
  }, $("frm").serialize(true).set(anotherParam, "foo"));
</script>

<form id="frm">
  <input type="text" id="pID" name="pName" value="foo"/>
</form>

<%
'our server side handler
sub callback(a)
  if a <> "check" then exit sub
  
  'will contain "foo" when calling with #1, #2, #4
  'will contain no value when caling with #3
  pName = page.RF("pname")

  'will contain value only when calling with #3
  someParam1 = page.RF("someParam1")

  'will always contain "foo" unless on #1 call
  anotherParam = page.RF("anotherParam")
end sub
%>

<!--#include virtual="/ajaxed/ajaxed.asp"-->
<%
set page = new AjaxedPage
page.draw()

sub main() %>
  <div id="output"><% pagePart_one %></div>
  
  <form id="frm" onsubmit="ajaxed.callback('one', 'output'); return false">
    <input type="text" name="value">
    <input type="submit" value="send">
  </form>
<% end sub %>

<% sub pagePart_one %>

  You typed: <%= page.RF("value") %>

<% end sub %>

<%
sub callback(a)
  if a = "myAction" then page.return "something"
end sub
%>

<script>
  function doFoo(sender) {
    //first we disable our element which invokes
    //the function. So he cannot call it again as
    //as its already running
    Field.disable(sender);
    ajaxed.callback('myAction', function(r) {
      //do something
    }, null, function(t) {
      //when the callback completes we enable it back
      Field.enable(sender)
    })
  }
</script>

<button type="button" onclick="doFoo()">Do</button>

<%
sub callback(a)
  'gets the total sales for a given year
  if a = "getTotalSales" then
    'calculate the total sales somehow
    page.return getTotals(page.RFP("yr", 0))
  end if
end sub
%>

<script>
  ajaxed.callback('getTotalSales', function(r) {
    $('sales').update(r);
  }, {yr: <%= year(now) %>>);
</script>

Sales this year:
<div id="sales"></div>

<!--#include virtual="/ajaxed/ajaxed.asp"-->
<!--#include virtual="/ajaxed/class_email/email.asp"-->
<%
set page = new AjaxedPage
page.draw()

sub main()
  with new Email
    .addRecipient "to", "[email protected]", "Some recipient"
    .sendersName = "ajaxed.org"
    .sendersEmail = "[email protected]"
    .mailserver = "smtp.yourserver.com"
    .subject = "Hello world!"
    .body = "ajaxed says hello"
    .send()
  end with
end sub
%>

<%
AJAXED_EMAIL_SENDER = "[email protected]"
AJAXED_EMAIL_SENDER_NAME = "ajaxed.org"
AJAXED_MAILSERVER = "smtp.yourserver.com"
AJAXED_EMAIL_DISPATCH = false
%>

<!--#include virtual="/ajaxed/ajaxed.asp"-->
<!--#include virtual="/ajaxed/class_email/email.asp"-->
<%
set page = new AjaxedPage
page.draw()

sub main()
  with new Email
    .addRecipient "to", "[email protected]", "Some recipient"
    .subject = "Hello world!"
    .body = "ajaxed says hello"
    if not .send() then str.write("Could not send: " & .errorMsg)
  end with
end sub
%>

<%
response.write("something")
response.end
%>

<!--#include virtual="/ajaxed/ajaxed.asp"-->
<%
set page = new AjaxedPage
page.draw()

sub main()
  lib.logger.info "page called"
  'we write the querystring into the logger as a debug message
  lib.logger.debug page.QS(empty)
end sub
%>

'live environment
AJAXED_ENVIRONMENT = "LIVE"

<%
'gets the current environment
currentEnvironment = lib.env
'checks if it is development
isDevelopment = lib.dev
'checks if it is live (production)
isLive = lib.live
%>

<% if lib.live then %>
  <script>
    //google analytics javascript
  </script>
<% end if %>

<!--#include virtual="/ajaxed/ajaxed.asp"-->
<%
set page = new AjaxedPage
page.draw()

sub main() %>

  <button type="button" onclick="ajaxed.callback('one', 'content')">content 1</button>
  <button type="button" onclick="ajaxed.callback('two', 'content')">content 2</button>

  <div id="content"></div>

<% end sub %>

<% sub pagepart_one() %>

  the first content

<% end sub %>

<% sub pagepart_two() %>

  some other content from server side

<% end sub %>

<!--#include virtual="/ajaxed/ajaxed.asp"-->
<%
set page = new AjaxedPage
page.draw()

sub callback(action)
  if action = "returnChar" then
    page.return "A"
  elseif action = "returnFloat" then
    page.return 2.5
  end if
end sub

sub main() %>

  <script>
    function returned(result) {
      $('result').update(result);
    }
  </script>

  <button type="button"
    onclick="ajaxed.callback('returnChar', returned)">
    return A
  </button>
  <button type="button"
    onclick="ajaxed.callback('returnFloat', returned)">
    return 2.5
  </button>

  <div id="result"></div>

<% end sub %>

<!--#include virtual="/ajaxed/ajaxed.asp"-->
<%
set page = new AjaxedPage
page.draw()

sub main()
  str.write("Hello world!")
end sub
%>

<!--#include virtual="/ajaxed/ajaxed.asp"-->
<%
set page = new AjaxedPage
page.title = "A page title"
page.draw()

sub main()
  content()
end sub

sub content %>

  The page is located here:<br/>
  <%= page.getLocation("virtual", true) %>
  <br/><br/>

  The environment is: <%= lib.env %>
  <br/><br/>

  ajaxed version: <%= lib.version %>

<% end sub %>

<!--#include virtual="/ajaxed/ajaxed.asp"-->
<%
set page = new AjaxedPage
page.DBConnection = true
page.draw()

sub main()
  'getting a read-only recordset
  set RS = db.getRS("SELECT * FROM table", empty)
  'getting an updateable recordset
  set RS = db.getUnlockedRS("SELECT * FROM table", empty)
  'using parameters
  set RS = db.getRS("SELECT * FROM table WHERE id = {0}", 10)
  'getting a single value
  age = db.getScalar("SELECT MAX(age) FROM users", 0)
end sub
%>

AJAXED_LOADINGTEXT = "Hold on. I am working..."

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
    <head>
        <meta http-equiv="content-type" content="text/html; charset=utf-8" />
        <title><%= title %></title>
        <% ajaxedHeader(array()) %>
    </head>
    <body>

  <div><%= lib.env %></div>
</body>
</html>

<% sub header() %>
    <style>
        /* some styles */
    </style>
    <% page.loadJSFile "someJSFile.js" %>
<% end sub %>

<!--#include virtual="/ajaxed/class_testFixture/testFixture.asp"-->
<%
set tf = new TestFixture
tf.run()

'create test methods starting with test_ 
'followed by an increasing number
sub test_1()
    tf.assertEqual "x", "x", "x should be x"
    tf.assert 1 = 1, "one should be definitely one"
    tf.assertInstanceOf "testFixture", tf, "this test should be a TestFixture"
    tf.assertInDelta 1, 1.1, 0.1, "equality with a delta"
    tf.assertHas array(1, 2, 3), 2, "the array should contain 2"
end sub
%>

<%
'' @DESCRIPTION: gets all users for a given country
'' @PARAM: country [string]: specified country. e.g. AT
'' @RETURN: [recordset]
function getUsersBy(country)
  
end function
%>

<% hash = (new MD5).hash("mypassword") %>

<%
'get the number of records of a table
numberOfRecords = db.count("tablename", empty)

'get number of records with condition
numberOfRecords = db.count("tablename", "active = 1")

'insert a record into a table (returns the ID)
ID = db.insert("tablename", array("firstname", "jack", "lastname", "johnson"))

'updating a record
db.update "tablename", array("firstname", "Johnny"), ID

'works as well with condition
db.update "tablename", array("firstname", "Johnny"), "firstname = 'Jack'"

'delete a record with a condition
db.delete "tablename", "active = 0"

'delete with an ID
db.delete "tablename", 10

'toggle the value of bit fields.
db.toggle "tablename", "active", "country = 'AT'"

'or with ID
db.toggle "tablename", "active", 10
%>

<%
'example of reading some feed
set r = new RSS
r.url = "http://domain.com/feed"
r.load()
%>

<%
set t = new TextTemplate
t.filename = "mytemplate.template"
t.add "name", "jack johnson"

'your email object
'i use the first line of the template as the subject of my emails
mail.subject = t.getFirstLine()
mail.body = t.getAllButFirstLine()
%>