|
|
<%
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 ""
%>
|
|
