Turca te agradezco mucho por tu ayuda, utilicé finalmente la función Split y pude generar la consulta sin problemas.
Dejo más abajo un detalle del codigo que usé por si a alguien le es útil.
Recogo los datos del formulario
<%
If Request.Form("codigo")<>"" then
Dim cod
cod = Split(request.form("codigo"),VBCrLf)
%>
Luego hago la conexion a la base de datos y comienzo a tomar los datos del array para la consulta.
<% For i = LBound(cod) To UBound(cod)
Dim cadena
cadena = (cod(i))
Set cn = Server.CreateObject("ADODB.Connection")
cn.open strDsn
Set rsRubro = Server.CreateObject("ADODB.recordset")
strSql = "Select IdProducto, Codigo, Codigointerno, Nombre, Descripcion, Medidas, Precio1, Precio2, Imagen, Imagen2, Imagen3, Cantidadxbulto From Producto WHERE Codigointerno = '" & cadena & "' "
rsRubro.open strSql , cn
while Not rsRubro.eof
%>
Muestro los datos que necesito de la consulta y me muevo al siguiente registro pedido hasta terminar de leer el array, y luego cierro la conexion.
<%
rsRubro.movenext
wend
cn.close
Set rsRubro = nothing
Set cn = nothing
next
%>
Saludos y Gracias!!
