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:

*--------------------------------------------------------------------------------------------
* wwBusinessPro Data Access library for Visual FoxPro
*--------------------------------------------------------------------------------------------
*
*  Code sample for getting started with wwBusinessPro    (Rev. 2012-04-20)
*
*   To learn more about using wwBusinessPro data access library, see:
*
*   https://bitbucket.org/mattslay/wwbusinesspro/wiki/Home
*

*** 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")))