<%@LANGUAGE="VBSCRIPT"%> <% ' *** Logout the current user. MM_Logout = CStr(Request.ServerVariables("URL")) & "?MM_Logoutnow=1" If (CStr(Request("MM_Logoutnow")) = "1") Then Session.Abandon MM_logoutRedirectPage = "default.asp" ' redirect with URL parameters (remove the "MM_Logoutnow" query param). if (MM_logoutRedirectPage = "") Then MM_logoutRedirectPage = CStr(Request.ServerVariables("URL")) If (InStr(1, UC_redirectPage, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_newQS = "?" For Each Item In Request.QueryString If (Item <> "MM_Logoutnow") Then If (Len(MM_newQS) > 1) Then MM_newQS = MM_newQS & "&" MM_newQS = MM_newQS & Item & "=" & Server.URLencode(Request.QueryString(Item)) End If Next if (Len(MM_newQS) > 1) Then MM_logoutRedirectPage = MM_logoutRedirectPage & MM_newQS End If Response.Redirect(MM_logoutRedirectPage) End If %> <% ' FileName="Connection_ado_conn_string.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="false" ' Catalog="" ' Schema="" Dim MM_directory_STRING MM_directory_STRING ="Provider=SQLOLEDB;Password=big785;Data Source=VMSSQL03\I3;Database=DB_4085;User ID=vip2498" %> <% Dim HLooper1__numRows HLooper1__numRows = -2 Dim HLooper1__index HLooper1__index = 0 rsCat_numRows = rsCat_numRows + HLooper1__numRows %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each Item In Request.QueryString NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item)) End If Next ' add the Form variables to the MM_keepForm string For Each Item In Request.Form NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(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) if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) ' 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 %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 5 Repeat2__index = 0 SmallBanner_numRows = SmallBanner_numRows + Repeat2__numRows %> <% ' *** Logout the current user. MM_Logout = CStr(Request.ServerVariables("URL")) & "?MM_Logoutnow=1" If (CStr(Request("MM_Logoutnow")) = "1") Then Session.Abandon MM_logoutRedirectPage = "default.asp" ' redirect with URL parameters (remove the "MM_Logoutnow" query param). if (MM_logoutRedirectPage = "") Then MM_logoutRedirectPage = CStr(Request.ServerVariables("URL")) If (InStr(1, UC_redirectPage, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_newQS = "?" For Each Item In Request.QueryString If (Item <> "MM_Logoutnow") Then If (Len(MM_newQS) > 1) Then MM_newQS = MM_newQS & "&" MM_newQS = MM_newQS & Item & "=" & Server.URLencode(Request.QueryString(Item)) End If Next if (Len(MM_newQS) > 1) Then MM_logoutRedirectPage = MM_logoutRedirectPage & MM_newQS End If Response.Redirect(MM_logoutRedirectPage) End If %> <% Dim rsUser__MMColParam rsUser__MMColParam = "xyz_" if (Session("MM_Username") <> "") then rsUser__MMColParam = Session("MM_Username") %> <% set rsUser = Server.CreateObject("ADODB.Recordset") rsUser.ActiveConnection = MM_directory_STRING rsUser.Source = "SELECT *,(SELECT COUNT(*) FROM LINKS WHERE LINK_POSTER = U_ID) AS LINK_COUNT FROM USERS WHERE U_ID = '" + Replace(rsUser__MMColParam, "'", "''") + "'" rsUser.CursorType = 0 rsUser.CursorLocation = 2 rsUser.LockType = 3 rsUser.Open() rsUser_numRows = 0 %> <% set SmallBanner = Server.CreateObject("ADODB.Recordset") SmallBanner.ActiveConnection = MM_directory_STRING SmallBanner.Source = "SELECT * FROM SMALLBANNERS WHERE FRONTPAGE =1" SmallBanner.CursorType = 3 SmallBanner.CursorLocation = 2 SmallBanner.LockType = 1 SmallBanner.Open() SmallBanner_numRows = 0 'end of codes. %> <% Dim rsKeywords Dim rsKeywords_numRows Set rsKeywords = Server.CreateObject("ADODB.Recordset") rsKeywords.ActiveConnection = MM_directory_STRING rsKeywords.Source = "SELECT SYS_TITLE, SYS_KEYWORDS, SYS_DESC FROM SETTINGS" rsKeywords.CursorType = 0 rsKeywords.CursorLocation = 2 rsKeywords.LockType = 1 rsKeywords.Open() rsKeywords_numRows = 0 %> <% FUNCTION CropSentence(strText, intLength, strTrial) Dim wsCount Dim intTempSize Dim intTotalLen Dim strTemp wsCount = 0 intTempSize = 0 intTotalLen = 0 intLength = intLength - Len(strTrial) strTemp = "" IF Len(strText) > intLength THEN arrTemp = Split(strText, " ") FOR EACH x IN arrTemp IF Len(strTemp) <= intLength THEN strTemp = strTemp & x & " " END IF NEXT CropSentence = Left(strTemp, Len(strTemp) - 1) & strTrial ELSE CropSentence = strText END IF END FUNCTION %> <% Dim Repeat8__numRows Dim Repeat8__index Repeat8__numRows = -1 Repeat8__index = 0 rsSmallBanner_numRows = rsSmallBanner_numRows + Repeat1__numRows %> <% ' *** 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("Username")) If MM_valUsername <> "" Then MM_fldUserAuthorization="" MM_redirectLoginSuccess=MM_LoginAction MM_redirectLoginFailed="register.asp" MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_directory_STRING MM_rsUser.Source = "SELECT U_ID, U_PASSWORD" If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & " FROM USERS WHERE U_ID='" & Replace(MM_valUsername,"'","''") &"' AND U_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 %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each Item In Request.QueryString NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item)) End If Next ' add the Form variables to the MM_keepForm string For Each Item In Request.Form NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(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) if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) ' 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 %> <%=(rsKeywords.Fields.Item("SYS_TITLE").Value)%> "> ">
 

  

