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

A little help with ASP?

Options
2»

Comments

  • Options
    #32
    bribren2001
    Registered Users Posts: 202 ✭✭bribren2001


    louie i think ill let you go after this, ive been killing you all day, thanks a million though,

    Microsoft VBScript compilation error '800a03fb'

    Expected 'Loop'

    /rivolinho/search1.asp, line 83


  • Options
    #33
    louie
    Closed Accounts Posts: 1,200 ✭✭✭louie


    send a copy of that page


  • Options
    #34
    bribren2001
    Registered Users Posts: 202 ✭✭bribren2001


    <%@LANGUAGE=&quot;VBSCRIPT" CODEPAGE="1252"%>
    <%response.buffer = true%>
    <%
    Dim SearchParam
    SearchParam = Trim(Request("SearchParam"))

    Dim CompType, t3_advSearch_String
    'Store type of query in CompType ie All Words/OR, Any Word/AND or Exact Phrase/EXACT
    CompType = Request("CompType")
    SearchColumn = "Game_title"

    SearchField = "zzz"
    if(Request("SearchParam") <> "") then SearchField = Request("SearchParam")
    'Remove any single quotes from search field to eliminate potential errors.
    SearchField = Replace(SearchField, "'", "")
    SearchField = Replace(SearchField, " ", " ")

    'Checks the CompType, Executes this code if the option All words or Any Word is chosen
    if(CompType <> "EXACT") then
    t3_advSearch_String = "WHERE " & SearchColumn & " LIKE '%"
    'Splits the search criteria into seperate words and stores them in an Array
    SearchArray=Split(SearchField," ")
    for i = 0 to Ubound(SearchArray)
    if i > 0 then
    'Builds the sql statement using the CompType to substitute AND/OR
    t3_advSearch_String = t3_advSearch_String & " " & CompType & " " & SearchColumn & " LIKE '%"& SearchArray(i) & "%'"
    else
    'Ends the sql statement if there is only one word
    t3_advSearch_String = t3_advSearch_String & SearchArray(i) & "%' "
    end if
    next

    else
    t3_advSearch_String = "WHERE " & SearchColumn & " LIKE '%" & SearchField & "%' "
    end if

    Dim rsSearch__t3_String
    'rsSearch__t3_String = "WHERE ID=1"
    if (t3_advSearch_String <> "") then rsSearch__t3_String = t3_advSearch_String

    set rsSearch = Server.CreateObject("ADODB.Recordset")
    rsSearch.ActiveConnection =("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db\Game Emporium.mdb") & ";Persist Security Info=False")
    rsSearch.Source = "SELECT * FROM Game " + Replace(rsSearch__t3_String, "'", "'")
    rsSearch.CursorType = 0
    rsSearch.CursorLocation = 2
    rsSearch.LockType = 1
    rsSearch.Open()
    rsSearch_numRows = 0
    %>
    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"&gt;
    <html>
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
    <title>Untitled Document</title>
    </head>

    <body>
    <form name="search" id="search" method="get" action="search1.asp">
    <br />
    <br />
    <input name="SearchParam" type="text" class="btn" id="SearchParam" value="<%=UCase(Trim(Request("SearchParam")))%>" size="45" />
    <select name="CompType" class="TEXTAREA" id="CompType">
    <option value="<%=Request("CompType")%>" selected="selected"><%=Request("CompType")%></option>
    <option value="OR">All Words</option>
    <option value="AND">Any Word</option>
    <option value="EXACT">Exact Phrase</option>
    </select>
    <input name="Search" type="submit" class="btn" id="Search" value="Search" />
    </form>
    <%if (rsSearch.Fields.Item("Game_title").Value) <> "" Then%>
    <%
    Do While NOT rsSearch.EOF
    %>
    <% If Not rsSearch.EOF Or Not rsSearch.BOF Then %>
    <%
    Do While NOT rsSearch.EOF
    %>
    <li><%=(rsSearch.Fields.Item("Game_title").Value)%></li>
    <%
    rsSearch.MoveNext
    Loop
    %>
    <% End If ' end Not rsSearch.EOF Or NOT rsSearch.BOF %>


  • Options
    #35
    louie
    Closed Accounts Posts: 1,200 ✭✭✭louie


    <%@LANGUAGE=&quot;VBSCRIPT" CODEPAGE="1252"%>
    <%response.buffer = true%>
    <%
    Dim SearchParam
    SearchParam = Trim(Request("SearchParam"))

    Dim CompType, t3_advSearch_String
    'Store type of query in CompType ie All Words/OR, Any Word/AND or Exact Phrase/EXACT
    CompType = Request("CompType")
    SearchColumn = "Game_title"

    SearchField = "zzz"
    if(Request("SearchParam") <> "") then SearchField = Request("SearchParam")
    'Remove any single quotes from search field to eliminate potential errors.
    SearchField = Replace(SearchField, "'", "")
    SearchField = Replace(SearchField, " ", " ")

    'Checks the CompType, Executes this code if the option All words or Any Word is chosen
    if(CompType <> "EXACT") then
    t3_advSearch_String = "WHERE " & SearchColumn & " LIKE '%"
    'Splits the search criteria into seperate words and stores them in an Array
    SearchArray=Split(SearchField," ")
    for i = 0 to Ubound(SearchArray)
    if i > 0 then
    'Builds the sql statement using the CompType to substitute AND/OR
    t3_advSearch_String = t3_advSearch_String & " " & CompType & " " & SearchColumn & " LIKE '%"& SearchArray(i) & "%'"
    else
    'Ends the sql statement if there is only one word
    t3_advSearch_String = t3_advSearch_String & SearchArray(i) & "%' "
    end if
    next

    else
    t3_advSearch_String = "WHERE " & SearchColumn & " LIKE '%" & SearchField & "%' "
    end if

    Dim rsSearch__t3_String
    'rsSearch__t3_String = "WHERE ID=1"
    if (t3_advSearch_String <> "") then rsSearch__t3_String = t3_advSearch_String

    set rsSearch = Server.CreateObject("ADODB.Recordset")
    rsSearch.ActiveConnection =("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db\Game Emporium.mdb") & ";Persist Security Info=False")
    rsSearch.Source = "SELECT * FROM Game " + Replace(rsSearch__t3_String, "'", "'")
    rsSearch.CursorType = 0
    rsSearch.CursorLocation = 2
    rsSearch.LockType = 1
    rsSearch.Open()
    rsSearch_numRows = 0
    %>
    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"&gt;
    <html>
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
    <title>Untitled Document</title>
    </head>

    <body>
    <form name="search" id="search" method="get" action="search1.asp">
    <br />
    <br />
    <input name="SearchParam" type="text" class="btn" id="SearchParam" value="<%=UCase(Trim(Request("SearchParam")))%>" size="45" />
    <select name="CompType" class="TEXTAREA" id="CompType">
    <option value="<%=Request("CompType")%>" selected="selected"><%=Request("CompType")%></option>
    <option value="OR">All Words</option>
    <option value="AND">Any Word</option>
    <option value="EXACT">Exact Phrase</option>
    </select>
    <input name="Search" type="submit" class="btn" id="Search" value="Search" />
    </form>

    <% If Not rsSearch.EOF Or Not rsSearch.BOF Then %>
    <%
    Do While NOT rsSearch.EOF
    %>
    <li><%=(rsSearch.Fields.Item("Game_title").Value)%></li>
    <%
    rsSearch.MoveNext
    Loop
    %>
    <% End If ' end Not rsSearch.EOF Or NOT rsSearch.BOF %>
    </body>
    </html>
    <%
    rsSearch.Close()
    Set rsSearch = Nothing
    %>


  • Options
    #36
    bribren2001
    Registered Users Posts: 202 ✭✭bribren2001


    it works!! great stuff,thanks alot louie,il write to your boss demanding you get a payed week off!

    id say youll need it after goin through that never ending problem code!


  • Advertisement
  • Options
    #37
    louie
    Closed Accounts Posts: 1,200 ✭✭✭louie


    I am glad it's all working.


Advertisement