Hola
Senor en Senora
I will post my codes here. Hope you'd be able to get a clear view of how I do my codes
*note that I'm still new to ASP + Access*
<head>
<script language="JavaScript" src="popcalendar.js"></script>
<title>View Tables > 2004</title>
</head>
<body>
<H1>View Tables > 2004</H1>
<p>Please select a table:</p>
<% ' ***********Display table in FORM1*********** %>
<form method="Post" action="" name=Form1>
<SELECT name="tblName">
<%
Set DB = Server.CreateObject("ADODB.Connection")
DB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=D:\DB\Mar05.mdb"
DB.Open
Set cmd = Server.CreateObject("ADODB.Command")
Set rs = Server.CreateObject("ADODB.Recordset")
cmd.CommandText = "SELECT DISTINCT tablename FROM t_tablenames"
cmd.ActiveConnection = DB
Set rs = cmd.Execute
%>
<%
Do while not rs.EOF
If Request.Form("tblName") = rs("tablename") then
Response.Write "<OPTION VALUE = '" & rs("tablename") & "' SELECTED>"
Response.Write rs("tablename") & "</Option>"
rs.MoveNext
else
Response.Write "<OPTION VALUE = '" & rs ("tablename") & "'>"
Response.Write rs("tablename") & "</Option>"
rs.MoveNext
end if
loop
%>
</SELECT>
<br>
<p><b>Select the date range: <input type="textbox" name=dateOne>
<script language='javascript'>
<!--
if (!document.layers) {
document.write("<input type=button onclick='popUpCalendar(this, Form1.dateOne, \"dd-mmm-yyyy\")' value='select' style='font-size:11px'>")
}
//-->
</script>
To: <input type="textbox" name=dateTwo>
<script language='javascript'>
<!--
if (!document.layers) {
document.write("<input type=button onclick='popUpCalendar(this, Form1.dateTwo, \"dd-mmm-yyyy\")' value='select' style='font-size:11px'>")
}
//-->
</script>
<input type="submit" value="View" name=submit>
</form>
<%
If Request.Form("submit") = "View" Then
cmd.CommandText = "SELECT * FROM " & Request.Form("tblName") & " WHERE reportdate BETWEEN " & Request.Form("dateOne") & " AND " & Request.Form("dateTwo");"
cmd.ActiveConnection = DB
Set rs = cmd.Execute
%>
<% Response.Write cmd.CommandText %>
<p>You have selected : <b><%=Request.Form("tblName") %></b></p>
<table border="1" width="50%" cellpadding="0" cellspacing="0"
<tr>
<% for each x in rs.Fields
Response.Write("<th>" & x.name & "</th>")
Next %>
</tr>
<% do until rs.EOF %>
<tr>
<% for each x in rs.Fields %>
<td><% Response.Write(x.value) %></td>
<% Next
rs.MoveNext %>
</tr>
<% Loop
End If
%>
* Love me for a reason; Let the reason be love *
Error Type: (0x80040E10)
Erm. I have already checked with my SQL statement & did all kinds of correcting it but it still creates the error message. What did I do wrong actually? I welcome all opinions, remarks & answers. Gracias. 