About Us

  

Merchant directory

  

Cardholders

  

List my business

  

Solutions

 

 Get a card
   
   
Quick Search:
 
<% set rsNav = Server.CreateObject("ADODB.Recordset") rsNav.ActiveConnection = MM_directory_STRING rsNav.Source = "SELECT *,(SELECT COUNT (*) FROM LINKS,priority,pricing WHERE LINKS.CAT_ID = CATS.CAT_ID AND LINK_APPROVED=1 AND paymentAmount = id and PID = priorityid AND LINK_EXPIRED >= GETDATE()) AS LINK_COUNT FROM CATS ORDER BY CAT_NAME ASC" rsNav.CursorType = 0 rsNav.CursorLocation = 2 rsNav.LockType = 3 rsNav.Open() rsNav_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsNav_numRows = rsNav_numRows + Repeat1__numRows %>
Categories:
<% While ((Repeat1__numRows <> 0) AND (NOT rsNav.EOF))%>
>
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsNav.MoveNext() Wend %>

 
Top Cities:
<% While ((Repeat1__numRows <> 0) AND (NOT rsNav.EOF))%> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsNav.MoveNext() Wend %>
 <% rsNav.Close() Set rsNav = Nothing %>
Home » List My Business » Introductory Listings  
BUSINESS LISTINGS
 Introductory Package

INTRODUCTORY



 

 
 

Build an online relationship with your current and potential customers with the VIP Card Network Merchant Directory.
VIP Merchant Directory delivers you tools to extend your business success online. It lets you design and manage a professional webpage and provides your customers with general and detailed information about your business. In addition, your webpage gives you an opportunity to offer incentives to our site users and cardholders to maximize your sales.
 
Why choose Introductory Listing?
 
Be listed in your selected business category
 Add up to 6 images of your business including your logo and a coupon
 Add your contact information (address, fax & phone number, and Email)
 Add a link to your official website
 Add discount description
Add a description of your business
Add hours of operation of your business
Add a map link (Map Quest) to your listing
Guaranteed listing on VIP Card Network Merchant Directory within 5 days
Enjoy easy to use platform that allows you to update your page 24/7
 Only $49.95 for an entire year
 

Trust your online business to VIP Card Network Merchant Directory and set the stage for growth. Doesn't your business deserve the best billboard to display your product or services? Sign up online or call 240-506-2715.

 *If you elect to list your business as a Non-Program Participant you are agreeing to have your business listed in the VIP Card Network Merchant Directory without participation in the VIP Card Network Discount Card Program. Your savings or discounts stated within your listing are available to the general public via coupon and/or stated savings or discounts. You are, in no way, obligated to accept and/or honor the VIP Card and provide the discounts or savings associated with the VIP Card.
 
      User Name

<% If rsUser.EOF And rsUser.BOF Then %> Log In <%else%> <%=(rsUser.Fields.Item("U_ID").Value)%>'s Account <%end if%>

<% If rsUser.EOF And rsUser.BOF Then %>
User Name:

Password:

Get password?
Register Now! <%else%>
  (<%=(rsUser.Fields.Item("LINK_COUNT").Value)%>)
 
 
  Logout
<% End If ' end rsUser.EOF And rsUser.BOF %>

Hot Links
<% While ((Repeat8__numRows <> 0) AND (NOT SmallBanner.EOF)) %> <% Repeat8__index=Repeat8__index+1 Repeat8__numRows=Repeat8__numRows-1 SmallBanner.MoveNext() Wend %>
 icon

 

   


 

 

| About Us | Advertising | Services | Contact Us | Privacy Guidelines | Terms & Conditions | Merchant Agreement |Get Listed |
 

   
 

© 2007 VIP Card Network
 A Digital Communities Online, Inc.  Company. All Rights Reserved.
 Terms & Conditions  under which this service is provided to you.
Read our Privacy Guidelines. Contact us.  Website design by Digital Communities Online

 

 

The design and illustration of the VIP Cards represented on this Web site are being used as
presentation to the prospective company; no endorsement and/or agreement has been made. 
All logos and trademarks contained within these design ideas are property of their respective owners.
 
  
<% rsUser.Close() Set rsUser = Nothing %> <% rsKeywords.Close() Set rsKeywords = Nothing %> <% SmallBanner.Close() Set SmallBanner = Nothing %>