(DUDA principiante) importar resultados de una pagina ASP en una pag html

ARAPSPGON · #1 (**permalink**) 13/02/2008, 16:53

Buenas tengo una duda de como se puede hacer lo siguiente(si se puede) . en el caso de que no se pueda como se tendría que hacer:

la cuestión es que he hecho una pagina con extension html en donde te hace una conversion de monedas(dolares, pesetas, euros) segun lo que se elija y tambien con un input de tipo text para introducir la cantidad y al apretar el boton conversion quiero que salga el resultado en la misma pagina html importando el resultado procesado de una pagina asp que procesará las variables.
¿esto se puede hacer?si se puede ...como?...en el caso que tenga que ser a la fuerza la pag html tambien con extensión asp...como hago para , a la hora de dar en el boton conversion SOLO se cambien los contenidos que deben ser dinamicos

para que os hagais una idea de como es la estructura de la pagina html poned el codigo html que pongo en el dreamweaver para que veais mejor mi duda

Código:

<html>
<head>
<title>Conversor</title>
</head>
<body bgcolor="#CCCC66">

<center>
<b><u>
<font color="#000066" size="+2" face="Arial, Helvetica, sans-serif">
CAMBIO DE MONEDA
</font>
</u></b>
</center><br>

<FORM action="/scripts/ejemplos/1practicafinal.asp" method="POST">
<table width="543" height="58" border="0" align="center">
  <tr>
    <td width="267"><b>
    <div align="rigth"><font color="#0000CC" size="-1" face="Arial, Helvetica, sans-serif">Moneda Origen</font> &nbsp;</div></b></td>
    <td width="266"><b>
    <div align="rigth"><font color="#0000CC" size="-1" face="Arial, Helvetica, sans-serif">Moneda Destino</font>&nbsp;</div></b></td>
  </tr>
  <tr>
    <td>
	<div align="rigth">
	<select name="origen" size="1">
	<option value="1" selected="selected"> EUROS </option>
	<option value="2" > PESETAS </option>  
	<option value="3" > DOLARES </option>
	&nbsp;</select></div></td>
    <td>
	<div align="rigth">
	<select name="destino" size="1">
	<option value="1" > EUROS </option>
	<option value="2" selected="selected"> PESETAS </option>  
	<option value="3" > DOLARES </option>
	&nbsp;</select></div></td>
  </tr>
</table>

<table width="543" height="58" border="0" align="center">
  <tr>
    <td width="267"><b>
    <div align="rigth"><font color="#0000CC" size="-1" face="Arial, Helvetica, sans-serif">INTRODUZCA CANTIDAD</font> &nbsp;</div></b></td>
    <td width="266"><b>
    <div align="rigth"><font color="#0000CC" size="-1" face="Arial, Helvetica, sans-serif">AL CAMBIO</font>&nbsp;</div></b></td>
  </tr>
  <tr>
    <td>
	<div align="rigth">
	<input type="text" name="cantidad" size="20">esta cantidad seria enviada al archivo asp junto con las opciones de los selects
	&nbsp;</div></td>
    <td>
	<div align="rigth">
	<b>
    <font color="#FF0000" size="-1" face="Arial, Helvetica, sans-serif">aqui saldria figurado el resultado de la conversion devuelto o importado del script asp despues de presionar el boton CONVERTIR
    </font>
    </b>
	&nbsp;</div></td>
  </tr>
</table>

<br><br><div align="center"><input type="submit" value="CONVERTIR"></div>
</FORM>

<table width="251" height="58" border="0" align="center">
  <tr>
    <td width="266"><b>
    <div align="center"><font color="#FF0000" size="-1" face="Arial, Helvetica, sans-serif">Muestra cuanto equivale 1 moneda a otra moneda segun tipo conversion que se ha realizado ejemplo 1 euro equivale a tantos dolares en el caso que se haya hecho una conversion de euros a dolares (aqui tambien se mostraria el resultado de otro script asp)</font>&nbsp;</div></b></td>
  </tr>
</table>

<br><br><b><div align="center"><font color="#FF0000" size="-1" face="Arial, Helvetica, sans-serif">mostrar fecha llamando a un script asp</font></div></b>

</body>
</html>

