<%@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"
%>
<%
' *** 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
%>
<%
If Session("MM_Username") = "" Then
Response.Redirect("login.asp")
End If
%>
<%
' *** 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
%>
<%
' *** declare variables
TM_editAction = CStr(Request("URL"))
If (Request.QueryString <> "") Then
TM_editAction = TM_editAction & "?" & Request.QueryString
End If
' boolean to abort record edit
TM_abortEdit = false
%>
<%
' *** Insert Record and retrieve autonumber: set variables
If (CStr(Request("TM_insert")) <> "") Then
MM_editConnection = MM_directory_STRING
TM_editTable = "LINKS"
TM_editRedirectUrl = "image_upload.asp"
TM_fieldsStr = "CATID2|value|SUB_ID|value|pricing|value|select|value|Title|value|LINK_POSTER|value|First Name|value|Last Name|value|Address|value|LINK_CITY|value|LINK_STATE|value|LINK_ZIP|value|Telephone|value|LINK_FAX|value|Email|value|LINK_URL|value|salesPerson|value|LINK_DESCRIPTION|value|LINK_DESCRIPTION0|value|checkbox|value|MOTH_OPEN|value|TUE_OPEN|value|WED_OPEN|value|THR_OPEN|value|FRI_OPEN|value|SAT_OPEN|value|SUN_OPEN|value|MOTH_CLOSE|value|TUE_CLOSE|value|WED_CLOSE|value|THR_CLOSE|value|FRI_CLOSE|value|SAT_CLOSE|value|SUN_CLOSE|value|HOCC|value|LINK_SPECIALTY|value"
TM_columnsStr = "CAT_ID|none,none,NULL|SUB_ID|none,none,NULL|paymentAmount|none,none,NULL|ptype|none,none,NULL|LINK_NAME|',none,''|LINK_POSTER|',none,''|LINK_CONTACT|',none,''|LINK_CONTACT_LAST|',none,''|LINK_ADDRESS|',none,''|LINK_CITY|',none,''|LINK_STATE|',none,''|LINK_ZIP|',none,''|LINK_PHONE|',none,''|LINK_FAX|',none,''|LINK_EMAIL|',none,''|LINK_URL|',none,''|salesPerson|',none,''|LINK_DESC|',none,''|LINK_DESC_VIP|',none,''|LINK_UPDATE|none,1,0|MOTH_OPEN|',none,''|TUE_OPEN|',none,''|WED_OPEN|',none,''|THR_OPEN|',none,''|FRI_OPEN|',none,''|SAT_OPEN|',none,''|SUN_OPEN|',none,''|MOTH_CLOSE|',none,''|TUE_CLOSE|',none,''|WED_CLOSE|',none,''|THR_CLOSE|',none,''|FRI_CLOSE|',none,''|SAT_CLOSE|',none,''|SUN_CLOSE|',none,''|HOCC|',none,''|LINK_SPECIALTY|',none,''"
' create the TM_fields and TM_columns arrays
TM_fields = Split(TM_fieldsStr, "|")
TM_columns = Split(TM_columnsStr, "|")
' set the form values
For i = LBound(TM_fields) To UBound(TM_fields) Step 2
TM_fields(i+1) = CStr(Request.Form(TM_fields(i)))
Next
' append the query string to the redirect URL
If (TM_editRedirectUrl <> "" And Request.QueryString <> "") Then
If (InStr(1, TM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
TM_editRedirectUrl = TM_editRedirectUrl & "?" & Request.QueryString
Else
TM_editRedirectUrl = TM_editRedirectUrl & "&" & Request.QueryString
End If
End If
TM_dontClose = false
Else
TM_dontClose = true
End If
%>
<%
' *** Insert Record and retrieve autonumber for MS Access
' *** ID value is stored in the TM_editCmd("youridcolumn") value
If (CStr(Request("TM_insert")) <> "") Then
' create the sql insert statement
TM_tableValues = ""
TM_dbValues = ""
For i = LBound(TM_fields) To UBound(TM_fields) Step 2
FormVal = TM_fields(i+1)
TM_typeArray = Split(TM_columns(i+1),",")
Delim = TM_typeArray(0)
If (Delim = "none") Then Delim = ""
AltVal = TM_typeArray(1)
If (AltVal = "none") Then AltVal = ""
EmptyVal = TM_typeArray(2)
If (EmptyVal = "none") Then EmptyVal = ""
if (EmptyVal = "NULL") then EmptyVal = ""
If (FormVal = "") Then
FormVal = EmptyVal
Else
If (AltVal <> "") Then
FormVal = AltVal
End If
End If
TM_fields(i+1) = FormVal
Next
If (Not TM_abortEdit) Then
' execute the insert using the AddNew method
set TM_editCmd = Server.CreateObject("ADODB.Recordset")
TM_editCmd.ActiveConnection = MM_editConnection
TM_editCmd.CursorType = 1
TM_editCmd.LockType = 3
TM_editCmd.Source = TM_editTable
TM_editCmd.Open
TM_editCmd.AddNew
For i = LBound(TM_fields) To UBound(TM_fields) Step 2
'If a value for the column name was passed in,
'set the column name equal to the value passed through the form...
if Len(TM_fields(i+1)) > 0 AND TM_fields(i+1)<> "''" then
TM_editCmd.Fields(TM_columns(i)) = TM_fields(i+1)
end if
Next
TM_editCmd.Update
session("pid") = TM_editCmd("LINK_ID")
If (TM_editRedirectUrl <> "") Then
TM_editCmd.ActiveConnection.Close
Response.Redirect(TM_editRedirectUrl)
End If
End If
End If
%>
<%
Dim rsSub__MMColParam
rsSub__MMColParam = "1"
If (Request.QueryString("catid") <> "") Then
rsSub__MMColParam = Request.QueryString("catid")
End If
%>
<%
set rsSub = Server.CreateObject("ADODB.Recordset")
rsSub.ActiveConnection = MM_directory_STRING
rsSub.Source = "SELECT * FROM SUBS WHERE CAT_ID = " + Replace(rsSub__MMColParam, "'", "''") + " order by sub_name Asc"
rsSub.CursorType = 0
rsSub.CursorLocation = 2
rsSub.LockType = 3
rsSub.Open()
rsSub_numRows = 0
%>
<%
Dim rsCat2
Dim rsCat2_numRows
Set rsCat2 = Server.CreateObject("ADODB.Recordset")
rsCat2.ActiveConnection = MM_directory_STRING
rsCat2.Source = "SELECT * FROM CATS order by cat_name asc"
rsCat2.CursorType = 0
rsCat2.CursorLocation = 2
rsCat2.LockType = 1
rsCat2.Open()
rsCat2_numRows = 0
%>
<%
Dim rsCat__MMColParam
rsCat__MMColParam = "0"
If (Request.QueryString("catid") <> "") Then
rsCat__MMColParam = Request.QueryString("catid")
End If
%>
<%
set rsCat = Server.CreateObject("ADODB.Recordset")
rsCat.ActiveConnection = MM_directory_STRING
rsCat.Source = "SELECT * FROM CATS WHERE CAT_ID = " + Replace(rsCat__MMColParam, "'", "''") + " ORDER BY CAT_NAME ASC"
rsCat.CursorType = 0
rsCat.CursorLocation = 2
rsCat.LockType = 3
rsCat.Open()
rsCat_numRows = 0
%>
<%
Dim rsPrice__MMColParam
rsPrice__MMColParam = "2"
If (Request("MM_EmptyValue") <> "") Then
rsPrice__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index
Repeat2__numRows = 5
Repeat2__index = 0
SmallBanner_numRows = SmallBanner_numRows + Repeat2__numRows
%>
<%
Dim rsPrice
Dim rsPrice_numRows
Set rsPrice = Server.CreateObject("ADODB.Recordset")
rsPrice.ActiveConnection = MM_directory_STRING
rsPrice.Source = "SELECT * FROM pricing,priority WHERE id <> " + Replace(rsPrice__MMColParam, "'", "''") + " and pid= priorityid ORDER BY pid desc, price desc"
rsPrice.CursorType = 0
rsPrice.CursorLocation = 2
rsPrice.LockType = 1
rsPrice.Open()
rsPrice_numRows = 0
%>
<%
Dim rsPaymentType
Dim rsPaymentType_numRows
Set rsPaymentType = Server.CreateObject("ADODB.Recordset")
rsPaymentType.ActiveConnection = MM_directory_STRING
rsPaymentType.Source = "SELECT * FROM pType"
rsPaymentType.CursorType = 0
rsPaymentType.CursorLocation = 2
rsPaymentType.LockType = 1
rsPaymentType.Open()
rsPaymentType_numRows = 0
%>
<%
' *** 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)%>
">
">
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
%>
<%
rsPaymentType.Close()
Set rsPaymentType = Nothing
%>
<% If Not TM_dontClose Then TM_editCmd.ActiveConnection.Close %>
<%
rsPrice.Close()
Set rsPrice = Nothing
%>
<%
rsSub.Close()
%>
<%
rsCat2.Close()
Set rsCat2 = Nothing
%>
<%
rsCat.Close()
%>
Quick
Search:
Categories:
Log In
<%else%>
