SQL dynamic meta tags not being displayed

[campdw]

Hello

I am trying to display dynamic meta tags throughout my website but I am unable to get the data to display anything. Can someone take a look at my SQL statement?

##########################################################
<%
Dim rsMetaKeywords__varCatCode
rsMetaKeywords__varCatCode = ""
If (sCc <> "") Then
rsMetaKeywords__varCatCode = sCc
End If
%>
<%
Dim rsMetaKeywords
Dim rsMetaKeywords_numRows

Set rsMetaKeywords = Server.CreateObject("ADODB.Recordset")
rsMetaKeywords.ActiveConnection = MM_dtor_data_STRING
rsMetaKeywords.Source = "SELECT CATEGORY, CUSTMEMO1 FROM dbo.CATEGORY WHERE CATEGORY = '" + Replace(rsMetaKeywords__varCatCode, "'", "''") + "' ORDER BY CATEGORY"
rsMetaKeywords.CursorType = 0
rsMetaKeywords.CursorLocation = 2
rsMetaKeywords.LockType = 1
rsMetaKeywords.Open()

rsMetaKeywords_numRows = 0
%>
<meta name="keywords" content="<%=(rsMetaKeywords.Fields.Item("CUSTMEMO1").Value)%>">
<meta name="description" content="<%=rsMetaKeywords__varCatCode%>">
<%
rsMetaKeywords.Close()
Set rsMetaKeywords = Nothing
%>
##########################################################

When the script runs the variable rsMetaKeywords__varCatCode is assigned a value of the category code but I think the problem lies with the rsMetaKeywords.Source part of the script.

Regards

 

[r937]

your SQL looks okay

if you would post your question in the ASP forum, you might get an answer to the script problem

this is the forum for standard ANSI SQL

rudy | r937.com | Ask the Expert | Premium SQL Articles
SQL for Database-Driven Web Sites (next course starts May 8 2005)