gracias

Shiryu_Libra · #2 (**permalink**) 13/02/2008, 17:22

bueno esta es la pagina donde escribirias tus datos, ya tienes la otra pagina que hace las conversiones?

por que lo unico que necesitas es recuperar esta info.... como... de esta manera

ya que en tu FORM tienes el METHOD = "POST", recuperarias tus datos asi
<%
variable = REQUEST.FORM("nombrecampo")
%>
puedes repetir esta sentencia tantas veces como campos tengas o puedes utilizar una funciona que existe en Biblioteca de Clases,Funciones y Sub-rutinas.

ARAPSPGON · #3 (**permalink**) 13/02/2008, 17:28

lo del request.form lo entiendo para coger los datos del formulario para hacer con ellos lo que se tenga que hacer en otra pagina asp ....

Pero mi duda es que los resultados obtenidos del procesamiento como se mandan otra vez a la pagina html o como se llaman desde la pagina html estos para ser mostrados

Shiryu_Libra · #4 (**permalink**) 13/02/2008, 17:37

en ese sentido, si no deseas cambiar la extencion HTML por ASP, tendrias que usar un AJAX, en si es una funcion similar a JAVASCRIPT, para poder manipular el resultado de esta pagina ASP

podrias poner tu codigo de la pagina ASP, y hacemos una funcion que te regrese el valor en AJAX.....

mira... fijate en el codigo de ESTE POST, el codigo incorpora una funcion AJAX, de una pagina HTML a una ASP, y se manipula el resultado en el HTML

se esta formando el codigo, pero te puede dar una idea de lo que harias en tu caso

o puedes abrir un popup que genere el resultado y antes de cerrarlo, enviar los parametros a tu pagina principal

ARAPSPGON · #5 (**permalink**) 13/02/2008, 17:49

gracias por la contestacion...

pero ajax jamas lo he tocado.

por otro lado el codigo asp no lo he escrito todavia ya que tenía esta duda y todavia no me he puesto a hacerlo...lo de html me da igual si se tiene que poner en asp la extension del la pagina html pues la pongo y listo ,,si de esa manera se puede hacer

cambiando la extension de html a asp
yo he pensado en intercalar en la tabla donde van los resultados el codigo asp vbscript pero no se si al pulsar en el boton conersion eso dara resultado

yo lo que qeria es al pulsar el boton conertir que el saliese la misma pagina pero ya mostrando el resultado y que en la misma pagina otra vez pudiese introducir otros valores y volver a pulsar el boton para mostrarme nuevamente el resultado y asi sucesivamente

Shiryu_Libra · #6 (**permalink**) 13/02/2008, 17:54

ok... entonces definimos que una sola pagina y que se pueda reutilizar el formulario, verdad?

un momento entonces....

solo necesitamos las formulas para las conversiones, las tienes listas????, puedes escribirlas?

ARAPSPGON · #7 (**permalink**) 13/02/2008, 17:57

si exacto asi es

Shiryu_Libra · #8 (**permalink**) 13/02/2008, 18:08

tendras tus formulas Arapspgon??? asi creamos la pagina completa

ARAPSPGON · #9 (**permalink**) 13/02/2008, 18:10

mañana escribiré los codigos asp en este hilo
y ya si eso te pasas y le hechas un vistazo a ver

yo los scripts los pondre intercalados en el codigo html y donde pone para enviar pondre que lo envie a la misma pagina para que se salga el resultado en la misma pagina

<FORM action="/scripts/ejemplos/la misma pagina asp" method="POST">

y donde vaya el resultado del conversion y lo demas pondre...

<%
variable=request.form("origen")
etc etc
sentencias
response.write(resultado)
%>

Shiryu_Libra · #10 (**permalink**) 13/02/2008, 18:30

Código PHP:

  <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Documento sin t&iacute;tulo</title>
</head>

<body>
<center>
<b><u>
<font color="#000066" size="+2" face="Arial, Helvetica, sans-serif">
CAMBIO DE MONEDA
</font>
</u></b>
</center><br>

