<%@LANGUAGE="VBSCRIPT"%> <% ' *** 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 = "" %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) <> "") Then MM_editConnection = MM_OLEDB_STRING MM_editTable = "dbo.tblSHOP_Suppliers" MM_editRedirectUrl = "" MM_fieldsStr = "CompanyName|value|ContactTitle|value|ContactName|value|Phone|value|Fax|value|Address|value|City|value|State|value|Zip|value|Country|value|Email|value|HomePageURL|value" MM_columnsStr = "CompanyName|',none,''|ContactTitle|',none,''|ContactName|',none,''|Phone|',none,''|Fax|',none,''|Address|',none,''|City|',none,''|State|',none,''|ZipCode|',none,''|Country|',none,''|EMail|',none,''|HomePageURL|',none,''" ' 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: set variables If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then MM_editConnection = MM_OLEDB_STRING MM_editTable = "dbo.tblSHOP_Suppliers" MM_editColumn = "SupplierID" MM_recordId = "" + Request.Form("MM_recordId") + "" MM_editRedirectUrl = "" MM_fieldsStr = "CompanyName|value|ContactTitle|value|ContactName|value|Phone|value|Fax|value|Address|value|City|value|State|value|Zip|value|Country|value|Email|value|HomePageURL|value" MM_columnsStr = "CompanyName|',none,''|ContactTitle|',none,''|ContactName|',none,''|Phone|',none,''|Fax|',none,''|Address|',none,''|City|',none,''|State|',none,''|ZipCode|',none,''|Country|',none,''|EMail|',none,''|HomePageURL|',none,''" ' 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 %> <% ' *** Insert Record: construct a sql insert statement and execute it If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" 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_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End if MM_tableValues = MM_tableValues & MM_columns(i) MM_dbValues = MM_dbValues & FormVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert 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 %> <% ' *** 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 %> <% if request("delete") = "1" then set DeleteCategory = Server.CreateObject("ADODB.Command") DeleteCategory.ActiveConnection = MM_OLEDB_STRING DeleteCategory.CommandText = "dbo.spSHOP_DeleteSupplier" DeleteCategory.CommandType = 4 DeleteCategory.CommandTimeout = 0 DeleteCategory.Prepared = true DeleteCategory.Parameters.Append DeleteCategory.CreateParameter("@SupplierID", 3, 1,4,Request("SupplierID")) Set rsRETURN = DeleteCategory.Execute() If rsRETURN("ReturnValue") = "0" Then Session("Message") = "New Supplier has been deleted successfully." response.redirect "SHOP_ManageSuppliers.asp" ElseIf rsRETURN("ReturnValue") = "1" Then Session("Message") = "Supplier can not be deleted because it is being used." response.redirect "SHOP_ManageSuppliers.asp" End If end if %> <% Dim Message: Message = Session("Message") %> <% set rsSUPPLIERS = Server.CreateObject("ADODB.Recordset") rsSUPPLIERS.ActiveConnection = MM_OLEDB_STRING rsSUPPLIERS.Source = "SELECT * FROM dbo.tblSHOP_Suppliers" rsSUPPLIERS.CursorType = 0 rsSUPPLIERS.CursorLocation = 2 rsSUPPLIERS.LockType = 3 rsSUPPLIERS.Open() rsSUPPLIERS_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 rsSUPPLIERS_numRows = rsSUPPLIERS_numRows + Repeat1__numRows %>

