How to add extra input box in the same form when the button is clicked??

yimma216

I hava a form, which has five lines to enter at start. I want to have a button to add more lines when it is clicked. However, I am having trouble with it. This is written in vbscipt and ADO.

Expand|Select|Wrap|Line Numbers

  
<%

Const linesNo = 5

Dim counter
 
<html>

.....
 
<form action='return_form.asp' method=post>

<input type=hidden name='task' value='add'>

<table>

.....
 
<%

if request("task")="lines" then

     linesNo = linesNo + 5

     response.write "return_forms.asp"     

end if 
 
counter = 0

Do While counter < linesNo

%>
 
<tr>

<td  width=20%><input type=text size="20" maxlength="30" name='part_no_<%=counter%>' value='<%=request("part_no_")%>'/></td>

</tr>
 
<%

counter = counter + 1

Loop    

%>
 
<tr>

<td width=20%><form action='return_form.asp' method=post><input type=hidden name='task' value='lines'>

<input type=submit name='lines' value='Add Lines'></td>

</tr>
 
......................(some codes)

<tr>

<td></td>&nbsp;<td><input type=submit value="Save & Print"></td>

</tr>
 
</table>
 
</form>

Thanks

DrBunchman

Hi yimma216,

What actually happens when you run this? Does it error?

I think the problem is probably that you have two form opening tags and only one form closing tag. Make sure that both of your forms are closed correctly if you did intend to have two of them on your page.

Also you have two hidden variables called 'task' both with different values which I think is probably passing the wrong value to Request("task"). You can debug this by checking the value with a Response.Write Request("task") just before you test whether it's value is equal to "lines".

Take a look at these points and let me know how you get on.

Dr B

yimma216

yes, there is a problem in the code. I found out i could not use nested form in html. Is moving on now.

yimma216

hi Dr,

I have fixed the problem you mentioned and got some other advices.
However, when I tried to run the code, the application timed out.

Expand|Select|Wrap|Line Numbers

 
<%

Dim linesNo 

Dim counter
 
'default value for the input

linesNo = 5
 
Set conn = Server.CreateObject("ADODB.Connection")

Set cmd = Server.CreateObject("ADODB.Command")

Set cmd2 = Server.CreateObject("ADODB.Command")

..................etc 
 
'form submit button was clicked

If request("save")<>"" Then

conn.Open  "Driver={SQL Native Client};Server=cslproxy;database=gra;Trusted_Connection=yes;"
 
counter = 0
 
      Set cmd.ActiveConnection = conn

      cmd.CommandText = "add_goods"

      cmd.CommandType = 4

      cmd.Parameters.Refresh

      ...............etc

      set rs = cmd.execute
 
Do While counter < request("lines") 

    If request("part_no_"&counter) <> "" then

      Set cmd2.ActiveConnection = conn

      cmd2.CommandText = "add_parts"

      cmd2.CommandType = 4

      cmd2.Parameters.Refresh

      cmd2.Parameters("@gra_id") =  rs(0)

    .......................etc

       cmd2.execute

    End If 

    counter = counter + 1

Loop
 
response.redirect "print_out.asp?gra_id=" & rs(0)

rs.close

conn.close

else
 
' form submit wasn't clicked...

        ' we had a hidden lines value

        if request("lines")<>"" then

            ' populate linesNo with that value

            linesNo = request("lines")

            ' Add Lines submit button was clicked

            if request("addLines")<>"" then

                ' so add five to current lines value

                linesNo = linesNo + 5

                'response.write vbcrlf & linesNo

            end if

        end if
 
%>

<html>

<head></head>

<body>

...............................etc
 
<form action='return_form.asp' method=post>

<input type=hidden name='lines' value='<%=linesNo%>'>

........etc
 
<table>

  <tr>

    <td width=20%>Part No</td><td  width=40% colspan=2>Description</td></td><td width=20%>Quantity</td>

  </tr>
 
<%    

counter = 0

Do While counter < linesNo

%>
 
  <tr>

      <td  width=20%><input type=text size="20" maxlength="30" name='part_no_<%=counter%>' value='<%=request("part_no_"&counter)%>'/></td><td  width=40% colspan=2><input type=text size='70' maxlength='100' name='desc_<%=counter%>' value='<%=request("desc_"&counter)%>' /></td><td><input type=text size="5" maxlength="10" name='quantity_<%=counter%>' value='<%=request("quantity_"&counter)%>' /></td>        

  </tr>
 
 <%

 counter = counter + 1

  Loop

 %>
 
<tr>

  <td width=20%><input type=submit name='addLines' value='Add Lines'></td>

</tr>

</table>

........................etc
 
  <tr>

     <td></td>&nbsp;<td><input type=submit name="save" value="Save & Print"></td>

  </tr>
 
</table>
 
</form>
 
<%

conn.close

End if
 
%>

</body>

</html>

yimma216

Quote:

Originally Posted by yimma216

Expand|Select|Wrap|Line Numbers

  
Do While counter < request("lines") 

    If request("part_no_"&counter) <> "" then

      Set cmd2.ActiveConnection = conn

      cmd2.CommandText = "add_parts"

      cmd2.CommandType = 4

      cmd2.Parameters.Refresh

      cmd2.Parameters("@gra_id") =  rs(0)

    .......................etc

       cmd2.execute

    End If 

    counter = counter + 1

Loop

I am suspecting the counter < request("lines").
But do not know how to refine the code

jhardman

When I get scripts timing out, I go back and check through my loops. change them one at a time to one shot statements (in other words, make them not loop) and that will usually tell me which loop is at fault. That said, as long as the loop advances (and you have a counter = counter + 1 line) the only time I have this problem is if I have an error on my page and a "on error ..." error handler which keeps the page moving despite the error. Try commenting out your error handler to see what is really going on.

Jared

yimma216

Quote:

Originally Posted by jhardman

When I get scripts timing out, I go back and check through my loops. change them one at a time to one shot statements (in other words, make them not loop) and that will usually tell me which loop is at fault. That said, as long as the loop advances (and you have a counter = counter + 1 line) the only time I have this problem is if I have an error on my page and a "on error ..." error handler which keeps the page moving despite the error. Try commenting out your error handler to see what is really going on.

Jared

Thank you Jared.
The mistakes were the request("lines") - (someone told me). I tried casting that to integer and the system seems to be happy now.

How to add extra input box in the same form when the button is clicked??

re: How to add extra input box in the same form when the button is clicked??

re: How to add extra input box in the same form when the button is clicked??

re: How to add extra input box in the same form when the button is clicked??

re: How to add extra input box in the same form when the button is clicked??

re: How to add extra input box in the same form when the button is clicked??

re: How to add extra input box in the same form when the button is clicked??

Similar ASP / Active Server Pages bytes

/bytes/development

/bytes/it

/bytes/about