<FORM action="/scripts/ejemplos/1practicafinal.asp" method="POST">
<table width="543" height="58" border="0" align="center">
  <tr>
    <td width="267"><b>
    <div align="rigth"><font color="#0000CC" size="-1" face="Arial, Helvetica, sans-serif">Moneda Origen</font> &nbsp;</div></b></td>
    <td width="266"><b>
    <div align="rigth"><font color="#0000CC" size="-1" face="Arial, Helvetica, sans-serif">Moneda Destino</font>&nbsp;</div></b></td>
  </tr>
  <tr>
    <td>
    <div align="rigth">
    <select name="origen" size="1">
    <option value="1" selected="selected"> EUROS </option>
    <option value="2" > PESETAS </option>  
    <option value="3" > DOLARES </option>
    &nbsp;</select></div></td>
    <td>
    <div align="rigth">
      <select name="destino" size="1">
        <option value="1" > EUROS </option>
        <option value="2" selected="selected"> PESETAS </option>
        <option value="3" > DOLARES </option>
        &nbsp;
        </select>
    </div></td>
  </tr>
</table>

<table width="543" height="58" border="0" align="center">
  <tr>
    <td width="267"><b>
    <div align="rigth"><font color="#0000CC" size="-1" face="Arial, Helvetica, sans-serif">INTRODUZCA CANTIDAD</font> &nbsp;</div></b></td>
    <td width="266"><b>
    <div align="rigth"><font color="#0000CC" size="-1" face="Arial, Helvetica, sans-serif">AL CAMBIO</font>&nbsp;</div></b></td>
  </tr>
  <tr>
    <td>
    <div align="rigth">
    <input type="text" name="cantidad" size="20">esta cantidad seria enviada al archivo asp junto con las opciones de los selects
    &nbsp;</div></td>
    <td>
    <div align="rigth">
    <b>
    <font color="#FF0000" size="-1" face="Arial, Helvetica, sans-serif">aqui saldria figurado el resultado de la conversion devuelto o importado del script asp despues de presionar el boton CONVERTIR
    </font>
    </b>
    &nbsp;</div></td>
  </tr>
</table>

<br><br><div align="center"><input type="submit" value="CONVERTIR"></div>
</FORM>
<table width="543" height="58" border="0" align="center">
  <tr>
    <td width="266" align="center"><b>Resultado de la Conversion
    <div align="center"><font color="#000000" size="-1" face="Arial, Helvetica, sans-serif">
    <%
if request.ServerVariables("REQUEST_METHOD")="POST" then
    origen = request.Form("origen")
    destino = request.Form("destino")
    cantidad = request.Form("cantidad")
    response.Write "<br />"
    select case origen
        case 1 respuesta1 = "Tus " & cantidad & " Euros equivalen a "
        case 2 respuesta1 = "Tus " & cantidad & " Pesetas equivalen a "
        case 3 respuesta1 = "Tus " & cantidad & " Dolares equivalen a "
    end select
    if origen=1 and destino=2 then
        total=cdbl(cantidad)*166.39
    else
        if origen=1 and destino=3 then
            total=cdbl(cantidad)*1.25
        else
            if origen=2 and destino=1 then 
                total=cdbl(cantidad)*0.006
            else
                if origen=2 and destino=3 then 
                    total=cdbl(cantidad)*0.008
                else
                    if origen=3 and destino=1 then 
                        total=cdbl(cantidad)*0.08
                    else
                        if origen=3 and destino=2 then 
                            total=cdbl(cantidad)*133.11
                        end if
                    end if
                end if
            end if
        end if
    end if

    select case destino
        case 1 respuesta2 = total & " Euros"
        case 2 respuesta2 = total & " Pesetas"
        case 3 respuesta2 = total & " Dolares"
    end select

    response.Write respuesta1 & respuesta2
end if
    %></font>&nbsp;</div></b></td>
  </tr>
</table>
<table width="251" height="58" border="0" align="center">
  <tr>
    <td width="266"><b>
    <div align="center"><font color="#FF0000" size="-1" face="Arial, Helvetica, sans-serif">Muestra cuanto equivale 1 moneda a otra moneda segun tipo conversion que se ha realizado ejemplo 1 euro equivale a tantos dolares en el caso que se haya hecho una conversion de euros a dolares (aqui tambien se mostraria el resultado de otro script asp)</font>&nbsp;</div></b></td>
  </tr>
