Inbox
Letters
to CommVerge
6/16/00
from Kieren MacMillan
Universal agreement 5
The benefit to the industry as a whole would be incalculable if companies in dominant positions like the one enjoyed by Intel would accept and embrace more innovative, universal, or appropriate products created by other companies, rather than using brute force to saturate the marketplace with their own--potentially inferior--technologies.
More long-term thinking and cooperation of this type would pave the way for a new, more successful, and more pleasant era of technology and innovation.
in reference to
Universal it’s not
|
Send your
own letters to CommVerge |
|
<%
Dim useKeywords
Dim intKeywordCount
Dim keywordArray
'****************************************************************************
' Functions used in all
'****************************************************************************
'Debug Tool: output Keyword info
Sub TestKeywordSetup()
If useKeywords Then
'Response.Write "
USING KEYWORD
"
'Response.Write "Count: " & intKeywordCount & "
"
If not isNull(keywordArray) Then
For each kword in keywordArray
'Response.Write kWord & "
"
Next
End If
Else
'Response.Write "NO KEYWORDS
"
End If
End Sub
%><%
'Response.Write "No Keyword"
useKeywords = False
%><%
'End Keywords - at this point if keywords are being used
'useKeywords is True
'intKeywordCount is the number of elements in keyword array
'keywordArray contains the keywords for this page
'If keywords are not being used useKeyword = False
'Call TestKeywordSetup()
%><%
Dim userID, transID, urlPathName, bstring, ipaddr, keyword
userID = "guestcahners"
transID = 0
On Error resume next
set guidMaker = Server.CreateObject("Membership.Guidgen.1")
If Err.Number <> 0 Then
Err.Clear
Else
transID = guidMaker.GenerateGUID
End If
' Try to create an AUO, if we are unable to create one we will try to retrieve a
' memuser cookie that was set from a previous session.
' The reason why we may not able to create an AUO is that this web site
' may not be mapped to a membership server.
' If the web server has been unmapped from a membership server, the memuser
' cookie may still be on the clients computer.
Set user = Server.CreateObject("Membership.UserObjects.1")
If Err.Number <> 0 Then
' Unable to create an AUO - not mapped to a membership server.
Err.Clear
strMem = Request.Cookies.Item("MEMUSER")
if "" <> strMem then
userID = strMem
end if
Else
' Successfully created an AUO - we are mapped to a membership server.
userID = LCase(user.cn)
' This check handles an anomoly with SiteServer P&M - see Larry for further details.
if Err.number <> 0 then
Err.Clear
strMem = Request.Cookies.Item("MEMUSER")
if "" <> strMem then
userID = strMem
end if
end if
End If
if "cegbutton" = "cegbutton" then
urlPathName = LCase(Request.ServerVariables("PATH_INFO"))
keyword = ""
else
urlPathName = LCase(Request.ServerVariables("PATH_INFO"))
keyword = ""
end if
bstring = Request.ServerVariables("HTTP_USER_AGENT")
bstring = Server.URLEncode(bstring)
ipaddr = Request.ServerVariables("REMOTE_ADDR")
Response.Write ""
If not useKeywords then
Dim MyArray(3)
MyArray(0) = 1
MyArray(1) = 2
MyArray(2) = 3
MyArray(3) = 4
intHighNo = 3
intLowNo = 0
if "False" = "True" then
For j = 1 to 25
Randomize
arrR1 = Int((intHighNo - intLowNo + 1) * Rnd + intLowNo)
arrR2 = Int((intHighNo - intLowNo + 1) * Rnd + intLowNo)
intTemp = MyArray(arrR1)
MyArray(arrR1) = MyArray(arrR2)
MyArray(arrR2)= intTemp
Next
end if
for nNumAds = 0 to 3
pos = MyArray(nNumAds)
Response.Write "
"
Response.Write ""
Response.Write "
"
Next
Else
'Use Keywords
If intKeywordCount = 0 Then
pos = 1
keyword = ""
Response.Write "
"
Response.Write ""
Response.Write "
"
Else
for nNumAds = 0 to (intKeywordCount - 1)
pos = nNumAds + 1
keyword = Server.URLEncode(keywordArray(nNumAds))
Response.Write "
"
Response.Write ""
Response.Write "
"
Next
End If
End If
Response.Write ""
%>
|
|
