
22/01/2002, 10:56
|
| | Fecha de Ingreso: enero-2002 Ubicación: Bogotá
Mensajes: 438
Antigüedad: 23 años, 2 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. |