Hi,
I have a form, code below, that contains 4 text inputs and 1 submit input. When the form is submitted the text in the inputs disappears.
Is there a way to keep the inputted text in the boxes after submitting?
Thanks,
Al.
Code:Sub CreateForm() With Response .Write "<H1 align=center>Transfer Inventory</H2>" .Write "<H2 align=center><a href=w2b.html>Back to Main Menu</a></H3>" .Write "<FORM METHOD=POST>" .Write "<BODY BGCOLOR=#C0C0C0 TEXT=#000000 VLINK=#FF00FF>" .Write "<FONT FACE=Arial>" .Write "<CENTER>" .Write "<B>Item Code</B> " .Write "<Input Type=Text Size=20 Name=Item_Code></input> " .Write "<B>Quantity</B> " .Write "<Input Type=Text Size=5 Name=Quantity></input> " .Write "<B>From Warehouse</B> " .Write "<Input Type=Text Size=3 Name=From_Whse></Input> " .Write "<B>To Warehouse</B> " .Write "<Input Type=Text Size=3 Name=To_Whse></Input> <BR><BR><BR>" .Write "<Input Type=Submit Value=OK></Input><BR><BR>" End With SendData End Sub




Reply With Quote