</table>

<br><br><b><div align="center"><font color="#FF0000" size="-1" face="Arial, Helvetica, sans-serif">mostrar fecha llamando a un script asp</font></div></b>

</body>
</html>

ARAPSPGON · #11 (**permalink**) 14/02/2008, 09:03

grcias Shiryu_Libra

funciona ok el codigo

le he hecho una serie de modificaciones para perfeccionarlo aqui lo tienes...

guardalo con el nombre "conversor.asp" y modifica la ruta del action para adaptarlo a tu directorio virtual

Código PHP:

  <html> 
<head> 
<title>Conversor</title> 
</head> 
<body bgcolor="#CCCC66"> 
 
<center> 
<b><u> 
<font color="#000066" size="+2" face="Arial, Helvetica, sans-serif"> 
CAMBIO DE MONEDA 
</font> 
</u></b> 
</center><br> 
 
<FORM action="/scripts/ejemplos/conversor.asp" method="POST"> 
<table width="543" height="58" border="0" align="center"> 
  <tr> 
    <td width="267"><b> 
    <div align="rigth"><font color="#0000CC" size="-1" face="Arial, Helvetica, sans-serif">Moneda Origen</font> &nbsp;</div></b></td> 
    <td width="266"><b> 
    <div align="rigth"><font color="#0000CC" size="-1" face="Arial, Helvetica, sans-serif">Moneda Destino</font>&nbsp;</div></b></td> 
  </tr> 
  <tr> 
    <td> 
    <div align="rigth"> 
    <select name="origen" size="1"> 
    <option value="1" selected="selected"> EUROS </option> 
    <option value="2" > PESETAS </option>   
    <option value="3" > DOLARES </option> 
    &nbsp;</select></div></td> 
    <td> 
    <div align="rigth"> 
    <select name="destino" size="1"> 
    <option value="1" > EUROS </option> 
    <option value="2" selected="selected"> PESETAS </option>   
    <option value="3" > DOLARES </option> 
    &nbsp;</select></div></td> 
  </tr> 
</table> 
 
<table width="543" height="58" border="0" align="center"> 
  <tr> 
    <td width="169"><b> 
    <div align="rigth"><font color="#0000CC" size="-1" face="Arial, Helvetica, sans-serif">INTRODUZCA CANTIDAD</font> &nbsp;</div></b></td> 
    <td width="366"><b> 
    <div align="rigth"><font color="#0000CC" size="-1" face="Arial, Helvetica, sans-serif">AL CAMBIO:</font>&nbsp;</div></b></td> 
  </tr> 
  <tr> 
    <td> 
    <div align="rigth"> 
    <input type="text" name="cantidad" size="20"> 
    &nbsp;</div> 
    </td> 
    <td bgcolor="#FFFFFF"> 
    <div align="rigth"> 
    <b> 
    <font color="#FF0000" size="-1" face="Arial, Helvetica, sans-serif"> 
    <% 
if request.ServerVariables("REQUEST_METHOD")="POST" then 
    origen = request.Form("origen") 
    destino = request.Form("destino") 
    cantidad = request.Form("cantidad") 
     
    select case origen 
        case 1 respuesta1 = "Tus " & cantidad & " Euros equivalen a " 
        case 2 respuesta1 = "Tus " & cantidad & " Pesetas equivalen a " 
        case 3 respuesta1 = "Tus " & cantidad & " Dolares equivalen a " 
    end select 
    if origen=1 and destino=1 then 
        total=cdbl(cantidad)*1 
        else 
            if origen=1 and destino=2 then 
                total=cdbl(cantidad)*166.39 
            else 
                if origen=1 and destino=3 then 
                    total=cdbl(cantidad)*1.46 
                else 
                    if origen=2 and destino=1 then  
                        total=cdbl(cantidad)*0.006 
                        else 
                            if origen=2 and destino=2 then  
                                total=cdbl(cantidad)*1 
                            else 
                                if origen=2 and destino=3 then  
                                    total=cdbl(cantidad)*0.008 
                                else 
                                    if origen=3 and destino=1 then  
                                        total=cdbl(cantidad)*0.68 
                                    else 
                                        if origen=3 and destino=2 then  
                                            total=cdbl(cantidad)*114.1 
                                        else 
                                        if origen=3 and destino=3 then  
                                            total=cdbl(cantidad)*1 
 
                                    end if 
                                end if 
                            end if 
                        end if 
                    end if 
                end if 
            end if 
        end if 
    end if 
     select case destino 
        case 1 respuesta2 = total & " Euros" 
        case 2 respuesta2 = total & " Pesetas" 
        case 3 respuesta2 = total & " Dolares" 
    end select 
 
    response.Write respuesta1 & respuesta2 
 
 
