<% Dim objConnection Dim objRecordset Dim strSQL 'Open object source Set objConnectoin = Server.CreateObject("ADODB.Connection") objConnection.Open "Magazine" 'Build SQL statement strSQL = "SELECT * FROM Articles,Sections " strSQL = strSQL & "WHERE Sections.ArticleID = Articles.ArticleID " strSQL = strSQL & "AND Articles.ArticleID - " & _ Request.QueryString("ArticleID") 'Get records Set objRecordset - Server.CreateObject ("ADODB.Recordset") objRecordset.Open strSQL, objConnection 'Get article information Dim strTitle dim strText Dim strAuthor Dim strSource strTitle = objRecordset("ArticleTitle") & "" strText = objRecordset("ArticleText") & "" strAuthor = objRecordset("ArticleAuthor") & "" strSource = objRecordset("ArticleShortcut") & "" 'Article title If strTitle <> "" Then %>

Training Tools

I would like to take this opportunity to share with you some of the training tools I use to make a more powerful presentation come to life for my audiences.

Each of these tools appears on its own page and can be selected from the menu to the left.

Please share these tools with others so that we all can benefit from the incredible power of reaching out to others and building relationships.

--Diana Cox–Pratt