Errata for ASP in a Nutshell

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