<%
'THIS PAGE TAKES DATA FROM ITEM_CREATE.ASP AND CREATES AN ITEM RECORD
'CREATE A RECORDSET
Dim SQL, rs1, whatBand, whatID
ON ERROR RESUME NEXT
'CREATE THE RECORDSET SQL STATEMENT
SQL = "SELECT * from PRODUCTS WHERE 1=1;"
'EXECUTE THE SQL STATEMENT
dbc.Execute(SQL)
ON ERROR RESUME NEXT
'CREATE AND OPEN THE RECORDSET
whatBand = int(Request("BandID"))
%>
<%
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.Open SQL, dbc, adOpenDynamic, adLockOptimistic
'CREATE A NEW BLANK RECORD AND THEN UPDATE IT
rs1.AddNew
rs1("CatID") = Request("selCatDescription")
rs1("Featured") = Request("Featured")
rs1("Band") = whatID
rs1("BandName") = whatBand
rs1("Code") = Request("txtItemCode")
rs1("Name") = ReplaceIn(Request("txtItemName"))
rs1("Description") = replace(ReplaceIn(Request("txtItemDesc")),VbCrlf, "
")
rs1("Price") = Request("txtItemPrice")
rs1("Sale") = Request("txtItemSale")
rs1("OnSale") = Request("onSale")
rs1("ShipCost") = Request("txtRate")
rs1("ShipCostMulti") = Request("txtRateMulti")
rs1("StockQTY") = Request("txtStockQTY")
rs1("ImageURL") = Request("txtItemImageURL")
rs1("Status") = Request("selStatus")
'IF NO SORT ORDER IS SPECIFIED SET TO ZERO
IF Request("txtSortOrder") = "" THEN
rs1("SortOrder") = "0"
ELSE
rs1("SortOrder") = Request("txtSortOrder")
END IF
rs1("Cost") = Request("cost")
rs1.Update
%>
|
<%
'IF EVERYTHING WENT OK, SHOW THIS MESSAGE
If Err.number = 0 Then
%>
Your ITEM has been successfully added.
Return Here.
<%
'SHOW THIS MESSAGE
Else
%>
There was an error in adding your item. Error# <%=Err.number%>: <%=Err.description%>
Try again Here .
<%End If%>
|
<%
'CLOSE AND CLEAN UP
rs1.close
set rs1=nothing
dbc.Close
set dbc=nothing
%>