<%@ 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" %> <%= strTitle %> :: Privacy

Privacy Policy

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").

Privacy
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.

The Information We Collect
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.

How We Use Information
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.

Disclosure of Information
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.

Maintenance of Information
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.

Questions
Users may direct questions concerning this Privacy Policy by email to privacy@ITNetwork365.com.

Contact Us     About Us     Link to Us     Advertise     Terms of Use     Privacy Policy    
All product names are trademarks of their respective companies. ITNetwork365 is not affiliated with or endorsed by any company listed at this site.
Copyright © ITNetwork365 - All Rights Reserved