<% LB = Chr(13) & Chr(10) Const ORDER_BY = " ORDER BY onl_CompanyAlpha" Const ORG = "AIMR" Const DOMAIN = "aimr.net" Function fnGetData() 'on error resume next ' Set DataConn = Server.CreateObject("ADODB.Connection") DataConn.Open "DSN=aimr", "bweiner", "bweiner1104" If err.number Then sstrErrors = sstrErrors & "DataConn did not open successfully: " & err.description & LB err.Clear End If ' qs_onl_Organization = Request("onl_Organization") qs_onl_Organization = Replace(qs_onl_Organization, "'", "''") strQuery = "SELECT * FROM tblOnlineMembers WHERE onl_Organization = '" & ORG & "'" & ORDER_BY Set rsTemp = Server.CreateObject("ADODB.Recordset") rsTemp.CursorLocation = 3 rsTemp.Open strQuery, DataConn If err.number Then sstrErrors = sstrErrors & "RS did not open successfully: " & err.description & LB err.Clear End If intRecordCount = rsTemp.RecordCount intFieldCount = rsTemp.Fields.Count ReDim arData(intFieldCount-1,intRecordCount) For i=0 To intFieldCount-1 arData(i,0) = rsTemp.Fields.Item(i).Name Next For i=1 To intRecordCount For j=0 To intFieldCount-1 arData(j,i) = rsTemp(arData(j,0)) Next rsTemp.MoveNext Next If err.number Then sstrErrors = sstrErrors & "Array did not populate successfully: " & err.description & LB err.Clear End If rsTemp.Close If err.number Then sstrErrors = sstrErrors & "RS did not close successfully: " & err.description & LB err.Clear End If Set rsTemp = nothing DataConn.Close If err.number Then sstrErrors = sstrErrors & "DataConn did not close successfully: " & err.description & LB err.Clear End If Set DataConn = nothing If sstrErrors > "" Then Call subError(sstrErrors) End If fnGetData = arData End Function Function fnCreateHTML(arData) strOut = "" strOut = strOut & "" & LB fnCreateHTML = strOut End Function '*************************************** '*************************************** sarData = fnGetData() sstrOut = fnCreateHTML(sarData) %> AIM/R :: Members Online























AIM/R's 39th Annual Management Conference

Please find below all of the submitted presentations that will take place at the conference. In the interest of going green and limiting our paper usage, we would advise that if you want printouts to follow along at the presentation, that you print the presentation and bring it with you. Please note that the presentation, American Society for Asset Protection, will be bringing handouts to distribute at the session.

See the Future Before Your Competition Does | Alan Beaulieu

The Four Crucial Elements for Success or Failure in a New Sales Rep | Fred Liesong

American Society for Asset Protection | Larry Oxenham

iRep, Technology for Today's Rep | Michelle Lewnes & Charlie Parham

Managing Human Resource Issues | Michael Bass

PPACA — New Healthcare Laws | Jim Robick

Robinson Patman Act | Daniel Beederman

Succession Planning From Toolkit | Michele Lewnes & Alan Guidish

Succession Planning U.S. Tax Guide to Tax and Wealth Planning

Succession Planning U.S. Tax UHNW Wealth Planning Securing Your Legacy
About AIM/R | Membership | Members Online | Manufacturer Info | What's New | Newsletter Copyright © 2010. All rights reserved.