<%@ Language=VBScript %>
<% Option Explicit %>
<% Response.Buffer = True %>

<%

' -----------------------------------------------------------------
' -- START EDITING THESE CONSTANTS --
' -----------------------------------------------------------------

' -- CONNECTION FOR ACCESS DATABASE
Dim MM_connGlobal_STRING
MM_connGlobal_STRING = "A7647_bi"

Const globalPath = "http://www.itnetwork365.com/"

' -- SET THE NUMBER TO BE USED TO ENCODE / DECODE THE MEMBER ID QUERYSTRING STRING USED IN BULK EMAIL LINKS
' -- THIS CONSTANT CAN BE ANY NUMBER OR CALCULATED VALUE YOU CHOOSE
Const intCodeNumber 		= "65536"

' -- SET SOME SIMPLE NAMES AND EMAIL ADDRESSES
' -- THESE CONSTANTS ARE ONLY USED IN THE SUBSCRIBE AND UNSUBSCRIBE CONFIRMATION EMAILS
Const strMailFromName		= "BI Administrator"
Const strEmailFromName		= "biadmin@businessintelligence.com"
Const strCompanyName		= "www.businessintelligence.com"

' -- THESE TWO CONSTANTS ARE USED IN /JOBS/REGISTER_PROCESS.ASP TO SEND CONFIRMATION EMAIL
Const strMailFromNameBIJobs		= "BI Jobs Administrator"
Const strEmailFromNameBIJobs		= "bijobs@businessintelligence.com"


' -- THE STRDOMAIN NAME IS ONLY USED IN THE SUBSCRIBE AND UNSUBSCRIBE CONFIRMATION EMAILS
' -- REMEMBER THE TRAILING SLASH BUT DO NOT USE HTTP:// AS THIS IS SET IN THE SCRIPT ALREADY
' -- EXAMPLE: www.yourcompany.com/
Const strDomainName			= "www.businessintelligence.com"


' -- THE STRMAILINGLISTPATH IS USED IN SOME EMAILS IN CASE YOU PLACE THIS SET OF PAGES DEEPER INTO YOUR WEB SITE
' -- THIS IS ONLY USED IN PERSONAL EMAIL TYPES SENT TO LIST MEMBERS TO ALLOW THEM TO UPDATE OR REMOVE THEIR DETAILS
' -- YOU SHOULD ENSURE THAT YOU HAVE ENABLED DEFAULT.ASP IN THE ENABLE DEFAULT DOCUMENT LIST FOR YOUR IIS SETUP
' -- REMEMBER THE TRAILING SLASH BUT DO NOT USE HTTP:// AS THIS IS SET IN THE SCRIPT ALREADY
' -- EXAMPLE: www.yourcompany.com/mailinglist/
Const strMailingListPath	= "www.businessintelligence.com/register.asp"


' -----------------------------------------------------------------
' -- FINISH EDITING THE CONSTANTS
' -----------------------------------------------------------------
' -- THERE SHOULD BE NO NEED TO EDIT ANYTHING BELOW THIS LINE 
' -- APART FROM POSSIBLY THE openDB() FUNCTION TO OPEN THE DATABASE
' -----------------------------------------------------------------


' -- START ERROR HANDLING
' -- UNCOMMENT IF REQUIRED BUT I RECOMMEND LEAVING IT COMMENTED OUT FOR BETTER ERROR REPORTING WHILE DEVELOPING
' On Error Resume Next


' -- DEFINE DATABASE FUNCTIONS

' -- SET SOME BASIC VARIABLES
Dim DSN_Name			' Application DB Connection
Dim objConn				' Connection Object
Dim strSQL				' SQL String
Dim objRs				' Recordset Object
Dim DB_CONNECTIONSTRING


' -- FUNCTION TO OPEN THE DATABASE CONNECTION. USAGE = Call openDB ()
' -- COMMENT-OUT OR UNCOMMENT-IN TO USE ANOTHER CONNECTION TYPE
Function openDB

'	-- GLOBAL.ASA CONNECTION. CHECK APPLICATION NAME. UNCOMMENT IF REQUIRED
'	DSN_Name = Application ("dbMailList_ConnectionString")
'	Set objConn = Server.CreateObject ("ADODB.Connection")
'	objConn.Open (DSN_Name)

