Ivan Sammut
14-Jan-2006, 07:55 AM
Hi I am trying to create a form which display details about my users. The screen consists of 2 textboxes & 2 buttons (Next - Previous) whiuch scan thru my records. My problem currently is that I have to click twice on my buttons before the record goes to the next or previous record. Here is my code, could you pls tell me what I'm doing wrong.
<%
RecId = request("RecId")
%>
<html>
<body>
<!-- #INCLUDE FILE="inc/SetChangedStates-script.inc" -->
<!-- #INCLUDE FILE="inc/ddValue_Constants.inc" -->
<% ' DebugMode =1 ' uncomment this for page get/post debug help %>
<!-- #INCLUDE FILE="inc/DebugHelp.inc" -->
<form action="oUser.asp" method="POST" onsubmit="SetChangedState(this)">
<table width="75%" border="1">
<tr>
<td width="20%"><font face="Verdana, Arial, Helvetica, sans-serif">Login :</font></td>
<td width="80%" Class="Data"><%=oUser.DDValue("Users.Loginname",DDForm)%></td>
</tr>
<tr>
<td><font face="Verdana, Arial, Helvetica, sans-serif">Full Name :</font></td>
<td Class="Data"><%=oUser.DDValue("Users.Full_name",DDForm)%></td>
</tr>
</table>
<input name="findnext" type="submit" id="findnext" value=">" />
<input name="findprev" type="submit" id="findprev" value="<" />
</form>
<%
If RecId <> "" Then
Err = oUser.RequestFindbyRecId( "Users", RecId)
else
Err = oUser.RequestClear("Users",1)
End if
If request("Request_method")="POST" then
if Request("findnext")<>"" then oErr = oUser.RequestFind("Users",1,GT)
if Request("findprev")<>"" then oErr = oUser.RequestFind("Users",1,LT)
end if
%>
</body>
</html>
The code marked in red is what I think its not working.
Thanks
Ivan
<%
RecId = request("RecId")
%>
<html>
<body>
<!-- #INCLUDE FILE="inc/SetChangedStates-script.inc" -->
<!-- #INCLUDE FILE="inc/ddValue_Constants.inc" -->
<% ' DebugMode =1 ' uncomment this for page get/post debug help %>
<!-- #INCLUDE FILE="inc/DebugHelp.inc" -->
<form action="oUser.asp" method="POST" onsubmit="SetChangedState(this)">
<table width="75%" border="1">
<tr>
<td width="20%"><font face="Verdana, Arial, Helvetica, sans-serif">Login :</font></td>
<td width="80%" Class="Data"><%=oUser.DDValue("Users.Loginname",DDForm)%></td>
</tr>
<tr>
<td><font face="Verdana, Arial, Helvetica, sans-serif">Full Name :</font></td>
<td Class="Data"><%=oUser.DDValue("Users.Full_name",DDForm)%></td>
</tr>
</table>
<input name="findnext" type="submit" id="findnext" value=">" />
<input name="findprev" type="submit" id="findprev" value="<" />
</form>
<%
If RecId <> "" Then
Err = oUser.RequestFindbyRecId( "Users", RecId)
else
Err = oUser.RequestClear("Users",1)
End if
If request("Request_method")="POST" then
if Request("findnext")<>"" then oErr = oUser.RequestFind("Users",1,GT)
if Request("findprev")<>"" then oErr = oUser.RequestFind("Users",1,LT)
end if
%>
</body>
</html>
The code marked in red is what I think its not working.
Thanks
Ivan