Consulta y yista de campos no encontrados

[erika]

Los datos son enviados a traves de un formulario desde un campo de texto. Luego al recibir los datos del campo de texo, realizo un split:
Dim palabras
palabras = Split(Request.Form("codigo"),VBCrLf)

Luego comienza la consulta:

Dim cnn
Dim rssRubro
Dim strrSql
Dim II
Dim criterios
For II = 0 To UBound(palabras)
strrDsn = "yorma"
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.open strrDsn
Set rssRubro = Server.CreateObject("ADODB.recordset")
criterios = "Codigointerno = '" & palabras(II) & "'"
strrSql = "Select * From Producto WHERE " & criterios & " "
rssRubro.open strrSql , cnn
while Not rssRubro.eof

Luego comienza a armarse la tabla para mostrar los datos:

<table width="75%" border="2" align="center" cellpadding="6" cellspacing="6" bordercolor="#000000">
<tr bordercolor="#0066FF">
<td width="191" bordercolor="#00CCFF">
<div align="center">
<img src="../Tools/images/Catalogo/<%=rssRubro.fields("Imagen")%>" border="0" alt="Ver Ampliada" width="160" align="top">
</a>
</div>
</td>
<td width="517" height="150" valign="middle" bordercolor="#00CCFF">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="70">
<tr>
<td valign="top" align="left" width="30%" height="8">
<div align="center">
<font color="#000000" size="3" face="Verdana, Arial, Helvetica, sans-serif">
<b>Nombre:</b></font>
</div>
</td>
<td width="70%" height="8" >
<div align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="3" color="#FF0000">
<%=rssRubro.fields("Nombre")%></font></b></div>
</td>
</tr>
<% If rssRubro.fields("Descripcion") <> "" then%>
<tr>
<td valign="top" align="left" width="30%">&nbsp; </td>
<td width="70%" ><b><font face="Verdana, Arial, Helvetica, sans-serif" size="3" color="#000000">
<%=rssRubro.fields("Descripcion")%></font></b>
</td>
</tr>
<% End If
If rssRubro.fields("Codigointerno") <> "" then%>
<tr>
<td width="21%" width="30%" height="3">
<div align="center"><b>
<font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">
C&oacute;digo interno:</font></b></div>
</td>
<td class= width="79%" width="70%" height="3"><b>
<font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<%=rssRubro.fields("Codigointerno")%>
</font>
</b>
</td>
</tr>
<%End If%>
<tr>
<td height="2" width="30%"><font color="#F5F5F5">.</font></td>
<td align="right" height="2" width="70%">
<p><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000">
<a href="../Carrito/CatalogoCarrito.asp?Id=<% =rssRubro.fields("idproducto")%>">
<img src="../images/agregar.gif" border="0" width="64" height="27">
</a>
</font></p>
</td>
</tr>
</table>
</td>
</tr>

<td width="191" bordercolor="1" height="2"></td>
</tr>
</table>

<%
rssRubro.movenext
wend
cnn.close
Set rssRubro = nothing
Set cnn = nothing
Next
%>

Espero que estos datos te sirvan. Saludos, Erika.