Type mismatch: '[undefined]'

[ivantxo_69]

Hola gente

Nose porque me da este error:
Microsoft VBScript runtime error '800a000d'

Type mismatch: '[undefined]'

/codigo5.asp, line 39


este es e codigo asociado,
strcon = "driver={MySQL ODBC 3.51
Driver};server=localhost;uid=ODBC;pwd=;database=te st;option=16387"
Set rs = Server.CreateObject("ADODB.Connection")
rs.ConnectionTimeout=280
rs.CommandTimeout=60
rs.Open strcon

num = eval(scodigo) *** linea 39***
response.write(textos)
texto=textos

Gracias otravez

[Avelar]

Según yo la función eval no es de VBScript.

Claro, puedo equivocarme pero estoy casi seguro que no lo es.

¿La has usado antes con VBScript?

[AlZuwaga]

FUNCTION: Eval() Implemented in version 5.0

Ahora, por qué da error?... ni idea con el código que nos muestra ivantxo_69.

Qué es scodigo? O... qué contiene?

[ivantxo_69]

scodigo es una variable, eval nunca lo he usado pero ahora me hace falta, quiero pasar una variable de texto a numerica por eso la pongo, ahi teneis todo el codigo:

dim num
dim scodigo
dim textos
dim numdos
dim strcon
dim rs
dim x
Request.ServerVariables("QUERY_STRING")
scodigo= request.QueryString("textcodigo")
textos= request.QueryString("texto")
response.Write(scodigo)
Server.ScriptTimeout=200


strcon = "driver={MySQL ODBC 3.51 Driver};server=localhost;uid=ODBC;pwd=;database=te st;option=16387"
Set rs = Server.CreateObject("ADODB.Connection")
rs.ConnectionTimeout=280
rs.CommandTimeout=60
rs.Open strcon


response.write(textos)
texto=textos
%>





</p><table width="75%" border="1"><%
if scodigo <> 0 then
%>
<script language="JavaScript" type="text/JavaScript">
alert("llega1")
</script>

<%
for x=1 to 8
scon=(scodigo&x&"")

response.Write("<tr><td><strong>numero</strong>:"&scon&"</td>")
z=0
%>
<script language="JavaScript" type="text/JavaScript">
alert("llega")
</script>
<%
while not rs.eof
scon = eval(scon)
if scon = rs("codigo") then
if x=1 then
response.Write("<td><strong>primera</strong>:"&rs("primera")&"</td>")
response.Write("<td><strong>segunda</strong>:"&rs("segunda")& "</td>")
txt1=rs("primera")
txt2=rs("segunda")
end if
if x=2 then
response.Write("<td><strong>primera</strong>:"&rs("primera")&"</td>")
response.Write("<td><strong>segunda</strong>:"&rs("segunda")& "</td>")
txt3=rs("primera")
txt4=rs("segunda")
end if
if x=3 then
response.Write("<td><strong>primera</strong>:"&rs("primera")&"</td>")
response.Write("<td><strong>segunda</strong>:"&rs("segunda")& "</td>")
txt5=rs("primera")
txt6=rs("segunda")
end if
.............

[masterboy6666]

Hola para transformar los tipos utiliza de string a numerica
dim numeric
dim string="12"
numeric=cint(string)


espero que te ayude