|
">
; font-family: arial; font-weight: bold;">
<%
Dim rsHeading, CategoryID
CategoryID = Request("CategoryID")
If CategoryID = "" Then CategoryID = init_catID
If Request("CategoryID") > 0 Then
strSql_Categories = "select * from Category where CategoryID=" & CategoryID
Set rsHeading = cnnSafeshopStoreDB.Execute(strSql_Categories)
strCat = rsHeading("CategoryDescription")
rsHeading.Close
Set rsHeading = Nothing
Else
strCat = Session("storename")
End If
%>
<%If storeinfo = "" And Request("strSearch") = "" Then
Response.Write (strCat)
Else
Select Case LCase(storeinfo)
Case "shipping"
storeinfo = "Shipping Info"
Case "help"
storeinfo = "Help"
Case "security"
storeinfo = "Your Security"
Case "contactus"
storeinfo = "Contact Us"
Case "aboutus"
storeinfo = "About Us"
Case "returnpolicy"
storeinfo = "Return Policy"
Case "privacystatement"
storeinfo = "Privacy Statement"
Case "welcome"
storeinfo = Session("storename")
End Select
Response.Write (storeinfo)
End If
If Request("strSearch") <> "" Then
Response.Write "Search Results for """ & Request("strSearch") & """"
Else
Response.Write (" ")
End If
%>
|
<%
Dim rsProducts, vw_ProductInfo
' A SQL view of product information to display
vw_ProductInfo = "SELECT dbo.ProductMaster.ProductID AS UniqueID, dbo.Category.CategoryID AS Category1ID, dbo.ProductMaster.Name, dbo.ProductPrice.Price, dbo.GenesisInfo.Description, dbo.GenesisInfo.GraphicURL, dbo.ProductPrice.ExpiryDate FROM dbo.ProductMaster INNER JOIN dbo.ProductCategory ON dbo.ProductMaster.ProductID = dbo.ProductCategory.ProductID INNER JOIN dbo.Category ON dbo.ProductCategory.CategoryID = dbo.Category.CategoryID INNER JOIN dbo.ProductPrice ON dbo.ProductMaster.ProductID = dbo.ProductPrice.ProductID INNER JOIN dbo.GenesisInfo ON dbo.ProductMaster.ProductID = dbo.GenesisInfo.ProductID WHERE (dbo.ProductPrice.[Default] = 'YES') AND (dbo.GenesisInfo.DescriptionType = 'Short') AND (dbo.ProductPrice.Display = 'YES')"
If Request.Form.Count = 0 Then ' list product infomation by CategoryID
' strSql_Products = vw_ProductInfo & " AND (Category.CategoryID = " & CategoryID & ")"
strSql_Products = vw_ProductInfo & " AND (Category.CategoryID = " & CategoryID & ") order by dbo.ProductMaster.productid"
Else ' list product infomation by search criteria
SQLsrch = "SELECT DISTINCT "
SQLsrch = SQLsrch & " dbo.ProductMaster.ProductID AS UniqueID "
SQLsrch = SQLsrch & "FROM dbo.ProductMaster INNER JOIN"
SQLsrch = SQLsrch & " dbo.ProductCategory ON "
SQLsrch = SQLsrch & " dbo.ProductMaster.ProductID = dbo.ProductCategory.ProductID INNER JOIN"
SQLsrch = SQLsrch & " dbo.ProductPrice ON "
SQLsrch = SQLsrch & " dbo.ProductMaster.ProductID = dbo.ProductPrice.ProductID INNER JOIN dbo.GenesisInfo ON "
SQLsrch = SQLsrch & " dbo.ProductMaster.ProductID = dbo.GenesisInfo.ProductID "
SQLsrch = SQLsrch & "WHERE (dbo.ProductMaster.Name LIKE '%" & Request("strSearch") & "%%' ESCAPE '/') OR "
SQLsrch = SQLsrch & " (dbo.GenesisInfo.Description LIKE '%" & Request("strSearch") & "%%' ESCAPE '/')"
vw_ProductInfo = ""
vw_ProductInfo = vw_ProductInfo & "SELECT dbo.ProductMaster.ProductID AS UniqueID, dbo.ProductPrice.ExpiryDate,"
vw_ProductInfo = vw_ProductInfo & " dbo.ProductMaster.Name, dbo.ProductPrice.Price, "
vw_ProductInfo = vw_ProductInfo & " dbo.GenesisInfo.Description, "
vw_ProductInfo = vw_ProductInfo & " dbo.GenesisInfo.GraphicURL "
vw_ProductInfo = vw_ProductInfo & "FROM dbo.ProductMaster INNER JOIN"
vw_ProductInfo = vw_ProductInfo & " dbo.ProductPrice ON "
vw_ProductInfo = vw_ProductInfo & " dbo.ProductMaster.ProductID = dbo.ProductPrice.ProductID "
vw_ProductInfo = vw_ProductInfo & " INNER JOIN"
vw_ProductInfo = vw_ProductInfo & " dbo.GenesisInfo ON "
vw_ProductInfo = vw_ProductInfo & " dbo.ProductMaster.ProductID = dbo.GenesisInfo.ProductID "
vw_ProductInfo = vw_ProductInfo & "WHERE dbo.ProductMaster.ProductID IN ("&SQLsrch&") AND "
' vw_ProductInfo = vw_ProductInfo & " (dbo.ProductPrice.ExpiryDate > GETDATE()) AND "
vw_ProductInfo = vw_ProductInfo & " (dbo.GenesisInfo.DescriptionType = 'Short') AND ProductPrice.Display = 'YES'"
strSql_Products = vw_ProductInfo
isSearch = True
End If
If Request("ProductID") <> "" Then ' list Products requested by ProductID
vw_ProductInfo = ""
vw_ProductInfo = vw_ProductInfo & "SELECT dbo.ProductMaster.ProductID AS UniqueID, "
vw_ProductInfo = vw_ProductInfo & " dbo.ProductMaster.Name, dbo.ProductPrice.Price, "
vw_ProductInfo = vw_ProductInfo & " dbo.GenesisInfo.Description, "
vw_ProductInfo = vw_ProductInfo & " dbo.GenesisInfo.GraphicURL "
vw_ProductInfo = vw_ProductInfo & "FROM dbo.ProductMaster INNER JOIN"
vw_ProductInfo = vw_ProductInfo & " dbo.ProductPrice ON "
vw_ProductInfo = vw_ProductInfo & " dbo.ProductMaster.ProductID = dbo.ProductPrice.ProductID "
vw_ProductInfo = vw_ProductInfo & " INNER JOIN"
vw_ProductInfo = vw_ProductInfo & " dbo.GenesisInfo ON "
vw_ProductInfo = vw_ProductInfo & " dbo.ProductMaster.ProductID = dbo.GenesisInfo.ProductID "
vw_ProductInfo = vw_ProductInfo & "WHERE dbo.ProductMaster.ProductID LIKE ('" & Request("ProductID") & "') AND "
' vw_ProductInfo = vw_ProductInfo & " (dbo.ProductPrice.ExpiryDate > GETDATE()) AND "
vw_ProductInfo = vw_ProductInfo & " (dbo.GenesisInfo.DescriptionType = 'Short') AND ProductPrice.Display = 'YES'"
'strSql_Products = vw_ProductInfo & " AND (ProductMaster.ProductID = '" & Request("ProductID") & "')"
strSql_Products = vw_ProductInfo
Else
' Response.Write strSQL_Products ' *** Debug ***
If storeinfo = "" And Request("CategoryID") = "" And Not isSearch Then Call RenderStoreInfo("welcome")
End If
If Request("CategoryID") > 0 Or Request("strSearch") <> "" Or Request("ProductID") <> "" Then
Set rsproducts = server.CreateObject("ADODB.recordset")
rsProducts.open strSql_Products, cnnSafeshopStoreDB, 3 ,1
end if
%>
<%
If Request("CategoryID") > 0 Or Request("strSearch") <> "" Or Request("ProductID") <> "" Then
If rsProducts.BOF Or rsProducts.EOF Then
Response.Write "No records were found."
End If
Do While Not rsProducts.EOF
Image = rsProducts("GraphicUrl")
If Image = "" Then
Image = "" & Application("ORAppImgSrc") & "nopic.gif"
End If
' Determine if offer expires and check date -----------------------------------------
val = FindAttributeValue(rsProducts("UniqueID"), "OfferExpires")
' Response.Write val
display = true
if ucase(val) = "Y" then
if cdate(rsproducts("ExpiryDate")) < cdate(DATE()) then
display = false
end if
end if
if display = true then
'------------------------------------------------------------------------------------
%>
 |
 " >
|
; font-family: arial; font-weight: bold"><%= rsProducts("name") %>
<%= rsProducts("Description")%>
|
| |
; font-family: arial; font-weight: bold"><%=replace(cstr(formatcurrency(rsProducts("Price"),2)),"$", "R ") %> |
">
|
|
|
<%
end if
rsProducts.Movenext
Loop
rsProducts.Close
Set rsProducts = Nothing
End If
%>
<%
If Request("storeinfo") = "" And Request("CategoryID") = "" And Not isSearch And Request("ProductID") = "" Then
Response.Redirect (ScriptName & "?storeinfo=welcome")
Else
Call RenderStoreInfo(Request("storeinfo"))
End If
%>
|
|