'	-- DSN-LESS CONNECTION. CHECK FILE NAME AND PATH. UNCOMMENT IF REQUIRED
'	-- JET 4.0 DRIVER FOR MICROSOFT ACCESS
'	DSN_Name = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" 
'	DSN_Name = DSN_Name & Server.Mappath("_data/register.mdb") 
'	Set objConn = Server.CreateObject("ADODB.Connection") 
'	objConn.Open DSN_Name

'	-- DSN-LESS CONNECTION. CHECK FILE NAME AND PATH.  COMMENT OUT IF NOT REQUIRED
'	-- NATIVE ODBC DRIVER FOR MICROSOFT ACCESS
'    DSN_Name = "busine582.data" 
'    DSN_Name = DSN_Name & Server.Mappath("database/register.mdb") 
'    DB_CONNECTIONSTRING = "DSN=db114411.sql; Database=db114411; UID=busine58;PWD=1912tiong"

'    DB_CONNECTIONSTRING = "DSN=M7647_BI; Database=M7647_BI; UID=Douglas_Campbel;PWD=twinsoft"

' DB_CONNECTIONSTRING = "Driver={mySQL}; Server=mysql4.uplinkearth.com; Port=3306; Option=0; Socket=; Stmt=; Database=M7647_BI; Uid=Douglas_Campbel; Pwd=twinsoft;" 

DB_CONNECTIONSTRING = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=h41mysql7.secureserver.net; PORT=3306; DATABASE=itnetwork365; USER=itnetwork365; PASSWORD=JMNH9.wn@!; OPTION=0;"

    CONST DB_TYPE="MySQL"
    Set objConn = Server.CreateObject("ADODB.Connection") 
'    objConn.Open "DSN=busine582.data"
     objConn.Open DB_CONNECTIONSTRING

End Function


' -- FUNCTION TO CREATE A RECORDSET. USAGE = Call createRS (objRs)
Function createRS (objRs)

	Set objRS = Server.CreateObject("ADODB.Recordset")
	objRS.LockType = 3
	objRS.CursorLocation = 3
	objRS.CursorType = 0
	Set objRS = objConn.Execute (strSQL)

End Function


' -- FUNCTION TO CLOSE CONNECTION AND RELEASE OBJECTS. USAGE = Call closeConnRS (objRs, objConn)
Function closeConnRS (objRs, objConn)

	If isObject (objRs) Then
		If LCase(TypeName(objRS)) = "recordset" Then
			If objRs.State = 1 Then
				objRs.Close
			End If
		End If
		Set objRs = Nothing
	End If

	If isObject (objConn) Then
		If LCase(TypeName(objConn)) = "connection" Then
			If objConn.State = 1 Then
				objConn.Close
			End If
		End If
		Set objConn = Nothing
	End If

End Function


' -- END DATABASE FUNCTIONS


' -- DEFINE RECORD FUNCTION

Function recordStandClicks(hall, stand)
	strSQL = "INSERT INTO record_stand (mem_id, hall, stand, login_date) VALUES ('" + cStr(Request.Cookies("uid")) + "','" + hall + "','" + stand + "',curDate())"
	objConn.Execute (strSQL)
End Function

Function recordHallClicks(hall)
	strSQL = "INSERT INTO record_hall (mem_id, hall, login_date) VALUES ('" + cStr(Request.Cookies("uid")) + "','" + hall + "',curDate())"
	objConn.Execute (strSQL)
End Function

Function recordKeynoteClicks(keynote)
	strSQL = "INSERT INTO record_keynote (mem_id, keynote, login_date) VALUES ('" + cStr(Request.Cookies("uid")) + "','" + keynote + "',curDate())"
	objConn.Execute (strSQL)
End Function

' -- END RECORD FUNCTIONS

' -- DEFINE ARRAY FUNCTIONS

' -- SET ARRAY VARIABLES
Dim intpage				' For Request.QueryString Page Number
Dim arrayData			' Array for objRs.GetRows
Dim arrayDataCount		' For Total Number of Records in Array
Dim i					' For Looping Through Array
Dim rowbgcolor			' For Alternate Rowcolour
rowbgcolor = "#F3F3F3"

Dim intRecordsPerPage	' Number of Records to be displayed per page
Dim intTotalPages		' Total number of Array Records
Dim intFirstRecord		' First record in Array
Dim intLastRecord		' Last record in Array
Dim totalRecords


' -- FUNCTION TO STORE objRS RECORDSET RESULTS IN ARRAY. USAGE = Call arrayGetRows ()
Function arrayGetRows

	If not objRs.EOF Then
		arrayData = objRs.GetRows
		arrayDataCount = UBound (arrayData, 2) + 1
	End If

