<%
'Alter these codes to change BanMan ads
ZoneCodeTopBanner1 = 11 'zone id no.
ZoneCodeTopBanner2 = 468 'width in pixels
ZoneCodeTopBanner3 = 60 'height in pixels
ZoneCodeTopBanner4 = 33333 'page id
ZoneCodeBottomBanner1 = 1
ZoneCodeBottomBanner2 = 468
ZoneCodeBottomBanner3 = 60
ZoneCodeBottomBanner4 = 33333
' To update this page for 2005 etc., change "Product.BG2004" in the SQL query to the appropriate field.
'--------------------------------
function SpecChar(str)
if not isnull(str) then
str = Replace(str, "&", "&")
str = Replace(str, """", """)
str = Replace(str, "<", "<")
str = Replace(str, ">", ">")
end if
SpecChar = str
End function
'--------------------------------
strCatID = Request.Querystring("catid")
if not IsValidString(strCatID) then strCatID = 0
'strSQL = "SELECT Cat.CatName AS CatName, Subcat.CatID AS SubcatID, " &_
' "Subcat.CatName AS SubcatName, ProdID, ProdName, Description1, Description2, " &_
' "UseWith, Price, CompanyName, Web, Email, Product.DateEnter, Product.DateRevise " &_
'"FROM (((Category AS Cat LEFT JOIN " &_
' "Category AS Subcat ON Cat.CatID = Subcat.ParentID) " &_
' "INNER JOIN " &_
' "Product ON Product.CatID = Subcat.CatID) INNER JOIN " &_
' "Company ON Product.CompanyID = Company.CompanyID) " &_
'"WHERE Subcat.ParentID = '" & sqlsafe(strCatID) & "' AND Product.BG2004 = 1 " &_
'" ORDER BY CatName, SubcatName, ProdName"
'strSQL = "SELECT Cat.CatName AS CatName, Subcat.CatID AS SubcatID, Subcat.CatName AS SubcatName, Product.ProdID, Product.ProdName, Product.Description1, " &_
' "Product.UseWith, Product.Price, Company.CompanyName, Company.Web, Company.Email, Product.PPC, Product.HPC, Product.Smartphone, " &_
' "AwardHistory.Smartphone AS AwardSmart, Product.Desktop, AwardHistory.[Year], AwardHistory.AwardStatus " &_
' "FROM Category Cat LEFT OUTER JOIN " &_
' "Category Subcat ON Cat.CatID = Subcat.ParentID INNER JOIN " &_
' "Product ON Product.CatID = Subcat.CatID INNER JOIN " &_
' "Company ON Product.CompanyID = Company.CompanyID INNER JOIN " &_
' "AwardHistory ON Product.ProdID = AwardHistory.ProdID " &_
' "WHERE (Subcat.ParentID = '" & sqlsafe(strCatID) & "') AND (AwardHistory.Year = '2003') AND (AwardHistory.Smartphone = '0') " &_
' "ORDER BY Cat.CatName, SubcatName, Product.ProdName, AwardHistory.[Year] DESC"
strSQL = "SELECT Cat.CatName AS CatName, Subcat.CatID AS SubcatID, Subcat.CatName AS SubcatName, Product.ProdID, Product.ProdName, Product.Description1, " &_
"Product.UseWith, Product.Price, Company.CompanyName, Company.Web, Company.Email, Product.PPC, Product.HPC, Product.Smartphone, " &_
"Product.Desktop, AwardHistory.AwardStatus " &_
"FROM Category Cat LEFT OUTER JOIN " &_
"Category Subcat ON Cat.CatID = Subcat.ParentID INNER JOIN " &_
"Product ON Product.CatID = Subcat.CatID INNER JOIN " &_
"Company ON Product.CompanyID = Company.CompanyID INNER JOIN " &_
"AwardHistory ON Product.ProdID = AwardHistory.ProdID " &_
"WHERE (Subcat.ParentID = '" & sqlsafe(strCatID) & "') AND (AwardHistory.Year = '2004') AND (AwardHistory.Smartphone = '0') " &_
"ORDER BY Cat.CatName ASC, SubcatName ASC, Product.ProdName ASC"
'Response.write strSQL
'response.end
Call ExecuteSQL(strSQL,cursortype,rs_main)
%>
Nominations: Best Software Awards 2004
<%
If rs_main.EOF Or rs_main.BOF Then
Response.Write "Developer software nominations have not been made yet for 2004."
Else
'set these so can compare to them to decide whether to write a heading
strCat = ""
strSubcat = ""
strID = ""
Response.Write " "
Do While Not rs_main.EOF
'Do Until rs_main("ProdID") <> strID
' rs_main.MoveNext
'Loop
If strCat <> rs_main("CatName") Then
Response.write "
" & vbcrlf '&_
End If
strSubcat = rs_main("SubcatName")
'assign values to the string variables
strID=rs_main("ProdID")
strName=rs_main("ProdName")
strDesc=rs_main("Description1")
'strDesctwo=rs_main("Description2")
strDevel=rs_main("CompanyName")
strWeb = Replace(rs_main("Web"),"http://","")
strEmail = rs_main("Email")
' If Not rs_main("DateEnter") = "" Then
' strDate=Cstr(rs_main("DateEnter"))
' Else
' strDate=Cstr(rs_main("DateRevise"))
' End If
'Display the item in question
'Check to be sure field isn't empty, and replace special characters
Response.Write "
" & SpecChar(strName) & ""
If rs_main("AwardStatus") = "Finalist" Then Response.Write " " &_
"" & vbcrlf
If rs_main("AwardStatus") = "Winner" Then Response.Write " " &_
"" & vbcrlf
Response.Write "" & vbcrlf
response.write " " & vbcrlf
If Not strDesc = "" Then Response.Write SpecChar(strDesc) & " " & vbcrlf
If Not strDesctwo = "" Then Response.Write SpecChar(strDesctwo)
Response.Write " "
If Not strUsewith = "" Then Response.Write "Use with: " & SpecChar(strUsewith) & " "
If Not strPrice = "" Then Response.Write "Price: " & SpecChar(strPrice) & " "
Response.Write "Developer: " & SpecChar(strDevel) & " " & vbcrlf
'Response.write "Date posted: " & SpecChar(strDate) & " " & vbcrlf
'If Not strPhone = "" Then Response.Write "Phone: " & strPhone & " "
'If Not strFax = "" Then Response.Write "Fax: " & strFax & " "
If Not strEmail = "" Then Response.Write "Email: " & strEmail & " "
If Not strWeb = "" Then Response.Write "Web: " & strWeb & "
"
Response.write "" & vbcrlf
rs_main.MoveNext
Loop
End If
' Close DB objects and free variables
rs_main.Close
Set rs_main = Nothing
DataConn.Close
Set DataConn = Nothing
%>