Manage Suppliers    |     Cancel    <% =Message %> Company Name: Contact: Mr. Mrs. Ms. Sir. Phone: Fax:     Address: City: State: Choose a State Outside US / Canada Alabama Alaska Alberta American Samoa Arizona Arkansas Armed Forces Americas Armed Forces Europe Armed Forces Pacific British Columbia California Colorado Connecticut Delaware District Of Columbia Florida Georgia Guam Hawaii Idaho Illinois Indiana Iowa Kansas Kentucky Louisiana Maine Manitoba Maryland Massachusetts Michigan Minnesota Mississippi Missouri Montana Nebraska Nevada New Brunswick New Hampshire New Jersey New Mexico New York Newfoundland North Carolina North Dakota Northern Mariana Is Northwest Territories Nova Scotia Ohio Oklahoma Ontario Oregon Palau Pennsylvania Prince Edward Island Province du Quebec Puerto Rico Rhode Island Saskatchewan South Carolina South Dakota Tennessee Texas Utah Vermont Virgin Islands Virginia Washington West Virginia Wisconsin Wyoming Yukon Territory  Zip: Country: Choose a Country United States of America Canada Germany France United Kingdom India --------------------- Afghanistan Albania Algeria American Samoa Andorra Angola Anguilla Antarctica Antigua and Barbuda Argentina Armenia Aruba Australia Austria Azerbaijan Bahamas Bahrain Bangladesh Barbados Belarus Belgium Belize Benin Bermuda Bhutan Bolivia Bosnia and Herzegowina Botswana Bouvet Island Brazil British Indian Ocean Territory Brunei Darussalam Bulgaria Burkina Faso Burundi Cambodia Cameroon Cape Verde Cayman Islands Central African Republic Chad Chile China Christmas Island Cocoa (Keeling) Islands Colombia Comoros Congo Cook Islands Costa Rica Cote Divoire Croatia (local name: Hrvatska) Cuba Cyprus Czech Republic Denmark Djibouti Dominica Dominican Republic East Timor Ecuador Egypt El Salvador Equatorial Guinea Eritrea Estonia Ethiopia Falkland Islands (Malvinas) Faroe Islands Fiji Finland France, Metropolitan French Guiana French Polynesia French Southern Territories Gabon Gambia Georgia Ghana Gibraltar Greece Greenland Grenada >Guadeloupe Guam Guatemala Guinea Guinea-Bissau Guyana Haiti Heard and Mc Donald Islands Honduras Hong Kong Hungary Iceland Indonesia Iran (Islamic Republic of) Iraq Ireland Israel Italy Jamaica Japan Jordan Kazakhstan Kenya Kiribati Korea, Democratic Peoples Republic of Korea, Republic of Kuwait Kyrgyzstan Lao Peoples Democratic Republic Latvia Lebanon Lesotho Liberia Libyan Arab Jamahiriya Liechtenstein Lithuania Luxembourg Macau Macedonia, The Former Yugoslav Republic of Madagascar Malawi Malaysia Maldives Mali Malta Marshall Islands Martinique Mauritania Mauritius Mayotte Mexico Micronesia, Federated States of Moldova, Republic of Monaco Mongolia Montserrat Morocco Mozambique Myanmar Namibia Nauru Nepal Netherlands Netherlands Antilles New Caledonia New Zealand Nicaragua Niger Nigeria Niue Norfolk Island Northern Mariana Islands Norway Oman Pakistan Palau Panama Papua New Guinea Paraguay Peru Philippines Pitcairn Poland Portugal Puerto Rico Qatar Reunion Romania Russian Federation Rwanda Saint Kitts and Nevis Saint Lucia Saint Vincent and the Grenadines Samoa San Marino Sao Tome and Principe Saudi Arabia Senegal Seychelles Sierra Leone Singapore Slovakia (Slovak Republic) Slovenia Solomon Islands Somalia South Africa South Georgia and the South Sandwich Islands Spain Sri Lanka St. Helena St. Pierre and Miquelon Sudan Suriname Svalbard and Jan Mayen Islands Swaziland Sweden Switzerland Syrian Arab Republic Taiwan Tajikistan Tanzania, United Republic of Thailand Togo Tokelau Tonga Trinidad and Tobago Tunisia Turkey Turkmenistan Turks and Caicos Islands Tuvalu Uganda Ukraine United Arab Emirates United States Minor Outlying Islands Uruguay Uzbekistan Vanuatu Vatican City State (Holy See) Venezuela Viet Nam Virgin Islands (British) Virgin Islands (U.S.) Wallisw and Futuna Islands Western Sahara Yeman Yugoslavia Zaire Zambia Zimbabwe Not Listed E-Mail: Home Page: <% If NOT rsSUPPLIERS.EOF Then Dim CounterEdit: CounterEdit = 0 Dim BGColor: BGColor = "#D2D2D2" %> <% While ((Repeat1__numRows <> 0) AND (NOT rsSUPPLIERS.EOF)) %> <% If BGColor = "#D2D2D2" Then BGColor = "#FFFFFF" Else BGColor= "#D2D2D2" End If %> <% CounterEdit = CounterEdit + 1 %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsSUPPLIERS.MoveNext() Wend %> <% else %> <% end if %>   SUPID Company Contact Phone Home Page   edit  |  ?delete=1&SupplierID=<%=rsSUPPLIERS("SupplierID")%>">delete   <%=(rsSUPPLIERS.Fields.Item("SupplierID").Value)%> <%=(rsSUPPLIERS.Fields.Item("CompanyName").Value)%> "><%=(rsSUPPLIERS.Fields.Item("ContactTitle").Value)%> <%=(rsSUPPLIERS.Fields.Item("ContactName").Value)%> <%=(rsSUPPLIERS.Fields.Item("Phone").Value)%> "><%=(rsSUPPLIERS.Fields.Item("HomePageURL").Value)%> Company Name: " SIZE="34"> Contact: "> "> Phone: "> Fax: ">     Address: " SIZE="34"> City: "> State: ">  Zip: "> Country: "> E-Mail: " SIZE="34"> Home Page: " SIZE="34"> "> No Suppliers have been added yet.

<% rsSUPPLIERS.Close() %>