Mi aiutate?

[elpablo]

Salve ho un piccolo intoppo su uno script in asp che mi consente di prelevare da una descrizione il prezzo del prodotto. Ovviamento il problema è che ho creato tale funzione usando il metodo GET e non POST e quindi ora ho un problema x creare una funzione che attraverso il pulsante submit mi faccia upgradare i dati del form nel database. Come posso fare ? Vi posto il codice così magari qualcuno lo può aggiornare con uno script aggiuntivo a questa funzione già creata da me e soprariportata.
-----------------------------
<%
Dim str_cn
str_cn="Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & Server.MapPath("extra.mdb")
dim objconn
set objconn=Server.CreateObject("ADODB.Connection")
objconn.Open str_cn
set objrs=Server.CreateObject("ADODB.Recordset")
objrs.Open "Select descrizione from ordinazioni",objconn
objrs.MoveFirst
%>
<form id="form1" action="combobox.asp" runat="Server" method="Get">
<p>
<input name="text" type="text" value="<%=Date()%>">
<select name="camera">
<option value="101">101</option>
</select>
</p>
<p>
<Select name="elenco1" OnChange="submit()" runat="Server">
<%
While not objrs.Eof
if Request.queryString("elenco1")<>"" and Request.QueryString("elenco1")=Objrs.Fields.Item("Descrizione").value then
%>
<option value="<%=(objrs.Fields.Item("Descrizione").Value)%>" selected="True"><%=(objrs.Fields.Item("Descrizione").Value)%></Option>
<%
else
%>
<option value="<%=(objrs.Fields.Item("Descrizione").Value)%>"><%=(objrs.Fields.Item("Descrizione").Value)%></Option>
<%
end if
%>
<%
objrs.MoveNext
Wend
%>
</Select>
<%
objrs.close()
objconn.close()
%>
<%
if Request.QueryString("elenco1")<>"" then

dim objrs1
str_cn="Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & Server.MapPath("extra.mdb")
set objconn=Server.CreateObject("ADODB.Connection")
objconn.Open str_cn
set Objrs1=Server.CreateObject("ADODB.Recordset")
dim istruzionesql
istruzionesql="Select prezzo from ordinazioni where descrizione=" & "'" & Request.QueryString("elenco1") & "'"
objrs1.Open istruzionesql,objconn
%>
<BR>
<B>PREZZO IN €:</B>
<INPUT TYPE="Text" size="20" Value="<%=(objrs1.Fields.Item("prezzo").value)%>" />
<%
end if
%>
</p>
<p>&nbsp;</p>
<p>&nbsp; </p>
</form>
-----------------------------------------