SitePoint Sponsor

User Tag List

Results 1 to 2 of 2

Thread: Help fix

  1. #1
    SitePoint Addict
    Join Date
    Aug 2004
    Location
    vi
    Posts
    213
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Exclamation Help fix

    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)


    %>

  2. #2
    ********* user
    Join Date
    Mar 2006
    Location
    Malta
    Posts
    312
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Which is line 104?


Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •