using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.Web.Configuration;
 
using System.Data.OleDb;
using System.Data.SqlClient;
using System.Data;

Lparameters toColumn
 
Local laControlSource[1], lcAlias, lcControlSource, lcControlSourceTest, lcField, lcPicture
Local lcSortDirection, lnSelect, loHeader
 
Dimension laControlSource[1]
 
 If Type('toColumn.sorting_header') <> 'O'
    Return
 Endif

*-- CLASS IasWebServer
 
*--  Some test code, demonstrating how the class works
*--  Make sure that webserver.vcx can be found by this program
*--  Also make sure that wwipstuff.dll can be found by this program
 
CLEAR
o = CREATEOBJECT("IasWebServer")
 
*-- Ask for the physical path of the virtual root for the default website:

*===============================================================================================
Procedure wwJobTest
 
Set Classlib To wwlm additive
 
Local loJob as 'wwJob' of 'wwLM.vcx'
 
*-- See http://therealmattslay.blogspot.com/2010/01/exploring-my-wwbusiness-extension.html for more details.
 
loJob = CreateWWBO('wwjob') &&   < -- I use a Factory method (procedure) to return the BO.

*** Setup Transaction
lcAkismetKey = "" &&Get your API key at http://wordpress.com/signup/ and click "Just a username, please."
lcBlogURL = Alltrim(Request.Form("BlogURL")) &&Blog URL
lcUserIP = Alltrim(Request.GetIPAddress())
lcUserAgent = Alltrim(Request.GetBrowser())
lcCommentType = Alltrim(Request.Form("UserType")) &&Choices: blank, comment, trackback, pingback, or a made up value like "registrant".
lcCommentAuthor = Alltrim(Request.Form("UserName")) &&FYI: 'viagra-test-123' forces true a.k.a. "spam"
lcAuthorEmail = Alltrim(Request.Form("UserEmail"))
lcAuthorUrl = Alltrim(Request.Form("UserWebsite"))
lcComment = URLEncode(Alltrim(Request.Form("UserComment")))