QUE NADIE LO HA HECHO ALGUNA VEZ????
Publicado por Esmeralda (60 intervenciones) el 29/08/2001 01:08:22
ESTE ES EL CODIGO,SOLO QUIERO QUE AL ELEJIR UN PRODUCTO ME TRAIGA EL PRECIO EN LA CAJA DE TEXTO ES TODO LO QUE QUIERO,LAFUNCIONES IMPORTANTES SON AGREGAS Y TRAEPRECIO,GRACIAS.
<%@ language=VBScript %>
<%
Dim Conexion,Tabla,sql
Set Conexion=Server.CreateObject("adodb.connection")
Set Tabla=Server.CreateObject("adodb.recordset")
Conexion.Open "productos2"
'Conexion.Open "DBQ=" & Server.Mappath("productos2.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
</script>
</head>
<body text="#000000" bgcolor="#FFFFFF">
<%
Dim Lista1,idlista,id,id2
id = 0
id2 = 0
if IsObject(Session("lista1")) then
' Response.write("aqui esta el error")
else
' Response.write("aqui esta el error")
set lista1 = Server.CreateObject("scripting.dictionary")
end if
%>
<%
if IsO
<%@ language=VBScript %>
<%
Dim Conexion,Tabla,sql
Set Conexion=Server.CreateObject("adodb.connection")
Set Tabla=Server.CreateObject("adodb.recordset")
Conexion.Open "productos2"
'Conexion.Open "DBQ=" & Server.Mappath("productos2.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
</script>
</head>
<body text="#000000" bgcolor="#FFFFFF">
<%
Dim Lista1,idlista,id,id2
id = 0
id2 = 0
if IsObject(Session("lista1")) then
' Response.write("aqui esta el error")
else
' Response.write("aqui esta el error")
set lista1 = Server.CreateObject("scripting.dictionary")
end if
%>
<%
if IsO
Valora esta pregunta
0