www.webdeveloper.com
Results 1 to 4 of 4

Thread: Not querying on page load

Threaded View

  1. #1
    Join Date
    Jul 2005
    Posts
    55

    Not querying on page load

    i have an access database setup for FAQs. i wanted to have these faqs displayed based on a radio button selection that resides on the same page. i have the code working, but when the page originally loads, an error comes up stating that "Query must have at least one destination field." when i select a radio button, then click my submit button, the query runs perfectly. what i want to know is how to stop the query from running on page load, and have it run only when the submit button is clicked. here's the code:

    Code:
    <form name="form1" action="index.asp" method="post">
    <table border="0" cellspacing="0" cellpadding="2" width="70%" valign="center" align="center">
    																
    
    <tr>
    <td class="tabledkblue" align="center">Choose which region you wish to view Q&amp;A for...</td>
    </tr>
    																
    
    </table>
    																
    
    <table border="0" cellspacing="0" cellpadding="1" width="70%" valign="center" align="center">
    																
    
    <tr>
    <td class="tablegray" width="25%">
    <input type="radio" name="Region" value="Central" checked>Central
    </td>
    
    <td class="tablegray" width="25%">
    <input type="radio" name="Region" value="East">East
    </td>
    
    <td class="tablegray" width="25%">
    <input type="radio" name="Region" value="West">West
    </td>
    
    
    <td class="tablegray" width="25%">
    <input type="radio" name="Region" value="All">View All
    </td>
    
    </tr>
    
    
    																
    
    </table>
    </table>
    <br>
    <CENTER>
    
    <INPUT type="submit" value="View Q&amp;A" class="tablegray">
    
    </CENTER>
    
    <br>
    <%
    
    Dim rs
    Dim strSQL
    Dim curr
    Dim outstring
    Dim header
    Dim spacer
    Dim What2Get
    Dim str_class
    Dim str_font
    Dim conn
    Dim qdate
    Dim ques
    Dim ans
    Dim status
    Dim objRecordset
    Dim objConnection 
    
    spacer = "                                                                                 "
    What2Get = Request.Form("Region")
    str_class = "tablegray2" 
    str_font = "#CC0066"
    %>
    <div class="subhead" align="left">
    Q&amp;A for the <%= What2Get %> Region
    </div>
    <table width="100%" cellpadding="3" cellspacing="0" border="1" frame="box" rules="rows" bordercolor="#003366" align="center">
    
    <%
    
    Set conn = Server.CreateObject("ADODB.Connection")
    conn.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=d:\inetpub\wwwroot\subs\produce\vendqa\profaq.mdb;User 
    
    Id=admin;Password=;"
     conn.Open 
    
    
    
    strSQL = strSQL & "SELECT *"
    
    if Request.Form("Region") = "Central" then
      strSQL = strSQL & "FROM CENTRAL ORDER BY CENTRAL.[DATE]"  
    End if
    
    if Request.Form("Region") = "East" then
      strSQL = strSQL & "FROM EAST ORDER BY EAST.[DATE]"  
    End if
    
    
    if Request.Form("Region") = "West" then
      strSQL = strSQL & "FROM WEST ORDER BY WEST.[DATE]"  
    End if
    
    
    if Request.Form("Region") = "All" then
      strSQL = strSQL & "FROM CENTRAL, EAST, WEST ORDER BY CENTRAL.[DATE], EAST.[DATE], WEST.[DATE]"  
    End if
    
    
    
    
    
    Set rs = Server.CreateObject("ADODB.Recordset")
    
    rs.Open strSQL, conn, adOpenKeyset, adLockOptimistic
    if rs.BOF and rs.EOF then
    
      response.write "<tr><td align=center>No Q&amp;A exist for the <b>" & What2Get & "</b> Region.  Please return to the <a 
    
    href=index.htm>Vendor Q&amp;A</a> main page and select another region.</td></tr>"
    else
    
    
    
    Do While Not rs.EOF
    	qdate= rs("DATE")
    	ques = rs("QUESTION")
    	ans = rs ("ANSWER")
    
    	
    	
    ' toggle font color
    If status = "Open" Then
    	str_font = "#CC0066"
    Else
    	str_font = "#33CC00"
    End If
    
        %>
    
    <tr class="<%= str_class %>">
    <td align="left" valign="top" width="45%"><b>Date:</b> <%= qdate %>
    <br><b>Question:</b> <font color="6699cc"><%= ques %></font>
    <br><b>Answer:</b> <%= ans %>
    </td>
    </tr>  
    
    
    
    
    <%
    
    ' toggle class name
    If str_class = "tablegray2" Then
    	str_class = "tablewhite2"
    Else
    	str_class = "tablegray2"
    End If
    
    
    
      rs.MoveNext
      Loop
    End if
    
    rs.Close
    conn.Close
    Set objRecordset = Nothing
    Set objConnection = Nothing
    %>
    thanks in advance.
    Last edited by jjr0319; 08-17-2005 at 09:17 AM.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

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



Recent Articles