End Function


' -- FUNCTION FOR ARRAY RECORDSET PAGING. USAGE = Call arrayPaging ()
Function arrayPaging

	intRecordsPerPage = 20
	totalRecords = ubound(arrayData, 2)+1
	intTotalpages = int((ubound(arrayData, 2)/intRecordsPerPage)+1)
	intFirstRecord = (intPage - 1) * intRecordsPerPage
	If intFirstRecord + (intRecordsPerPage - 1) >= ubound(arrayData,2) then
		intLastRecord = ubound(arrayData, 2) 
	Else
		intLastRecord = intFirstRecord + (intRecordsPerPage - 1)
	End If

End Function


' -- FUNCTION TO ALTERNATE ROW COLOURS. USAGE = Call rowColor ()
Function rowColor

	If rowbgcolor = "#F3F3F3" Then
		rowbgcolor = "#FFFFFF"
	Else
		rowbgcolor = "#F3F3F3"
	End If

End Function


' -- END ARRAY FUNCTIONS

function chkEmail(theAddress)
   ' checks for a vaild email
   ' returns 1 for invalid addresses
   ' returns 1 for invalid addresses
   dim atCnt
   chkEmail = 0

   ' chk length
   if len(theAddress) < 5  then 
      ' a@b.c should be the shortest an
      ' address could be
      chkEmail = 1
 
   ' chk format
   ' has at least one "@"
   elseif instr(theAddress,"@") = 0 then
      chkEmail = 1

   ' has at least one letter before "@"
   elseif instrrev(theAddress,"@") = 1 then
      chkEmail = 1
 
   ' has at least one "."
   elseif instr(theAddress,".") = 0 then
      chkEmail = 1
 
   ' has no more than 3 chars after last "."
   elseif len(theAddress) - instrrev(theAddress,".") > 3 then
      chkEmail = 1

   ' has less than 2 chars after last "."
   elseif len(theAddress) - instrrev(theAddress,".") < 2 then
      chkEmail = 1
 
   ' has no "_" after the "@"
   elseif instr(theAddress,"_") <> 0 and _
       instrrev(theAddress,"_") > instrrev(theAddress,"@")  then
      chkEmail = 1

   else
      ' has only one "@"
      atCnt = 0
      for i = 1 to len(theAddress)
         if  mid(theAddress,i,1) = "@" then
            atCnt = atCnt + 1
         end if
      next
 
      if atCnt > 1 then
         chkEmail = 1
      end if

      ' chk each char for validity
      for i = 1 to len(theAddress)
        if  not isnumeric(mid(theAddress,i,1)) and _
		(lcase(mid(theAddress,i,1)) < "a" or _
		lcase(mid(theAddress,i,1)) > "z") and _
		mid(theAddress,i,1) <> "_" and _
		mid(theAddress,i,1) <> "." and _
		mid(theAddress,i,1) <> "@" and _
		mid(theAddress,i,1) <> "-" then
            chkEmail = 1
        end if
      next
  end if
end function

%>


<%
Dim strWebsite
Dim strTitle

strWebsite = "itnetwork365"
strTitle = "ITNetwork365"

%>

<html>
<head>
<title><%= strTitle %> :: Privacy</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="Assets/master.css" type="text/css">
</head>

<body bgcolor="#FFFFFF" text="#000000">

<table width="760" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td colspan="2" valign="top">
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
  		<tr> 
  <td width="226" height="65" valign="middle" align="left">
  <a href="../index.asp"><img src="image/itnetwork365.gif" border="0"></a></td>
  <td width="534" valign="top" align="right">
  <a href="http://www.sas365.com"><img src="image/472x59_sas_365.jpg" border="0"></a></td>
</tr>
      </table>
    </td>
  </tr>
  <tr>
    <td height="30"></td>
    <td></td>
  </tr>
  <script>
