Errata

Should read:

"Dim arystrNamesLocal"

Delete the second block of code that reads:

<OBJECT RUNAT=Server
SCOPE=Application
ID=AppInfo2
PROGID="MSWC.MyInfo">
</OBJECT>

AppInfo2.PersonalName = "David Davidson"
AppInfo2.PersonalAddress = "19A West Avenue"

The third line on the page now reads:


' of the PersonalName property of both AppInfo1 and Appinfo2

Should read:

' of the PersonalName property of AppInfo1

The fifth-to-last line on the page now reads:


Sub#OnTransactionAbort()

Should read:

Sub OnTransactionAbort()

That is, there should be a space after the "Sub".

The third line in the Example section now reads:

'the SetAbort method example is processed

Should read:

'the SetComplete method example is processed

SubOnTransactionCommit()

Should read:

Sub OnTransactionCommit()

That is, there should be a space after the "Sub".

The sixth line of code in the fourth code listing on the page now reads:

First name:<INPUT TYPE="text" NAME="last_name" SIZE=60><BR>

Should read:

Last name:<INPUT TYPE="text" NAME="last_name" SIZE=60><BR>

The first line of code under the third paragraph now reads:

strClientCountry = Request.ClientCertificate("Issuer")

Should read:

strCertIssuer = Request.ClientCertificate("Issuer")

reads:

<INPUT TYPE = "Submit"VALUE = "Submit User Info">

A space should be inserted after "Submit". It should read:

<INPUT TYPE= "Submit" VALUE = "Submit User Info">

The first code string listed under the "Count" subsection now reads:

strFirstName = Request.ServerVariables("REMOTE_ADDR")

Should read:

strRemoteAddr = Request.ServerVariables("REMOTE_ADDR")

The second code string listed under the "Count" subsection now reads:

strFirstName = Request.ServerVariables.Item("REMOTE_ADDR")

Should read:

strRemoteAddr = Request.ServerVariables.Item("REMOTE_ADDR")

The first line of code in the listing just before the Tip now reads:

strLastSearch = Response.Cookies("LastSearch") = _

Should read:

Response.Cookies("LastSearch") = _

The thirteenth-to-last line of code now reads:

For intCounter = 1 to Request.Forms("chkUserPrefs").Count

It should read:

For intCounter = 1 to Request.Form("chkUserPrefs").Count

The prototype after CODEPAGE used to read:

"<@CODEPAGE=uintCodePage%>"

It now reads:

"<%@CODEPAGE=uintCodePage%>"

The prototype after ENABLESESSIONSTATE used to read:


"<@ENABLESESSIONSTATE=True|False%>"

It now reads:

"<%@ENABLESESSIONSTATE=True|False%>"

The prototype after LANGUAGE used to read:

"<@LANGUAGE=ScriptingEngine%>"

It now reads:

"<%@LANGUAGE=ScriptingEngine%>"

The prototype after LCID used to read:

"<@LCID=dwordLCID%>"

It now reads:

"<%@LCID=dwordLCID%>"

The prototype after TRANSACTION used to read:

"<@TRANSACTION=strValue%>"

It now reads:

"<%@TRANSACTION=strValue%>"

In the first code block, after the line that reads:

AdoCon.Open "MyDatabase"

insert the line:

%>

In the first code block, after the line that reads:

<!--#include virtual = "/Accessory/ERROR.INC" -->

insert the line

<%

In the first code block, after the line that reads:

Set adoRec = adoCon.Execute ("SELECT * FROM TopSales")

in sert the line

%>

In the first code block, just before the line that reads:

...[additional code]

Insert the line

<%

The ninth line of code on the page now reads:

Dim strUserLogon

Should read:

Dim strLogonUser

The thirteenth line of code on the page now reads:

strUserLogon = Request.ServerVariables("USER_LOGON")

Should read:

strLogonUser = Request.ServerVariables("LOGON_USER")

The twenty-first line of code on the page now reads:

strUserLogon = ""

Should read:

strLogonUser = ""

The list term in "Parameters" section used to read:

"ocjCmd"

It now reads:

"objCmd"

The last line of code used to read:

"rsHighSales = objDBCmd.Execute"

It now reads:

"Set rsHighSales = objSPCmd.Execute"

The 7th line of code now used to read:

"Set objDBCmd = Nothing"

It now reads:

"Set objSPCmd = Nothing"

The eleventh-to-last line of code reads:

For intCounter = 0 to objDBConn.Errors.Count

Should read:

For intCounter = 0 to objDBConn.Errors.Count - 1

The fourth to last line of the code listing reads:

There were <%= lngREcordsAffected %> records...

It should read:

There were <%= lngAffectedRecords %> records...

to read:

"Windows NT: C:WinNTSystem32Regsvr32.exe Adrot.dll"

It now reads:

"Windows NT: C:WinNTSystem32winnnt32inetserv
Regsvr32.exe Adrot.dll"

instanciation like this:

"objAdRot = Server.CreateObject("MSWC.AdRotator")"

When instanciating an object in VB you must use "Set." Line 6 now reads:

"Set objAdRot = Server.CreateObject("MSWC.AdRotator")"

changed to read:

"A Folder object that represents the current Outbox of the
current session"

After the line that reads:

objNewMail.BodyFormat = cdoBodyFormatHTML

Insert the line:

objNewMail.MailFormat = cdoMailFormatMime

In the code that reads:

If intCurrentPageNumber > 1 Then
'Retrieve the description for the first page in the
'series
strPrevURL = objContentLink.GetPreviousURL( _

Should read:

If intCurrentPageNumber > 1 Then
'Retrieve the URL for the first page in the
'series
strPrevURL = objContentLink.GetPreviousURL( _

There are 3 lines at the end of the code section that read:

<A HREF="Content3.asp">Previous: Lesson 3 Variables</A><BR>
<A HREF="Content1.asp">Home: Lesson 1 Introduction</A><BR>
<A HREF="Content5.asp">Next: Lesson 5 Pointers</A><BR>

These lines should be boldfaced.

Dim tsObject 'TextStream object

Change the line of code before the "%>" to read:

Set tsObject = filObject.OpenAsTextStream(ForAppending, TristateTrue)

Dim tsObject 'TextStream object

Change the line that reads:

filObject.OpenAsTextStream(ForReading, TristateFalse)

To:

Set tsObject = filObject.OpenAsTextStream(ForReading, TriStateFalse)

Change the last line before the "%>" to:

strBuffer = tsObject.ReadLine

Dim tsObject 'TextStream object

Change the line that reads:

filObject.OpenAsTextStream(ForAppending, TristateFalse)

To:

Set tsObject = filObject.OpenAsTextStream(ForAppending, TriStateFalse)

Change the line before "...[additional code]" to:

tsObject.Write strEnding

(Dim filObject...), add the line:

Dim tsObject 'TextStream object

Change the line that reads:

filObject.OpenAsTextStream(ForAppending, TristateFalse)

To:

Set tsObject = filObject.OpenAsTextStream(ForAppending, TriStateFalse)

Change the line before "...[additional code]" to:

tsObject.WriteLine strEnding