Help fix - SQL Server Forums

Please start any new threads on our new site at https://forums.sqlteam.com. We've got lots of great SQL Server experts to answer whatever question you can come up with.

All Forums

Development Tools

ASP.NET

Help fix

Author

Topic

danjapro
Starting Member

44 Posts

Posted - 2006-11-27 : 10:54:02

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)

%>

SwePeso
Patron Saint of Lost Yaks

30421 Posts

Posted - 2006-11-27 : 10:57:41

Which line is 104?

Peter Larsson
Helsingborg, Sweden

KenW
Constraint Violating Yak Guru

391 Posts

Posted - 2006-11-28 : 15:55:30

Good question, Peter. If you take the code starting with the line below "here is the code", there are only 73 lines posted here.
We may have a little luck finding line 104; it's apparently below your post and above mine. :-)

Ken

Subscribe to SQLTeam.com

SQLTeam.com Articles via RSS

SQLTeam.com Weblog via RSS

- Advertisement -

Resources