<%@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 %> Down Under Creations :: Photos of Sexy Aussie Models, Hot Babes, Swimsuits, Lingerie, Nudes
Privacy


Privacy Policy

This privacy policy has been created in order to disclose the information gathering and dissemination practices for this website.
The Website is owned and operated by Downunder Creations Pty Ltd.

Collection of Personal Information

We take your electronic privacy seriously. While we are the sole owner of the information we gather on the Website, we will not share any of your information with any outside party without your explicit consent unless we are required by law or in the good-faith belief that such action is necessary in order to conform to the edicts of the law, cooperate with law enforcement or other government agencies, or comply with a legal process served on the website or court orders that maybe imposed.

Aggregate Data

Aggregate Data
is anonymous data that we use to analyse trends, administer the site, diagnose problems with our servers, track user's movement, gather broad demographic information for use and to help improve the quality of the web pages. It may be your domain name or your IP address, the browser you are using or the number of colours your screen allows for. None of this data is Personally Identifiable nor connected in any way with Personally Identifiable Data.

Personally Identifiable Data

Personally Identifiable Data is any information that personally identifies you. When you become a galleries member, a mailing list member or submit for a photo shoot, we ask you for personal details including name, post code, email address and other credit card based details. All of the data provided for credit card transaction is completed via a secure server, which encrypts all the data before sending it to us, therefore making it near impossible for anyone to read it except us. We may share Aggregate Information with our advertisers. Except as described below we will not share your Personally Identifiable Data with any third party unless we tell you otherwise when asking for it or without your consent.

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

A cookie is a piece of data stored on your hard drive which may contain information about you, your status on the website or about websites you have visited. In our case we use this for fast access to our forum page. The use of cookies on websites is a common industry standard. Cookies act as unique identifiers, used to distinguish between different users. Please note that even after we have terminated a cookie, remnants of that cookie may remain on your computer. These remnants are normally inactive.

Spamming

Spamming is sending mass unsolicited emails. We operate an opt-in only policy so we'll only send you promotional material if we have your permission, unless there is a legal or operational requirement for us to do so. If there's promotional material coming at you that you don't want, please tell us.

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

This site contains links to other sites. Please be aware that we are not responsible for the privacy practices of such other sites, nor the content the display. We encourage our users to be aware when they leave our site and to read the privacy statements of each and every web site that collects Personally Identifiable Data. This privacy statement applies solely to information collected by this Website.


<% rsBanners.Close() Set rsBanners = Nothing %> <% rsShop.Close() Set rsShop = Nothing %> <% rsLinks.Close() Set rsLinks = Nothing %> <% rsModels.Close() Set rsModels = Nothing %> <% rsMainbanners.Close() Set rsMainbanners = Nothing %> <% rsDate.Close() Set rsDate = Nothing %> <% rsImages.Close() Set rsImages = Nothing %>