end if 
    %> 
    </font> 
    </b> 
    &nbsp;</div> 
    </td> 
  </tr> 
</table> 
 
<br><br><div align="center"><input type="submit" value="CONVERTIR"></div> 
</FORM> 
 
<table width="251" height="58" border="0" align="center"> 
  <tr> 
    <td width="266"><b> 
    <div align="center"><font color="#FF0000" size="-1" face="Arial, Helvetica, sans-serif"> 
    <% 
if request.ServerVariables("REQUEST_METHOD")="POST" then 
    origen = request.Form("origen") 
    destino = request.Form("destino") 
     
    if origen=1 and destino=1 then 
        response.write("Su conversión no tiene sentido") 
        else 
            if origen=1 and destino=2 then 
                response.Write("1 Euro equivale a 166.39 Pesetas") 
            else 
                if origen=1 and destino=3 then 
                    response.write("1 Euro equivale a 1.46 Dólares") 
                else 
                    if origen=2 and destino=1 then  
                        response.write("1 Peseta equivale a 0.006 Euros") 
                        else 
                            if origen=2 and destino=2 then  
                                response.write("Su conversión no tiene sentido") 
                            else 
                                if origen=2 and destino=3 then  
                                    response.write("1 Peseta equivale a 0.008 Dólares") 
                                else 
                                    if origen=3 and destino=1 then  
                                        response.write("1 Dólar equivale a 0.68 Euros") 
                                    else 
                                        if origen=3 and destino=2 then  
                                            response.write("1 Dólar equivale a 114.1 Pesetas") 
                                        else 
                                        if origen=3 and destino=3 then  
                                            response.write("Su conversión no tiene sentido") 
                                    end if 
                                end if 
                            end if 
                        end if 
                    end if 
                end if 
            end if 
        end if 
    end if 
     
     
      
end if 
    %> 
    </font>&nbsp;</div></b></td> 
  </tr> 
</table> 
 
<br><br><b><div align="center"><font color="#FF0000" size="-1" face="Arial, Helvetica, sans-serif">Fecha: <% response.write date()%></font></div></b> 
 
</body> 
</html>

ARAPSPGON · #12 (**permalink**) 14/02/2008, 09:06

ahora lo que me falta poner es que muestre un mensaje por ejemplo "introduzca valor numerico" en el caso que en la casilla de introduccion "cantidad" no se haya introducido nada .

he probado con esto

Código PHP:

  <%
if request.ServerVariables("REQUEST_METHOD")="POST" then
    origen = request.Form("origen")
    destino = request.Form("destino")
    cantidad = request.Form("cantidad")
    
    select case origen
        case 1 respuesta1 = "Tus " & cantidad & " Euros equivalen a "
        case 2 respuesta1 = "Tus " & cantidad & " Pesetas equivalen a "
        case 3 respuesta1 = "Tus " & cantidad & " Dolares equivalen a "
    end select
    if origen=1 and destino=1 then
        total=cdbl(cantidad)*1
        else
            if origen=1 and destino=2 then
                total=cdbl(cantidad)*166.39
            else
                if origen=1 and destino=3 then
                    total=cdbl(cantidad)*1.46
                else
                    if origen=2 and destino=1 then 
                        total=cdbl(cantidad)*0.006
                        else
                            if origen=2 and destino=2 then 
                                total=cdbl(cantidad)*1
                            else
                                if origen=2 and destino=3 then 
                                    total=cdbl(cantidad)*0.008
                                else
                                         if origen=3 and destino=1 then 
                             total=cdbl(cantidad)*0.68
                                         else
                                          if origen=3 and destino=2 then 
                                               total=cdbl(cantidad)*114.1
                                else
                                        if origen=3 and destino=3 then 
                                            total=cdbl(cantidad)*1

                                    end if
                                end if
                            end if
                        end if
                    end if
                end if
            end if
        end if
    end if
     select case destino
        case 1 respuesta2 = total & " Euros"
        case 2 respuesta2 = total & " Pesetas"
        case 3 respuesta2 = total & " Dolares"
    end select

    response.Write respuesta1 & respuesta2

