When I try to create a DHTML application,
VB6 inserts a module, modDTML.bas into my
project. The following is a listing of that module:
========= BEGIN LISTING =====================
'PutProperty: Store information in a cookie by calling this
' function.
' The required inputs are the named Property
' and the value of the property you would like to store.
'
' Optional inputs are:
' expires : specifies a date that defines the valid life time
' of the property. Once the expiration date has been
' reached, the property will no longer be stored or given out.
Public Sub PutProperty(objDocument As HTMLDocument, strName As String, vntValue As Variant, Optional Expires As Date)
objDocument.cookie = strName & "=" & CStr(vntValue) & _
IIf(CLng(Expires) = 0, "", "; expires=" & Format(CStr(Expires), "ddd, dd-mmm-yy hh:mm:ss") & " GMT") ' & _
End Sub
'GetProperty: Retrieve the value of a property by calling this
' function. The required input is the named Property,
' and the return value of the function is the current value
' of the property. If the proeprty cannot be found or has expired,
' then the return value will be an empty string.
'
Public Function GetProperty(objDocument As HTMLDocument, strName As String) As Variant
Dim aryCookies() As String
Dim strCookie As Variant
On Local Error GoTo NextCookie
'Split the document cookie object into an array of cookies.
aryCookies = Split(objDocument.cookie, ";")
For Each strCookie In aryCookies
If Trim(VBA.Left(strCookie, InStr(strCookie, "=") - 1)) = Trim(strName) Then
GetProperty = Trim(Mid(strCookie, InStr(strCookie, "=") + 1))
Exit Function
End If
NextCookie:
Err = 0
Next strCookie
End Function
============ END LISTING ==================
It is obvious that this module is incorrect. If you look at the
PutProperty function, two item stand out as being incorrect:
1. In the line that starts "objDocument.cookie = ...", the second continuation line ends with "...GMT") ' & _". The last underscore
on that line indicates that there should be at least one more continuation line to this statement.
2. No where in this function is the function value PutProperty
set, so the function can't possible return any value.
If someone gets a different modDTML.bas file,
would you post it for me, please.
Thanks!
