How i distingue submitting forms

Question

Good Afternoon
I am suffering has some days here trying to make a way to
solv a problem that I am having with forms in the creation of a
page where i will sell bikinis. The page will go to present to the
user a bikini and the user will be able to select the part from
above of the bikini (top) or the part of low (bottom) and still
will go to choose the color, size and the amount from an selection
list and i am stuck here in which way i will send these data for
one another page where i will have a supply conference. To have an
idea of what I am speaking . Have a look at in this link:
http://www.catvi.com.br/ch_detalhespraia20.asp?nome_biquini=Biquini%20Calina
I cant figure it out how i will filter this data sended by
the correct user selection...
Have a look in my code, im using the repeat region in the
list/menus:
<form name="add_produto" id="add_produto" method="post"
action="addtocart.asp?ref_number=<%=(rsPresult.Fields.Item("ref_number").Value)%>"
>
<p> </p>
<table width="770" border="0" cellpadding="0"
cellspacing="0">
<tr>
<td colspan="2"
valign="middle"><p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p></td>
<td valign="top" >
<%
While ((Repeat2__numRows <> 0) AND (NOT rsPresult.EOF))
%>
<%
ref_number = rsPresult.Fields.Item("ref_number").Value
image = rsPresult.Fields.Item("image_path").Value
nome = rsPresult.Fields.Item("nome_biquini").Value
%>
<%
Dim rsCor__MMColParam
rsCor__MMColParam = "1"
if (ref_number <> "") then rsCor__MMColParam =
ref_number
%>
<%
Dim rsCor
Dim rsCor_cmd
Dim rsCor_numRows
Set rsCor_cmd = Server.CreateObject ("ADODB.Command")
rsCor_cmd.ActiveConnection = MM_catvi_STRING
rsCor_cmd.CommandText = "SELECT DISTINCT Cores.Cor,
Cores.Fotoscoresmaior, Cores.Fotothumbs, prod_biquinis.ID,
prod_biquinis.nome_biquini, prod_biquinis.ref_number FROM Cores
INNER JOIN prod_biquinis ON Cores.ID = prod_biquinis.ID WHERE
ref_number LIKE ? ORDER BY Cor ASC"
rsCor_cmd.Prepared = true
rsCor_cmd.Parameters.Append
rsCor_cmd.CreateParameter("param1", 200, 1, 255, rsCor__MMColParam)
' adVarChar
Set rsCor = rsCor_cmd.Execute
rsCor_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rsCor_numRows = rsCor_numRows + Repeat1__numRows
%><p align="left"><span class="style5">
<span class="style65"><img src="catvi/images/flecha_.gif"
width="8" height="13" /></span><span
class="style56"><%=(rsPresult.Fields.Item("nome_produto").Value)%></span></span>
<br />
<span class="style32"><br />
N&uacute;mero de refer&ecirc;ncia: 
<%=(rsPresult.Fields.Item("ref_number").Value)%></span><br
/>
<span
class="style3"><%=(rsPresult.Fields.Item("descr_detalhada").Value)%></span><br
/>
<br />
<select name="menutamanho" class="style3"
onmouseover="MM_showHideLayers('tamanhos','','show')"
onmouseout="MM_showHideLayers('tamanhos','','hide')">
<option value="0">Tamanhos</option>
<option value="P">P</option>
<option value="M">M</option>
<option value="G">G</option>
<option value="GG">GG</option>
</select>
<span class="style32"
onmouseover="MM_showHideLayers('tamanhos','','show','tamanhos1','','hide')"
onmouseout="MM_showHideLayers('tamanhos','','hide','tamanhos1','','hide')"> </span>
<select name="corlist" class="style3"
title="<%=(rsCor.Fields.Item("Cor").Value)%>">
<option value="0">cor</option>
<%
While (NOT rsCor.EOF)
%><option
value="<%=(rsCor.Fields.Item("Cor").Value)%>"><%=(rsCor.Fields.Item("Cor").Value)%></opti on>
<%
rsCor.MoveNext()
Wend
If (rsCor.CursorType > 0) Then
rsCor.MoveFirst
Else
rsCor.Requery
End If
%>
</select>
<select
name="Qty<%=(rsPresult.Fields.Item("ref_number").Value)%>"
size="1" class="style3"
id="Qty<%=(rsPresult.Fields.Item("ref_number").Value)%>">
<option value="0"
selected="selected">Quantidade</option>
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
</select>
<br />
<br />
<%
While ((Repeat1__numRows <> 0) AND (NOT rsCor.EOF))
%>
<%if
Instr(Request.ServerVariables("HTTP_USER_AGENT"),"Opera") = 0
Then%>
.value)%>',168,0,148,0);MM_showHideLayers('fotocor','','show');return
document.MM_returnValue"
onmouseout="MM_showHideLayers('fotocor','','hide')"
target=_new><img
src="<%=(rsCor.Fields.Item("Fotothumbs").Value)%>"
border="0">
<%else%>
.value)%>',145,0,124,0);MM_showHideLayers('fotocoropera','','show');return
document.MM_returnValue"
onmouseout="MM_showHideLayers('fotocoropera','','hide')"
target=_new><img
src="<%=(rsCor.Fields.Item("Fotothumbs").Value)%>"
border="0">
<%End If%>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsCor.MoveNext()
Wend
%>
</p>
<p align="left" class="style3"> <span
class="style54">  </span><span
class="style31">Pre&ccedil;o :</span><%=
FormatCurrency((rsPresult.Fields.Item("preco").Value), 2, -2, -2,
-2) %></p>
<%
Repeat2__index=Repeat2__index+1
Repeat2__numRows=Repeat2__numRows-1
rsPresult.MoveNext()
Wend
%>
<p>  Clique aqui para ver
tamanho</p>
<p class="style3"><img src="addtobag.gif"
width="280" height="40" border="0" /></p>
<p align="left" class="style3"><img
src="/catvi/images/btn_indique.gif" alt="Indique esta
p&aacute;gina para um amigo" width="247" height="40" border="0"
/></p>
<p align="left"
class="style3"> </p></td>
</tr>
<tr>
<td width="294" height="25"><div
align="center"><span class="style3"><span
class="style31">
<td width="2"></td>
<td></td>
</tr>
</table>
</form>
In the next page i was trying to filter the data using this
recordset:
<%
Dim rsqtidade
Dim rsqtidade_cmd
Dim rsqtidade_numRows
Set rsqtidade_cmd = Server.CreateObject ("ADODB.Command")
rsqtidade_cmd.ActiveConnection = MM_catvi_STRING
rsqtidade_cmd.CommandText = "SELECT ID, nome_biquini,
nome_produto, ref_number, Estoque, Cor, Tamanho, ProductDetailID,
peso_item, preco FROM QryEstoqueBiquini WHERE ref_number in ("
& Request.Form("ref_number") & ") AND Tamanho LIKE '" &
Request.Form("menutamanho") & "' AND Cor LIKE '" &
Request.Form("corlist") & "'"
rsqtidade_cmd.Prepared = true
Set rsqtidade = rsqtidade_cmd.Execute
rsqtidade_numRows = 0
%>
Unhappily give the error:
ADODB.Field error '800a0bcd'
Either BOF or EOF is True, or the current record has been
deleted. Requested operation requires a current record.
/addtocart.asp, line 32
After some days trying something in sql i percept that this
what im trying to do will no have a solution, So im asking here for
help to give a way, I until I would obtain to make to function ce
in the page of election of bikini I I used two separate
formularios, but i falls in the problem of that if the user that to
want to buy the complete bikini will have to buy from above part
and later the part of low, would like to have a skill so that the
user could decide what it wants to buy.
and sorry by my english guy
Hope in find a solution
Cause in here Brazil no one forum here could help me, u are
my last hope
Ty
No more
Fábio

Answer 1

Dear Aamir,
Please copy TNSNAMES.ORA file from your Database Home/NETWORK/ADMIN directory and copy that in NETWORK/ADMIN directory where you installed Forms/Reports 6i. then you can connect to your server by using SID as host string like: system/manager@<SID example: ORCL>
Regards,
Reza