if cantidad = "" then
    response.write("Introduzca valor numerico")
end if

end if
    %>

pero me da error
VBScript en tiempo de ejecución (0x800A000D)
No coinciden los tipos: 'cdbl' linea 74

lo he probado de varias maneras pero al final me ha salido de esta manera
ahora ya funciona perfectamente incluso sin introducir nada o dejando las dos opciones iguales

Código PHP:

  <html>
<head>
<title>Conversor</title>
</head>
<body bgcolor="#CCCC66">

<center>
<b><u>
<font color="#000066" size="+2" face="Arial, Helvetica, sans-serif">
CAMBIO DE MONEDA
</font>
</u></b>
</center><br>

<FORM action="/scripts/ejemplos/conversor.asp" method="POST">
<table width="543" height="58" border="0" align="center">
  <tr>
    <td width="267"><b>
    <div align="rigth"><font color="#0000CC" size="-1" face="Arial, Helvetica, sans-serif">Moneda Origen</font> &nbsp;</div></b></td>
    <td width="266"><b>
    <div align="rigth"><font color="#0000CC" size="-1" face="Arial, Helvetica, sans-serif">Moneda Destino</font>&nbsp;</div></b></td>
  </tr>
  <tr>
    <td>
    <div align="rigth">
    <select name="origen" size="1">
    <option value="1" selected="selected"> EUROS </option>
    <option value="2" > PESETAS </option>  
    <option value="3" > DOLARES </option>
    &nbsp;</select></div></td>
    <td>
    <div align="rigth">
    <select name="destino" size="1">
    <option value="1" > EUROS </option>
    <option value="2" selected="selected"> PESETAS </option>  
    <option value="3" > DOLARES </option>
    &nbsp;</select></div></td>
  </tr>
</table>

<table width="543" height="58" border="0" align="center">
  <tr>
    <td width="169"><b>
    <div align="rigth"><font color="#0000CC" size="-1" face="Arial, Helvetica, sans-serif">INTRODUZCA CANTIDAD</font> &nbsp;</div></b></td>
    <td width="366"><b>
    <div align="rigth"><font color="#0000CC" size="-1" face="Arial, Helvetica, sans-serif">AL CAMBIO:</font>&nbsp;</div></b></td>
  </tr>
  <tr>
    <td>
    <div align="rigth">
    <input type="text" name="cantidad" size="20">
    &nbsp;</div>
    </td>
    <td bgcolor="#FFFFFF">
    <div align="rigth">
    <b>
    <font color="#FF0000" size="-1" face="Arial, Helvetica, sans-serif">
    <%
