Not querying on page load

[jjr0319]

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:

<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.