Code:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
<%@ Language = VBscript %>
<%
'Get variables from the querystring
Item_ID = Request.Querystring("Item_ID")
SQLRPT="select * from Item where item_ID = " & Item_ID
set conndb = server.createobject("ADODB.Connection")
conndb.open "SQLStore"
set VNR=conndb.execute(SQLRPT)
%>
<%
'Get variables from the querystring
Item_ID = Request.Querystring("Item_ID")
SQLRPT="select Item_type from Item where item_ID = " & Item_ID
set conndb = server.createobject("ADODB.Connection")
conndb.open "SQLStore"
set Itype=conndb.execute(SQLRPT)
%>
<HTML>
<HEAD>
<TITLE><%=VNR(7)%>: <%=VNR(1)%></TITLE>
</HEAD>
<BODY bgcolor="white" text="black">
<p>
<form method="get" action="Product change.asp">
Unique ID: <%=VNR(0)%><BR>
<p>Catagory <br>
<%
SQLRPT="SELECT distinct Item_type from item"
set conndb = server.createobject("ADODB.Connection")
conndb.open "SQLStore"
set rptSet=conndb.execute(SQLRPT)
%>
<select name="Type" >
<% 'Loop through the recordset to make each entry in the list. %>
<Option value = ""></Option>
<% do while not rptSet.eof %>
<% if Itype(0) = rptSet(0) then %>
<Option value = "<%=rptSet(0)%>" selected><%=rptSet(0)%> </Option>
<% else %>
<Option value = "<%=rptSet(0)%>"><%=rptSet(0)%> </Option>
<% end if %>
<%rptSet.movenext
loop%>
</select>
<br>
<br>
Item Name:<br>
<input name="textfield" type="text" size="80" value=<%=VNR(1)%>>
<br>
</p>
<p>Item Discription:</p>
<input name="txtdisc" type="text" size="80" value=<%=VNR(2)%>>
<p><br>
Price:
<input name="txtprice" type="text" value=<%= VNR(3) %> >
</p>
<p> </p>
<p>
<input type="submit" name="Submit" value="Submit">
</p>
</form>
<p>
<%=VNR(1)%>
<BR><br>
<%=VNR(2)%>
</BODY>
</HTML>
it only loads the first word into the text boxes, if i use a text area it does all the text, but i cant get it to upload it, i need them to be added to the arguments.