<%@LANGUAGE="VBSCRIPT"%> <% ' 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" %> <% ' *** Edit Operations: declare variables MM_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Update Record: set variables If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then MM_editConnection = MM_directory_STRING MM_editTable = "USERS" MM_editColumn = "U_ID" MM_recordId = "'" + Request.Form("MM_recordId") + "'" MM_editRedirectUrl = "c_p.asp" MM_fieldsStr = "U_PASSWORD|value|U_FIRST|value|U_LAST|value|U_ADDRESS|value|U_CITY|value|U_STATE|value|U_ZIP|value|U_EMAIL|value|U_PHONE|value|U_FAX|value|checkbox|value" MM_columnsStr = "U_PASSWORD|',none,''|U_FIRST|',none,''|U_LAST|',none,''|U_ADDRESS|',none,''|U_CITY|',none,''|U_STATE|',none,''|U_ZIP|',none,''|U_EMAIL|',none,''|U_PHONE|',none,''|U_FAX|',none,''|email_subscribe|none,1,0" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(i+1) = CStr(Request.Form(MM_fields(i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Update Record: construct a sql update statement and execute it If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then ' create the sql update statement MM_editQuery = "update " & MM_editTable & " set " For i = LBound(MM_fields) To UBound(MM_fields) Step 2 FormVal = MM_fields(i+1) MM_typeArray = Split(MM_columns(i+1),",") Delim = MM_typeArray(0) If (Delim = "none") Then Delim = "" AltVal = MM_typeArray(1) If (AltVal = "none") Then AltVal = "" EmptyVal = MM_typeArray(2) If (EmptyVal = "none") Then EmptyVal = "" If (FormVal = "") Then FormVal = EmptyVal Else If (AltVal <> "") Then FormVal = AltVal ElseIf (Delim = "'") Then ' escape quotes FormVal = "'" & Replace(FormVal,"'","''") & "'" Else FormVal = Delim + FormVal + Delim End If End If If (i <> LBound(MM_fields)) Then MM_editQuery = MM_editQuery & "," End If MM_editQuery = MM_editQuery & MM_columns(i) & " = " & FormVal Next MM_editQuery = MM_editQuery & " where " & MM_editColumn & " = " & MM_recordId If (Not MM_abortEdit) Then ' execute the update Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If 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("Username")) If MM_valUsername <> "" Then MM_fldUserAuthorization="" MM_redirectLoginSuccess="myprofile.asp" 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 false 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 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 %>
<% If Not rsUser.EOF Or Not rsUser.BOF Then %> <% End If ' end Not rsUser.EOF Or NOT rsUser.BOF %>
Home »  <%=(rsUser.Fields.Item("U_ID").Value)%>'s Profile 

<% 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 %>

Advertisements

 

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

 

 
 

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

Who are we?
   <%=(rsUser.Fields.Item("U_ID").Value)%>'s Profile 

PASSWORD: " size="35" maxlength="10" class="inputFieldIE">
FIRST: " size="35" class="inputFieldIE">
LAST: " size="35" class="inputFieldIE">
ADDRESS: " class="inputFieldIE" size="35">
CITY/TOWN: " size="35" class="inputFieldIE">
STATE/PROVINCE: " size="35" class="inputFieldIE">
ZIP/POSTAL: " size="35" class="inputFieldIE">
EMAIL: " size="35" class="inputFieldIE">
PHONE: " size="35" maxlength="15" class="inputFieldIE">
FAX: " size="35" maxlength="15" class="inputFieldIE">
RECEIVE NEWS type="checkbox" name="checkbox" value="checkbox">
 
">

 

| 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 %>