<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' *** Restrict Access To Page: Grant or deny access to this page MM_authorizedUsers="" MM_authFailedURL="login.asp" MM_grantAccess=false If Session("MM_Username") <> "" Then If (true Or CStr(Session("MM_UserAuthorization"))="") Or _ (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then MM_grantAccess = true End If End If If Not MM_grantAccess Then MM_qsChar = "?" If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" MM_referrer = Request.ServerVariables("URL") if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString() MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer) Response.Redirect(MM_authFailedURL) End If %> <% Dim rePass Dim rePass_numRows Set rePass = Server.CreateObject("ADODB.Recordset") rePass.ActiveConnection = MM_connAFF2_STRING rePass.Source = "SELECT * FROM usPas" rePass.CursorType = 0 rePass.CursorLocation = 2 rePass.LockType = 1 rePass.Open() rePass_numRows = 0 %> Making money on eBay | Auction-O-Matic Software

Making Money on eBay

Auction-O-Matic Software

Auction-O-Matic is an easy to use software tool that helps create professional looking auction listings.

It will automatically create all the HTML code needed. No programming required.
Simply 'copy and paste' the generated HTML code directly into your auction item description field to produce a pro designed auction listing.

And the best part - IT'S FREE

download

<% rePass.Close() Set rePass = Nothing %>