VIP Card Network - Certified Merchant Seal

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' 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" %> <% if(Request.QueryString("Biz_ID") <> "") then cmdHit__id = Request.QueryString("Biz_ID") if(Request.QueryString("Biz_ID") = "") then session.Abandon() if(Request.QueryString("Biz_ID") = "") then response.redirect "default.asp" %> <% Dim rsBody Dim rsBody_numRows Set rsBody = Server.CreateObject("ADODB.Recordset") rsBody.ActiveConnection = MM_directory_STRING rsBody.Source = "SELECT * FROM SETTINGS" rsBody.CursorType = 0 rsBody.CursorLocation = 2 rsBody.LockType = 1 rsBody.Open() rsBody_numRows = 0 %> <% if(Request.QueryString("LINK_ID") <> "") then set cmdHit = Server.CreateObject("ADODB.Command") cmdHit.ActiveConnection = MM_directory_STRING cmdHit.CommandText = "UPDATE LINKS SET NO_HITS = NO_HITS + 1 WHERE LINK_ID = " + Replace(cmdHit__id, "'", "''") + "" cmdHit.CommandType = 1 cmdHit.CommandTimeout = 0 cmdHit.Prepared = true cmdHit.Execute() end if %> <% Dim rsAds__MMColParam rsAds__MMColParam = "1" If (Request.QueryString("Biz_ID") <> "") Then rsAds__MMColParam = Request.QueryString("Biz_ID") End If %> <% set rsAds = Server.CreateObject("ADODB.Recordset") rsAds.ActiveConnection = MM_directory_STRING rsAds.Source = "SELECT *, (LINK_RATE/NO_RATES) AS RATING FROM LINKS, pricing, priority WHERE LINK_ID = " + Replace(rsAds__MMColParam, "'", "''") + " AND paymentAmount = id and PID = priorityid " rsAds.CursorType = 0 rsAds.CursorLocation = 2 rsAds.LockType = 3 rsAds.Open() rsAds_numRows = 0 %> <% Dim MM_paramName %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim rsAds_total Dim rsAds_first Dim rsAds_last ' set the record count rsAds_total = rsAds.RecordCount ' set the number of rows displayed on this page If (rsAds_numRows < 0) Then rsAds_numRows = rsAds_total Elseif (rsAds_numRows = 0) Then rsAds_numRows = 1 End If ' set the first and last displayed record rsAds_first = 1 rsAds_last = rsAds_first + rsAds_numRows - 1 ' if we have the correct record count, check the other stats If (rsAds_total <> -1) Then If (rsAds_first > rsAds_total) Then rsAds_first = rsAds_total End If If (rsAds_last > rsAds_total) Then rsAds_last = rsAds_total End If If (rsAds_numRows > rsAds_total) Then rsAds_numRows = rsAds_total End If End If %> <% ' *** 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 %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 5 Repeat2__index = 0 SmallBanner_numRows = SmallBanner_numRows + Repeat2__numRows %> <% Dim rsRatings__MMColParam rsRatings__MMColParam = "1" If (Request.QueryString("Biz_id") <> "") Then rsRatings__MMColParam = Request.QueryString("Biz_id") End If %> <% Dim rsRatings Dim rsRatings_numRows Set rsRatings = Server.CreateObject("ADODB.Recordset") rsRatings.ActiveConnection = MM_directory_STRING rsRatings.Source = "SELECT Sum(Rating)/Count(rate_id) as ratings FROM rating WHERE Link_id = " + Replace(rsRatings__MMColParam, "'", "''") + "" rsRatings.CursorType = 0 rsRatings.CursorLocation = 2 rsRatings.LockType = 1 rsRatings.Open() rsRatings_numRows = 0 %> VIP Card Network - Certified Merchant Seal

<% If Not rsAds.EOF Or Not rsAds.BOF Then %>

<%if rsAds.Fields.Item("LINK_IMAGEO").Value <> "" Then %>
VIP Card Network Participating Merchant Certification for <%=uCase((rsAds.Fields.Item("LINK_NAME").Value))%>

<%End If%>

Certified Merchant

<%=uCase((rsAds.Fields.Item("LINK_NAME").Value))%>

<%=(rsAds.Fields.Item("LINK_ADDRESS").Value)%>

<%=(rsAds.Fields.Item("LINK_CITY").Value)%>, <%=(rsAds.Fields.Item("LINK_STATE").Value)%> <%=(rsAds.Fields.Item("LINK_ZIP").Value)%>

http://www.vipcardnetwork.com
10 February, 2006 15:48:06 -0700

© Copyright VIP Card Network™

in Business Since <%=(rsAds.Fields.Item("LINK_DATE").Value)%>

Listing date 08/19/2004

Expiration date <%=(rsAds.Fields.Item("LINK_Expired").Value)%>

Contact Person <%=(rsAds.Fields.Item("LINK_CONTACT").Value)%>

This VIP Certified merchant Reliability seal, and the commitments that this seal signifies, pertain only to <%=uCase((rsAds.Fields.Item("LINK_NAME").Value))%>. The seal does not pertain to any organizations that may be listed, featured or advertised on vipcardnetwork.com.

Seal info

">
" class="boxlink" style="text-decoration: none">View Listing

Get-Listed

Have a problem or a complaint with a VIP Card Network participating merchant?
Tell us about it here.

To confirm legitimate participating merchant in the VIP Card network Program check the location (address) box. Make sure that the URL of this page begins with "http://www.vipcardnetwork.com/", if not, please contact fraud@vipcardnetwork.com.

<% End If ' end Not rsAds.EOF Or NOT rsAds.BOF %>

© 2006 VIP Card Network
A Digital Communities Online, Inc. Company. All Rights Reserved.

We gratefully acknowledge and appreciate the commitment received from all the parties involved within the VIP Card Network Program.

<% rsRatings.Close() Set rsRatings = Nothing %><% rsBody.Close() Set rsBody = Nothing %><% rsAds.Close() Set rsAds = Nothing %>