<%
cnx_startpage = timer
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"

cnx_tsite = Request.Querystring("cnx_tsite")

CNX_Framework_Version = 3.015

If Request.Querystring("cnx_showtime") = "showit" Then Session("cnx_showtime") = "showit"

If Session("cnxtrxkeeplogged") = "cnxkeepit" Then
		
	Response.Cookies("user_ID") = Session("user_ID")
	Response.Cookies("user_ID").expires = Now + 90
		
End If

If Session("user_ID") = "" AND Request.Cookies("user_ID") <> "" Then
	Session("user_ID") = Request.Cookies("user_ID")
	Response.Cookies("user_ID").expires = Now + 90
End If

%>
<!-- #INCLUDE VIRTUAL="ctl/macros/start.asp" -->
<%




If Session("CNXStat_Referer") = "" Then
	Session("CNXStat_Referer") = Request.ServerVariables("http_referer")
End If

	WS_CNX_URL = Request.ServerVariables("URL")
	WS_CNX_Remote_Addr = Request.ServerVariables("REMOTE_ADDR")
	WS_CNX_Remote_Host = Request.ServerVariables("REMOTE_HOST")
	WS_CNX_Referer = Request.ServerVariables("HTTP_Referer")
	WS_CNX_Session_Referer = Session("CNXStat_Referer")
	WS_CNX_Querystring = Request.ServerVariables("QUERY_STRING")

If Request.Querystring("cnx_tpage") = "info" Then
	CNX_RefURL = Replace("/info" & Request.Querystring("info"), "index.htm?cnx_tpage=info, ", "")
Else
	CNX_RefURL = "/index.htm"
End If


If Right(CNX_RefURL, 10) = "/index.htm" Then
	CNX_RefURL_NoIndex = Left(CNX_RefURL, (Len(CNX_RefURL)-10))
ElseIf Right(CNX_RefURL, 1) = "/" Then
	CNX_RefURL_NoIndex = Left(CNX_RefURL, (Len(CNX_RefURL)-1))
	CNX_RefURL = CNX_RefURL & "index.htm"
Else
	CNX_RefURL_NoIndex = CNX_RefURL
	CNX_RefURL = CNX_RefURL & "/index.htm"
End If

If InStr(Request.Querystring("info"), "/") > 0 Then
	AY_Go = Split(Request.Querystring("info"), "/")
	xInfo = AY_Go(1)
Else
	xInfo = Request.Querystring("info")
End If


If CNX_Default_Page = "" Then CNX_Default_Page = "index"

If xInfo = "" OR xInfo = "index" Then xInfo = CNX_Default_Page

SQLstring = "SELECT * FROM tbl_kb_master " & _
			"WHERE kbms_site = " & Site_ID & " " & _
			"AND LOWER(kbms_info) = '" & LCase(xInfo) & "' "
						
			
Set RSgi = Con.Execute(SQLstring)
	

If NOT RSgi.EOF Then
	
	CType = "kb"
	CID = RSgi("kbms_ID")
				
Else
		
	CType = "kb"
	CID = CNX_PageNotFound
		
End If
	
Set RSgi = Nothing			


If Site_DBVars = True Then
	%><!-- #INCLUDE VIRTUAL="ctl/macros/dbvars.asp" --><%
End If

If CType <> "" Then
	%><!-- #INCLUDE VIRTUAL="ctl/macros/ctype.asp" --><%
End If


%><!-- #INCLUDE VIRTUAL="site/content/index.asp" --><!-- #INCLUDE VIRTUAL="ctl/macros/end.asp" --><!-- #INCLUDE VIRTUAL="site/content/sitevariables_close.asp" -->