<%
Option Explicit
Response.Buffer=True
%>
<%
Dim g_lngTestimonialID
g_lngTestimonialID = -1
Function GetTestimonialID()
'If -1 then this routine (called from 3 places)
'has not yet been run
If g_lngTestimonialID = -1 Then
Dim rs
Set rs = dbTest.ListByProduct_RS(g_lngPLProductID)
If rs.EOF Then
g_lngTestimonialID = 0
Else
g_lngTestimonialID = rs("PLTestimonialID")
End If
Set rs = Nothing
End If
GetTestimonialID = g_lngTestimonialID
End Function
Dim dicFormValues
Set dicFormValues = Server.CreateObject("Scripting.Dictionary")
dicFormValues.CompareMode = vbTextCompare
Dim g_lngPLProductID
Main
Sub Main()
'Is this an edit or new
g_lngPLProductID = CLng("0" & Request.QueryString("PLProductID"))
If g_lngPLProductID = 0 Then
'There is no product, so kick back out to the products.asp
Response.Redirect "products.asp"
End If
LoadDicFromDB g_lngPLProductID
End Sub
Sub LoadDicFromDB(ByVal PLProductID)
dicFormValues.RemoveAll()
Dim rs
Set rs = dbPLProduct.GetByID_RS(PLProductID)
If rs.EOF Then
Response.Write "Error Loading PL Product: " & PLProductID
Response.End
End If
Dim field
For Each field In rs.Fields
dicFormValues.Add field.name, field.value
Next
Set rs = Nothing
End Sub
Sub WriteCategory()
Response.Write Server.HTMLEncode(dicFormValues("CategoryName"))
End Sub
Sub WriteCategoryLink()
Response.Write "Back to "
Response.Write Server.HTMLEncode(dicFormValues("CategoryName"))
Response.Write ""
End Sub
Sub WriteProductImage()
Dim strImage
If Len(dicFormValues("ImageLG")) > 0 Then
strImage = dicFormValues("ImageLG")
Else
strImage = dicFormValues("ImageSM")
End If
Response.Write ""
End Sub
Sub WriteProductCopy()
Response.Write GetBreaks(dicFormValues("ProductCopy"))
End Sub
Sub WriteProductBullets()
Response.Write GetBreaks(dicFormValues("BulletCopy"))
End Sub
Sub WriteHowToUse()
Response.Write GetBreaks(dicFormValues("HowToUseCopy"))
End Sub
Function GetBreaks(s)
s = Replace(s, vbCrLf, " ")
s = Replace(s, vbCr, " ")
s = Replace(s, vbLf, " ")
GetBreaks = s
End Function
Sub WriteGenImage()
'
'Look at this product for CopyImage
If Len(dicFormValues("CopyImage")) > 0 Then
'Use it
Response.Write ""
Else
Response.Write " "
Exit Sub
'Use a default one
Dim strImage
Select Case dicFormValues("PLProductCategoryID")
Case 1,2 'Panel & Poly
strImage = "pl200.gif"
Case 3 'Canned
strImage = "Concrete.gif"
Case 4
strImage = "Wood.gif"
End Select
Response.Write ""
End If
End Sub
Sub WriteHowToUseImages()
'If we have images, then we can do it
If Len(dicFormValues("UseImage1")) > 0 Or Len(dicFormValues("UseImage2")) > 0 Or Len(dicFormValues("UseImage3")) > 0 Then
Response.Write "
"
End If
End Sub
Sub WriteDYK()
Dim rs
Set rs = dbPLDidYouKnow.ListByPLProductID_RS(g_lngPLProductID)
If Not rs.EOF Then
%>
<%
Do While Not rs.EOF
%>
<%=rs("ProductName") & " " & rs("Copy")%>
<%
rs.MoveNext
Loop
End If
Set rs = Nothing
End Sub
Function GetMetadataID()
'We'll do a match on the 1st x characters
Dim x
x = 6
Dim strProduct
strProduct = dicFormValues("ProductName")
If Len(strProduct) < x Then
x = Len(strProduct)
End If
Dim strSQL
strSQL = "select MetadataID from tblProductClassMetadata where left(Metadata," & x & ")='" & SQLSafe(Left(strProduct, x)) & "'"
Dim rs
Set rs = objRunSQL.RunSQL(strSQL)
Dim l
If rs.EOF Then
l = 0
Else
l = rs("MetadataID")
End If
Set rs = Nothing
GetMetadataID = l
End Function
Function SQLSafe(ByVal v)
SQLSafe = Replace(v, "'", "''")
End Function
Function ShowPromotion()
'See if there is a promotion for this productid
Dim rs
Set rs = dbPLPromotion.GetByProduct_RS(g_lngPLProductID)
If Not rs.EOF Then
ShowPromotion = True
Exit Function
End If
'See if this category has a promotion
Set rs = dbPLPromotion.GetByProductCategory_RS(dicFormValues("PLProductCategoryID"))
ShowPromotion = Not rs.EOF
Set rs = Nothing
End Function
%>
PL Sealants & Adhesives
'Look at this product for CopyImage
If Len(dicFormValues("CopyImage")) > 0 Then
'Use it
Response.Write "