<meta name=
"keywords" content="<%Set metagenRS = metagenDB.Execute("select DESCRIPTION
from PRODUCT")
Do While Not metagenRS.EOF
strKeyword = ""
strKeyword = metagenRS("DESCRIPTION")
strKeyword = fncReplaceQuotes(strKeyword)
Response.Write strKeyword & ", "
strKeyword = ""
metagenRS.MoveNext
Loop
Set metagenRS = metagenDB.Execute("select DISTINCT
CATEGORY from PRODUCT")
Do While Not metagenRS.EOF
strKeyword = ""
strKeyword = metagenRS("CATEGORY")
strKeyword = fncReplaceQuotes(strKeyword)
Response.Write strKeyword & ", "
strKeyword = ""
metagenRS.MoveNext
Loop
Response.Write "add any other keywords here" %>
<%
Function fncReplaceQuotes( byRef strToReplace )
strToReplace = Replace(strToReplace, "'", "")
strToReplace = Replace(strToReplace, Chr(34), "")
fncReplaceQuotes = strToReplace
End Function
%>
<!--
===========================================
okay now we're done with the meta tag. But before we close the recordset, how
about a drop down menu? So further down the page (I actually arranged the header
so the dropdown displayed next to their logo), you'll want to place this bit.
=========================================== -->
<form name=
"categoryjump" method="POST" action="search_result.asp">That's it! Double duty off the same recordset. Be careful using the description recordset to meta tag piece if you have more than 200 products. It will create a MASSIVE amount of keywords (# of records X number of words in each description). ;-) You might want to edit out the first recordset instance that pulls the Description field contents and just use the second instance that pulls the Categories.