Ver Mensaje Individual
  #1 (permalink)  
Antiguo 22/01/2002, 10:56
emont
 
Fecha de Ingreso: enero-2002
Ubicación: Bogotá
Mensajes: 438
Antigüedad: 22 años, 4 meses
Puntos: 2
Problemas con información de un campo

Tengo el siguiente problema, desde un combo de una pagina "A" paso la información a otra "B", el campo en la base de datos es tipo caracter de 30 y pareciera que lo toma como númerico:
codigo pagina "A":
<%
set rs_busca=conn.Execute(sql1)
while not rs_busca.eof
%>
<OPTION value="<%=rs_busca("serie")%> "><%=rs_busca("serie")%>&l t;/OPTION>
<%
rs_busca.MoveNext
wend
rs_busca.Close

el codigo de la pagina "B" es:

bserie=Request.Form("serie")
sql="select h.*, w.*"
sql=sql& " from hard_local h, hardware w where h.host = w.host"
'la linea a continuación se coloca en comentario debido al ultimo
'where del sql.sql=sql& " where h.host = w.host and h.marca = m.codigo and h.tipo = t.tipo and w.usuario=u.codigo"
'sql=sql& " where "
if session("tipo")<> "S" then
sql=sql+" and w.interfaceu = " &session("interfaceu")
end if
if bserie<>0 then
sql=sql& " and h.serie ='"&bserie&"'"
end if

if bhost<>0 then
sql=sql& " and h.host ="&bhost
end if
if bmarca<>0 then
sql=sql& " and h.marca="&bmarca
end if
if btipo<>0 then
sql=sql& " and h.tipo ="&btipo
end if
sql=sql& " order by h.host"
set conn=server.CreateObject("ADODB.Connection&qu ot;)
conn.Open Application("Connection2_ConnectionString&quo t;)
set rs_consulta=conn.Execute(sql)

El codigo funciona como esta, sin embargo, cuando se trae una serie con alfanumericos no funciona de forma correcta sacando el siguiente mensaje:

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'bserie'

/webfac/compohari_c1.asp, line 23

cuya linea corresponde a :
if bserie<>0 then...

Como puedo hacer para solucionar este problema?
Agradezco la ayuda que me puedan brindar.