if request.ServerVariables("REQUEST_METHOD")="POST" then
    origen = request.Form("origen")
    destino = request.Form("destino")
    cantidad = request.Form("cantidad")
    
    select case origen
        case 1 respuesta1 = "Tus " & cantidad & " Euros equivalen a "
        case 2 respuesta1 = "Tus " & cantidad & " Pesetas equivalen a "
        case 3 respuesta1 = "Tus " & cantidad & " Dolares equivalen a "
    end select
     select case destino
        case 1 ' Euros
        case 2 ' Pesetas
        case 3  Dolares
    end select
    if origen=1 and destino=1 then
        if cantidad = "" then
            response.write("Introduzca valor numerico")
        else
            total=cdbl(cantidad)*1
            response.Write respuesta1 & total & " Euros"
        end if
        else
            if origen=1 and destino=2 then
                if cantidad = "" then
                    response.write("Introduzca valor numerico")
                else
                    total=cdbl(cantidad)*166.39
                    response.Write respuesta1 & total & " Pesetas"
                end if
            else
                if origen=1 and destino=3 then
                    if cantidad = "" then
                    response.write("Introduzca valor numerico")
                    else
                    total=cdbl(cantidad)*1.46
                    response.Write respuesta1 & total & " Dólares"
                    end if
                else
                    if origen=2 and destino=1 then
                        if cantidad = "" then
                        response.write("Introduzca valor numerico")
                        else 
                        total=cdbl(cantidad)*0.006
                        response.Write respuesta1 & total & " Euros"
                        end if
                    else
                            if origen=2 and destino=2 then 
                                if cantidad = "" then
                                response.write("Introduzca valor numerico")
                                else 
                                total=cdbl(cantidad)*1
                                response.Write respuesta1 & total & " Pesetas"
                                end if
                            else
                                if origen=2 and destino=3 then 
                                    if cantidad = "" then
                                    response.write("Introduzca valor numerico")
                                    else
                                    total=cdbl(cantidad)*0.008
                                    response.Write respuesta1 & total & " Dólares"
                                    end if
                                else
                                    if origen=3 and destino=1 then
                                        if cantidad = "" then
                                        response.write("Introduzca valor numerico")
                                        else 
                                        total=cdbl(cantidad)*0.68
                                        response.Write respuesta1 & total & " Euros"
                                        end if
                                    else
                                        if origen=3 and destino=2 then 
                                            if cantidad = "" then
                                            response.write("Introduzca valor numerico")
                                            else 
                                            total=cdbl(cantidad)*114.1
                                            response.Write respuesta1 & total & " Pesetas"
                                            end if
                                        else
                                        if origen=3 and destino=3 then
                                            if cantidad = "" then
                                            response.write("Introduzca valor numerico")
                                            else  
                                            total=cdbl(cantidad)*1
                                            response.Write respuesta1 & total & " Dólares"
                                            end if

                                    end if
                                end if
                            end if
                        end if
                    end if
                end if
            end if
        end if
    end if
    
end if
    %>
    </font>
    </b>
    &nbsp;</div>
    </td>
  </tr>
</table>

<br><br><div align="center"><input type="submit" value="CONVERTIR"></div>
</FORM>

<table width="251" height="58" border="0" align="center">
  <tr>
    <td width="266"><b>
    <div align="center"><font color="#FF0000" size="-1" face="Arial, Helvetica, sans-serif">
    <%
if request.ServerVariables("REQUEST_METHOD")="POST" then
    origen = request.Form("origen")
    destino = request.Form("destino")
    
    if origen=1 and destino=1 then
        response.write("Su conversión no tiene sentido")
        else
            if origen=1 and destino=2 then
                response.Write("1 Euro equivale a 166.39 Pesetas")
            else
                if origen=1 and destino=3 then
                    response.write("1 Euro equivale a 1.46 Dólares")
                else
                    if origen=2 and destino=1 then 
                        response.write("1 Peseta equivale a 0.006 Euros")
                        else
                            if origen=2 and destino=2 then 
                                response.write("Su conversión no tiene sentido")
                            else
                                if origen=2 and destino=3 then 
                                    response.write("1 Peseta equivale a 0.008 Dólares")
                                else
                                    if origen=3 and destino=1 then 
                                        response.write("1 Dólar equivale a 0.68 Euros")
                                    else
                                        if origen=3 and destino=2 then 
                                            response.write("1 Dólar equivale a 114.1 Pesetas")
                                        else
                                        if origen=3 and destino=3 then 
                                            response.write("Su conversión no tiene sentido")
                                    end if
                                end if
                            end if
                        end if
                    end if
                end if
            end if
        end if
    end if
    
    
     
end if
    %>
    </font>&nbsp;</div></b></td>
  </tr>
</table>

<br><br><b><div align="center"><font color="#FF0000" size="-1" face="Arial, Helvetica, sans-serif">Fecha: <% response.write date()%></font></div></b>

</body>
</html>

en el case 3 de destino falta un ' antes de Dolares

grcias Shiryu_Libra por tu ayuda

ya solo quedaria ponerle alguna foto d fondo y ponerlo mas vistoso pero para eso no hay problema

Shiryu_Libra · #13 (**permalink**) 14/02/2008, 10:09

perfecto...

