Quick
Links |
|
 |
|
<%
'Dimension variables
Dim adoCon
Dim strCon
Dim rsLemings
Dim strSQL
strDB = "lemings"
strCon = "DRIVER={Microsoft Access Driver (*.mdb)};uid=;pwd=; DBQ=" & Server.MapPath(strDB)
Set adoCon = server.CreateObject("ADODB.Connection")
adoCon.Open strCon
Set rsLemings = Server.CreateObject("ADODB.Recordset")
Response.Write("")
Response.Write("")
Response.Write("")
Response.Write(" ")
Response.Write(" ")
id = Request.QueryString("id")
pid = Request.QueryString("pid")
f = Request.QueryString("f")
If f = 1 Then
' View all of the Manufacturer information
man_id = Request.QueryString("mid")
strSQL = "SELECT MANUFACTURER_ID, COMPANY_NAME, STREET_ADDRESS, CITY, STATE, ZIP, PHONE, URL, CONTACT_FIRST_NAME, CONTACT_LAST_NAME FROM MANUFACTURER WHERE MANUFACTURER_ID = " & man_id
rsLemings.CursorType = 2
rsLemings.LockType = 3
rsLemings.Open strSQL, adoCon
Response.Write("")
Response.Write("
| ")
Response.Write("| Manufacturer Information: | |
")
Response.Write("| Company Name: "& rsLemings("COMPANY_NAME") &" | ")
Response.Write("Street Address: "& rsLemings("STREET_ADDRESS") &" | ")
Response.Write("City: "& rsLemings("CITY") &" | ")
Response.Write("State: "& rsLemings("STATE") &" | ")
Response.Write("Zip: "& rsLemings("ZIP") &" | ")
Response.Write("Phone: "& rsLemings("PHONE") &" | ")
Response.Write("URL: "& rsLemings("URL") &" | ")
Response.Write("Contact First Name: "& rsLemings("CONTACT_FIRST_NAME") &" | ")
Response.Write("Contact Last Name: "& rsLemings("CONTACT_LAST_NAME") &" | ")
Response.Write(" ")
rsLemings.Close
Set rsLemings = Nothing
Set adoCon = Nothing
ElseIf id <> "" and pid = "" Then
' Step 2
' This is after the user has selected a Parent Category
'Connect to get the parent category information
strSQL = "SELECT DESCRIPTION FROM PARENT_CATEGORY WHERE PARENT_CAT_ID = " & id
rsLemings.CursorType = 2
rsLemings.LockType = 3
rsLemings.Open strSQL, adoCon
iParentDesc = rsLemings("DESCRIPTION")
rsLemings.Close
' Connect to get the product category information
strSQL = "SELECT PARENT_CAT_ID, PROD_CAT_ID, DESCRIPTION FROM PROD_CATEGORY WHERE PARENT_CAT_ID = " & id
rsLemings.CursorType = 2
rsLemings.LockType = 3
rsLemings.Open strSQL, adoCon
Response.Write("")
Response.Write("| Parent Category: "& iParentDesc &" | ")
Response.Write("| Product Category | ")
' Loop through the table to view all the information
Do While Not rsLemings.EOF
Response.Write("| " & rsLemings("DESCRIPTION") & " | ")
Response.Write(" ")
rsLemings.MoveNext
Loop
Response.Write(" ")
rsLemings.Close
Set rsLemings = Nothing
Set adoCon = Nothing
ElseIf pid <> "" Then
' Step 3
'Connect to get the parent category information
strSQL = "SELECT DESCRIPTION FROM PARENT_CATEGORY WHERE PARENT_CAT_ID = " & id
rsLemings.CursorType = 2
rsLemings.LockType = 3
rsLemings.Open strSQL, adoCon
iParentDesc = rsLemings("DESCRIPTION")
rsLemings.Close
strSQL = "SELECT PARENT_CAT_ID, PROD_CAT_ID, DESCRIPTION FROM PROD_CATEGORY WHERE PARENT_CAT_ID = " & id & " AND PROD_CAT_ID = " & pid
rsLemings.CursorType = 2
rsLemings.LockType = 3
rsLemings.Open strSQL, adoCon
iProductDesc = rsLemings("DESCRIPTION")
rsLemings.Close
%>
| Edit Product Manufacturer |
| Parent Category: | <%=iParentDesc%> |
| -->Product Category: | <%=iProductDesc%> |
| |
<%
'get the manufacturer information
strSQL = "SELECT B.MANUFACTURER_ID, B.COMPANY_NAME FROM PROD_MANUFACTURER AS A, MANUFACTURER AS B "
strSQL = strSQL & "WHERE A.MANUFACTURER_ID = B.MANUFACTURER_ID "
strSQL = strSQL & "AND PARENT_CAT_ID = " & id & " AND PROD_ID = " & pid & " ORDER BY COMPANY_NAME"
rsLemings.CursorType = 2
rsLemings.LockType = 3
rsLemings.Open strSQL, adoCon
' View all the information in that table...
Response.Write("")
Response.Write("| Manufacturers | ")
' Loop through the table to view all the information
Do While Not rsLemings.EOF
Response.Write("| " & rsLemings("COMPANY_NAME") & " | ")
Response.Write(" ")
rsLemings.MoveNext
Loop
Response.Write(" ")
rsLemings.Close
%>
|
<%
Set rsLemings = Nothing
Set adoCon = Nothing
Else
' Step 1
' first screen you will see to enter information
' search for the sub categorys / display the parent category.
strSQL = "SELECT PARENT_CAT_ID, DESCRIPTION FROM PARENT_CATEGORY"
rsLemings.CursorType = 2
rsLemings.LockType = 3
rsLemings.Open strSQL, adoCon
' View all the information in that table...
Response.Write("")
Response.Write("| Parent Category | ")
' Loop through the table to view all the information
Do While Not rsLemings.EOF
Response.Write("| " & rsLemings("DESCRIPTION") & " | ")
Response.Write(" ")
rsLemings.MoveNext
Loop
Response.Write(" ")
rsLemings.Close
Set rsLemings = Nothing
Set adoCon = Nothing
End If
%>
|
|
|
|
