Help

This is my error and I need help figuring out why I am getting this error.
I am trying to get my sql query to display on the pages as I want to request. But it is creating some kind of code conflict.

Microsoft VBScript compilation (0x800A03EA)
Syntax error
/nsex707/common/i_webpart_col_left.do, line 104
sub request_featured_content2

Here is the CODE
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
dim featured_content_sql2

sub request_featured_content2
ContentTypeID = request("ContentTypeID")
FeaturedLabel = request("FeaturedLabel")
Thumbnail = request("Thumbnail")
Display = request("Display")
ContentID = request("ContentID")
ContentType = request("ContentType")
ContentTitle = request("ContentTitle")
iftest = request("iftest")
ShortDesc = request("ShortDesc")
elsetest = request("elsetest")
LongDesc = request("LongDesc")
endtest = request("endtest")
iftest_ads = request("iftest_ads")
AdTitle = request("AdTitle")
AdBanner = request("AdBanner")
endiftest_ads = request("endiftest_ads")
end sub

sub validate_featured_content
''' request and validate data entered from this form
ContentTypeID = trim(request("ContentTypeID"))
FeaturedLabel = trim(request("FeaturedLabel"))
Thumbnail = trim(request("Thumbnail"))
Display = trim(request("Display"))
ContentID = trim(request("ContentID"))
ContentType = trim(request("ContentType"))
ContentTitle = trim(request("ContentTitle"))
iftest = trim(request("iftest"))
ShortDesc = trim(request("ShortDesc"))
elsetest = trim(request("elsetest"))
LongDesc = trim(request("LongDesc"))
endtest = trim(request("endtest"))
iftest_ads = trim(request("iftest_ads"))
AdTitle = trim(request("AdTitle"))
AdBanner = trim(request("AdBanner"))
endiftest_ads = trim(request("endiftest_ads"))
end sub

sub db_select_featured_content2
Featured_Content_Sql2 = "SELECT TOP 3 ContentID, ContentType, Thumbnail, FeaturedLabel, ShortDesc, LongDesc, Title AS ContentTitle " & _
"FROM (Content LEFT JOIN ContentTypes ON Content.ContentTypeId = ContentTypes.ContentTypeId) " & _
"WHERE ContentTypes.ContentTypeId <> 1 AND Enabled=1 AND Feature=1 ORDER BY Priority, DateAdded DESC"
end sub

''' request form keys and inputs
ContentID = request("ContentID")

':: request action
action = lcase(request("action"))

':: handle the action
select case action

case "select_featured_content2"
' select the requested key record from database
if ContentID <> "" then
db_select_featured_content2
else
b_error = true
error_list.add "edit_featured_content", "Specify record to select."
end if

end select

':: handle the default case(s) (ignores value of action parameter)

%>

This seems to not be related to either ASP.NET or ADO.NET.