<%@LANGUAGE="VBSCRIPT"%>
<%
' *** 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
%>
WELCOME
<%= uCASE(SESSION("MM_username")) %>;
LIST YOUR BUSINESS
<%
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()
%>