ARAPSPGON · #14 (**permalink**) 14/02/2008, 10:31

ahora me ha dado cuenta de un pqueño error que puede ocurrir en la ejecucion...
es si se introduce caracteres en vez de numeros que da un error pero no se como implementarlo

habia pensado asi para cada opcion

Código PHP:

  if cantidad = "" or cantidad = cstr then 
            response.write("Introduzca valor numerico")

pero da error

Shiryu_Libra · #15 (**permalink**) 14/02/2008, 10:40

en esos casos podrias utilizar el javascript, para evitar que introduscan letras donde solo son numeros, un script como este

como menciono siempre, va entre las etiquetas HEAD... creo que ya lo sabes...

Código PHP:

  <script language="javascript" type="text/javascript">
<!--
var nav4 = window.Event ? true : false;
function acceptNum(evt){
// NOTE: Backspace = 8, Enter = 13, '0' = 48, '9' = 57
var key = nav4 ? evt.which : evt.keyCode;
return (key <= 13 || (key >= 48 && key <= 57));
}
-->
</script>

y en tu input "cantidad" quedaria de la siguiente manera.... claro que hay que hacer una verificacion del lado de ASP

Cita:

ARAPSPGON · #16 (**permalink**) 14/02/2008, 11:11

muchisimas gracias

yo javascript todavia no he tocado cuando acabe con asp me pondre en ello pero ya tengo algo que me sonará.

perdona por si es una pregunta tonta pero tengo un formulario que hice un dia para introducir valores en los campos de un pequeña tabla de una base de datos en access

el formulario es este

Código PHP:

  <HTML> 
<HEAD> 
<TITLE>response</TITLE> 
</HEAD> 
<BODY> 
 
 
<FORM action="/scripts/ejemplos/18_ejemplo3_BD.asp" method="POST"> 
Nombre articulo: <input type="text" name ="articulo"><br> 
numero de unidades: <input type="text" name ="unidades"><br> 
precio: <input type="text" name ="precio"><br> 
        <input type="submit" value="Enviar"> 
 
</FORM> 
</BODY> 
</HTML>

y la pagina asp para introducir los datos en la base de datos es este

la base de datos inventario.mdb solo tiene 3 registros para introducir datos
articulo --un string
unidades-numero
precio - numero decimal

Código PHP:

  <html> 
<head> 
<title>Documento sin t&iacute;tulo</title> 
</head> 
<body> 
 
<% 
' Nuestras tres variables para jugar con la bd 
 
art = request("articulo") 
uni = request("unidades") 
price = request("precio") 
 
'Creamos los objetos 
set bd=Server.CreateObject("ADODB.Connection") 
 
 
'Conectamos con DSN a la base de datos 
bd.Open "inventario" 
 
bd.execute"insert into inventario (articulo, unidades, precio) VALUES ('" & art & "','" & uni & "','" & price & "')" 
 
 
%> 
 
<h1><div align="center">Registro Insertado</div></h1> 
 
 
 
<% 
'Cerramos el sistema de conexion 
bd.Close 
set bd = nothing 
%> 
 
</body> 
</html>

lo he probado todo ...dar permisos de lectura y escritura al archivo access inventario.mdb comparticion de carpeta y permisos en la carpeta donde se aloja en el directorio virtual etc etc

siempre me da el error
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Controlador ODBC Microsoft Access] La operación debe usar una consulta actualizable.

Shiryu_Libra · #17 (**permalink**) 14/02/2008, 12:21

y los permisos fueron asignados al usuario IUSR y IWAN??? con permisos de escritura/lectura/modificacion

como dice aqui

ARAPSPGON · #18 (**permalink**) 14/02/2008, 12:42

voy a probar como indicas en el tutorial..q por cierto esta excelente y muy claro

ARAPSPGON · #19 (**permalink**) 14/02/2008, 13:46

DIOs

gracias a ti he podido ingresar por fin datos en la BD access

me ha ido de fabula el tutorial de como configurar los permisos

ahora me pondre a hacer una base de datos para introducir cambios de divisas para que esos registros los utilice el programa de conversion para si poder actualizar las operaciones de conversión asi intentaré hacerlo mas completo el programa .

cuando tenga algo mas lo posteo