%@LANGUAGE="VBSCRIPT"%> <% Dim rsMainbanners Dim rsMainbanners_numRows Set rsMainbanners = Server.CreateObject("ADODB.Recordset") rsMainbanners.ActiveConnection = MM_connDuc_STRING rsMainbanners.Source = "SELECT * FROM tbmainbanners ORDER BY RAND()" rsMainbanners.CursorType = 0 rsMainbanners.CursorLocation = 2 rsMainbanners.LockType = 1 rsMainbanners.Open() rsMainbanners_numRows = 0 %> <% Dim rsImages Dim rsImages_numRows Set rsImages = Server.CreateObject("ADODB.Recordset") rsImages.ActiveConnection = MM_connDuc_STRING rsImages.Source = "SELECT * FROM tblmedia ORDER BY MEDIAID ASC" rsImages.CursorType = 0 rsImages.CursorLocation = 2 rsImages.LockType = 1 rsImages.Open() rsImages_numRows = 0 %> <% Dim rsDate Dim rsDate_numRows Set rsDate = Server.CreateObject("ADODB.Recordset") rsDate.ActiveConnection = MM_connDuc_STRING rsDate.Source = "SELECT * FROM tblnews ORDER BY NEWSID DESC" rsDate.CursorType = 0 rsDate.CursorLocation = 2 rsDate.LockType = 1 rsDate.Open() rsDate_numRows = 0 %> <% Dim rsBanners Dim rsBanners_numRows Set rsBanners = Server.CreateObject("ADODB.Recordset") rsBanners.ActiveConnection = MM_connDuc_STRING rsBanners.Source = "SELECT * FROM tblbanners ORDER BY RAND()" rsBanners.CursorType = 0 rsBanners.CursorLocation = 2 rsBanners.LockType = 1 rsBanners.Open() rsBanners_numRows = 0 %> <% Dim rsShop Dim rsShop_numRows Set rsShop = Server.CreateObject("ADODB.Recordset") rsShop.ActiveConnection = MM_connDuc_STRING rsShop.Source = "SELECT * FROM tblshop ORDER BY RAND()" rsShop.CursorType = 0 rsShop.CursorLocation = 2 rsShop.LockType = 1 rsShop.Open() rsShop_numRows = 0 %> <% Dim rsLinks Dim rsLinks_numRows Set rsLinks = Server.CreateObject("ADODB.Recordset") rsLinks.ActiveConnection = MM_connDuc_STRING rsLinks.Source = "SELECT * FROM tbllinks ORDER BY RAND()" rsLinks.CursorType = 0 rsLinks.CursorLocation = 2 rsLinks.LockType = 1 rsLinks.Open() rsLinks_numRows = 0 %> <% Dim rsModels Dim rsModels_numRows Set rsModels = Server.CreateObject("ADODB.Recordset") rsModels.ActiveConnection = MM_connDuc_STRING rsModels.Source = "SELECT * FROM tblmodels ORDER BY RAND()" rsModels.CursorType = 0 rsModels.CursorLocation = 2 rsModels.LockType = 1 rsModels.Open() rsModels_numRows = 0 %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim rsImages_total Dim rsImages_first Dim rsImages_last ' set the record count rsImages_total = rsImages.RecordCount ' set the number of rows displayed on this page If (rsImages_numRows < 0) Then rsImages_numRows = rsImages_total Elseif (rsImages_numRows = 0) Then rsImages_numRows = 1 End If ' set the first and last displayed record rsImages_first = 1 rsImages_last = rsImages_first + rsImages_numRows - 1 ' if we have the correct record count, check the other stats If (rsImages_total <> -1) Then If (rsImages_first > rsImages_total) Then rsImages_first = rsImages_total End If If (rsImages_last > rsImages_total) Then rsImages_last = rsImages_total End If If (rsImages_numRows > rsImages_total) Then rsImages_numRows = rsImages_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (rsImages_total = -1) Then ' count the total records by iterating through the recordset rsImages_total=0 While (Not rsImages.EOF) rsImages_total = rsImages_total + 1 rsImages.MoveNext Wend ' reset the cursor to the beginning If (rsImages.CursorType > 0) Then rsImages.MoveFirst Else rsImages.Requery End If ' set the number of rows displayed on this page If (rsImages_numRows < 0 Or rsImages_numRows > rsImages_total) Then rsImages_numRows = rsImages_total End If ' set the first and last displayed record rsImages_first = 1 rsImages_last = rsImages_first + rsImages_numRows - 1 If (rsImages_first > rsImages_total) Then rsImages_first = rsImages_total End If If (rsImages_last > rsImages_total) Then rsImages_last = rsImages_total End If End If %> <% ' *** Validate request to log in to this site. MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString MM_valUsername=CStr(Request.Form("login")) If MM_valUsername <> "" Then MM_fldUserAuthorization="" MM_redirectLoginSuccess="galleries/index.asp" MM_redirectLoginFailed="noaccess.asp" MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_connDuc_STRING MM_rsUser.Source = "SELECT LOGIN, PASSWORD" If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & " FROM tblusers WHERE LOGIN='" & Replace(MM_valUsername,"'","''") &"' AND PASSWORD='" & Replace(Request.Form("password"),"'","''") & "'" MM_rsUser.CursorType = 0 MM_rsUser.CursorLocation = 2 MM_rsUser.LockType = 3 MM_rsUser.Open If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And true Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed) End If %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %>
| Privacy |
Collection of Personal Information Personally Identifiable Data We may use your Personally Identifiable Data to... Identify winners of competitions conducted through the website by posting the names or usernames (Aliases) of the winners and their state of residence; to notify you that you are a winner of a competition; where you have agreed, to send you information about the website and the company; we may send you information on behalf of our advertisers. We will not give them your Personally Identifiable Information without your express permission. We will not give out any Personally Identifiable data about you without your consent unless we believe it is necessary... Because it is required by law; to provide you with a service which you have requested; to protect our rights or property or those of any website user, or any member of the public; to lessen or prevent a serious threat to a person's health or safety. Cookies Spamming Security of Personal Information As started previously, we've taken reasonable precautions to protect your security. These include protection of passwords using 128-bit encryption, provisions to preserve the security of the information in our own systems and to prevent unauthorised access, use of disclosure and back-up systems to prevent accidental or malicious loss of data. Unfortunately, there's always a risk involved in sending information through any channel including the Internet and you do it entirely at your own risk. We will not be responsible for any unauthorised access or use of information held by us. We will also not be responsible if your information is accessed through an unauthorised or improper use of your account or membership privileges due to your failure to adequately secure your password. Links to Third Party Websites
|