<%
'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 2007 etc., change "Product.Nom2006" 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, 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 (Product.Nom2006 = 1) " &_
"AND (AwardHistory.[Year] = '2006') AND (AwardHistory.Smartphone = 0) " &_
"ORDER BY Cat.CatName ASC, SubcatName ASC, Product.ProdName ASC"
Call ExecuteSQL(strSQL,cursortype,rs_main)
%>
Nominations: Best Software Awards 2006
<% If rs_main("CatName") = "Developers" Then
Response.Write "
Nominations: Developer Software
"
Else
Response.Write "
Nominations: Pocket PC Software
"
End If
%>
<%
If rs_main.EOF Or rs_main.BOF Then
Response.Write "Developer software nominations have not been made yet for 2006."
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) & ""
''''The following 4 lines are for when the winners have been announced
If rs_main("AwardStatus") = "Finalist" Then Response.Write " " &_
"" & vbcrlf
If rs_main("AwardStatus") = "Winner" Then Response.Write " " &_
"" & vbcrlf
''''The following 3 lines are for when just the finalists have been announced
' If rs_main("AwardStatus") = "Finalist" or rs_main("AwardStatus") = "Winner" Then
' Response.Write " " & vbcrlf
' End If
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
%>
<% If rs_main("CatName") = "Developers" Then
Response.Write "