Advertisement
If you have a new account but are having problems posting or verifying your account, please email us on hello@boards.ie for help. Thanks :)
Hello all! Please ensure that you are posting a new thread or question in the appropriate forum. The Feedback forum is overwhelmed with questions that are having to be moved elsewhere. If you need help to verify your account contact hello@boards.ie
Hi there,
There is an issue with role permissions that is being worked on at the moment.
If you are having trouble with access or permissions on regional forums please post here to get access: https://www.boards.ie/discussion/2058365403/you-do-not-have-permission-for-that#latest

Dreamweaver CS4 question

  • 16-03-2009 12:42pm
    #1
    The Mighty Dubs
    Registered Users, Registered Users 2 Posts: 224 ✭✭


    Hi all,

    Ive been using DW from the day dot but have encoutered an issue with the new CS4. Basically im doing a simple search where you enter your criterea on one page and results are displayed on another page. the old generated code worked without any issues but with this new code by CS4, I cant seem to get it working. its not bringing me correct results. Any ideas?

    ***************
    Here is my criterea form.

    ****************
    <form action="SrchSuppRes.asp" method="get" name="frnSuppSrc" target="_self" id="frnSuppSrc">
    <table width="100%" border="0" cellspacing="0" cellpadding="0">
    <tr>
    <td width="784" bgcolor="#F3F4F7"><div align="center">Item Description
    <label>
    <input name="txtSearch" type="text" class="lgtxtbox" id="txtSearch" value="%">
    <input name="button" type="submit" class="searchsmall" id="button3" value="Submit">
    </label>
    </div></td>
    </tr>
    </table>
    </form>


    ***************
    Here is the results page code which calls the recordset

    ***************

    <%
    Dim rsViewQuoteDetails__txtSearch
    rsViewQuoteDetails__txtSearch = "%"
    If (Request.form("SuppProductExample") <> "") Then
    rsViewQuoteDetails__txtSearch = Request.form("SuppProductExample")
    End If
    %>
    <%
    Dim rsViewQuoteDetails
    Dim rsViewQuoteDetails_cmd
    Dim rsViewQuoteDetails_numRows

    Set rsViewQuoteDetails_cmd = Server.CreateObject ("ADODB.Command")
    rsViewQuoteDetails_cmd.ActiveConnection = MM_sqs_STRING
    rsViewQuoteDetails_cmd.CommandText = "SELECT * FROM dbo.qrySuppSrcRes WHERE SuppProductExample Like ? ORDER BY Suppname ASC"
    rsViewQuoteDetails_cmd.Prepared = true
    rsViewQuoteDetails_cmd.Parameters.Append rsViewQuoteDetails_cmd.CreateParameter("param1", 200, 1, 150, "%" + rsViewQuoteDetails__txtSearch + "%") ' adVarChar

    Set rsViewQuoteDetails = rsViewQuoteDetails_cmd.Execute
    rsViewQuoteDetails_numRows = 0
    %>

    ************************


Advertisement