function Go(){return}
</script>
  <script type='text/javascript' src='assets/itnetwork_menu_var.js'></script>
  <script type='text/javascript' src='assets/itnetwork_menu_com.js'></script>
  <tr valign="middle"> 
    <td height="293" colspan="2" align="center"> 
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
		<tr> 
  <td width="760" height="252">
  <span class="contentText"><br><b>Privacy Policy</b><br>
	<br>
	This Privacy Policy governs the manner in which ITNetwork365 collects, uses, 
	maintains and discloses information collected from users of the ITNetwork365 Web 
	Site (each, a "User").
	<br><br>
	<b>Privacy</b><br>
	ITNetwork365 is committed to safeguarding the information Users entrust to ITNetwork365 
	and believes every User should know how ITNetwork365 utilizes the information collected 
	from the Web Site.  This Web Site is not directed at children under 13 years of age.  
	However, children under the age of 13 which wish to participate in ITNetwork365 Forum 
	must submit a permission form prior to becoming a registered user.<br>
	<br>
	<b>The Information We Collect</b><br>
	ITNetwork365 may collect personally identifiable information from Users in a variety 
	of ways, including through online forms for ordering products and services, and other 
	instances where Users are invited to volunteer such information. ITNetwork365 may also 
	collect information about how Users use our Web Site, for example, by tracking the 
	number of unique views received by the pages of the Web Site, or the domains from 
	which Users originate. We may use "cookies" to track how Users use our Web Site. A 
	cookie is a piece of software that a Web server can store on the Users' PC and use 
	to identify the User should they visit the web site again. While not all of the 
	information that we collect from Users is personally identifiable, it may be associated 
	with personally identifiable information that Users provide us through our Web Site. 
	We may use third party ad networks to serve ads on our site. The cookies received 
	with banner ads served by these networks may be used to collect and build anonymous behavioral 
	profiles by these companies to deliver targeted ads and tracking referrals, and ITNetwork365 
	does not have access to this information.<br>
	<br>
	<b>How We Use Information</b><br>
	ITNetwork365 may use personally identifiable information collected through our Web Site 
	to contact Users regarding products and services offered by ITNetwork365 and its 
	trusted affiliates, independent contractors and business partners, and otherwise to 
	enhance Users' experience with ITNetwork365 and such affiliates, independent contractors 
	and business partners. ITNetwork365 may also use information collected through our Web 
	Site for research regarding the effectiveness of the Web Site and the marketing, 
	advertising and sales efforts of ITNetwork365, its trusted affiliates, independent 
	contractors and business partners.<br>
	<br>
	<b>Disclosure of Information</b><br>
	ITNetwork365 may disclose information collected from Users to trusted affiliates, 
	independent contractors and business partners who will use the information for 
	the purposes outlined above. We may also disclose aggregate, anonymous data based 
	on information collected from Users to investors and potential partners.  Finally, 
	we may transfer information collected from Users in connection with a sale of 
	ITNetwork365' business.<br>
	<br>
	<b>Maintenance of Information</b><br>
	Information about Users that is maintained on our systems is protected using 
	industry standard security measures.  However, we cannot guarantee that the 
	information submitted to, maintained on, or transmitted from our systems will 
	be completely secure.<br>
	<br>
	<b>Questions</b><br>
	Users may direct questions concerning this Privacy Policy by email to 
	privacy@ITNetwork365.com. <br></span>
	<br>
  </td>
</tr>

      </table>
      </td>
  </tr>
  
<tr valign="middle"> 
<td height="20" colspan="2" valign="middle" class="footerText" style="padding-left: 5" align="center"> 
  <a href="contactus.asp">Contact Us</a>&nbsp;&nbsp;&nbsp;&nbsp;
  <a href="aboutus.asp">About Us</a>&nbsp;&nbsp;&nbsp;&nbsp;
  <a href="linktous.asp">Link to Us</a>&nbsp;&nbsp;&nbsp;&nbsp;
  <a href="advertise.asp">Advertise</a>&nbsp;&nbsp;&nbsp;&nbsp;
  <a href="terms.asp">Terms of Use</a>&nbsp;&nbsp;&nbsp;&nbsp;
  <a href="privacy.asp">Privacy Policy</a>&nbsp;&nbsp;&nbsp;&nbsp;
 </td>
</tr>
<tr valign="middle"> 
<td height="20" colspan="2" valign="middle" class="trademarkText" style="padding-left: 5" align="center"> 
All product names are trademarks of their respective companies. ITNetwork365 is not affiliated with or endorsed by any company listed at this site.</td>
</tr>
<tr valign="middle"> 
<td height="20" colspan="2" valign="middle" bgcolor="#006699" class="copyrightText" style="padding-left: 5" align="center"> 
  <span class="copyrightwordText">
  <a href="copyright.asp">Copyright</a> &copy; <a href="aboutus.asp">ITNetwork365</a></span> - All Rights Reserved</td>
</tr>

</table>
</body>
</html>