Ver Mensaje Individual
  #1 (permalink)  
Antiguo 18/05/2005, 17:35
Huev0nMast3r
Invitado
 
Mensajes: n/a
Puntos:
Formulario que no anda :(

Tengo un problemita, hize un formulario en asp mirando codigos y viendo si se podia hacer algo, cuestion que hay algo fallando y no se que es, si me pueden dar una mano uds los expertos, se los agradeceria muchisimo.

este es el codigo del formulario
Código:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Kad Buster - Contacto de Compra</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#DAF1DC" leftmargin="0" topmargin="2" marginwidth="0" marginheight="0">
<table width="400" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#DAF1DC">
  <tr> 
    <td width="400" height="497"> 
      <div align="center"><img src="logokad.gif" alt="Kad Buster - Soluciones Inform&aacute;ticas" width="253" height="150"></div>
      <table width="400" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td>&nbsp;</td>
        </tr>
      </table> 
      <table width="400" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="490" height="271"> 
            <form name="datos" method="post" action="gracias.asp" target="_self">
              <table width="400" height="296" border="0" cellpadding="0" cellspacing="0">
                <tr> 
                  <td width="456"><div align="center"><strong><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">NOMBRE 
                      Y APELLIDO</font></strong></div></td>
                </tr>
                <tr> 
                  <td><div align="center"> <strong><font size="-2" face="Verdana, Arial, Helvetica, sans-serif"> 
                      <input name="nombre" type="text" id="nombre">
                      </font></strong></div></td>
                </tr>
                <tr> 
                  <td><div align="center"><strong><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">DIRECCI&Oacute;N</font></strong></div></td>
                </tr>
                <tr> 
                  <td><div align="center"> <strong><font size="-2" face="Verdana, Arial, Helvetica, sans-serif"> 
                      <input name="direccion" type="text" id="direccion">
                      </font></strong></div></td>
                </tr>
                <tr> 
                  <td height="13">
<div align="center"><strong><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">TEL&Eacute;FONO</font></strong></div></td>
                </tr>
                <tr> 
                  <td><div align="center"> <strong><font size="-2" face="Verdana, Arial, Helvetica, sans-serif"> 
                      <input name="tel" type="text" id="tel">
                      </font></strong></div></td>
                </tr>
                <tr> 
                  <td><div align="center"><strong><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">E 
                      - MAIL</font></strong></div></td>
                </tr>
                <tr> 
                  <td><div align="center"> <strong><font size="-2" face="Verdana, Arial, Helvetica, sans-serif"> 
                      <input name="mail" type="text" id="mail">
                      </font></strong></div></td>
                </tr>
                <tr> 
                  <td><div align="center"><strong><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">C&Oacute;DIGO 
                      DEL PRODUCTO</font></strong></div></td>
                </tr>
                <tr> 
                  <td><div align="center"> <strong><font size="-2" face="Verdana, Arial, Helvetica, sans-serif"> 
                      <input name="codigo" type="text" id="codigo">
                      </font></strong></div></td>
                </tr>
                <tr> 
                  <td><div align="center"><strong><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">OTRAS 
                      INDICACIONES:</font></strong></div></td>
                </tr>
                <tr> 
                  <td><div align="center">
                      <textarea name="texto" id="texto"></textarea></b>
                      </div></td>
                </tr>
                <tr> 
                  <td><div align="center"> <br>
                      <input name="enviar" type="submit" value="Enviar">
                      <br>
                    </div></td>
                </tr>
              </table>
              <table width="400" border="0" cellspacing="0" cellpadding="0">
                <tr> 
                  <td><hr align="center" width="300"></td>
                </tr>
                <tr>
                  <td><div align="center"><font size="-2" face="Verdana, Arial, Helvetica, sans-serif">Kad 
                      Buster - Soluciones Inform&aacute;ticas</font></div></td>
                </tr>
              </table>
            </form></td>
        </tr>
      </table>
    </td>
  </tr>
</table>
</body>
</html>
y este el llamado del formulario (el cual no se muestra al apretar enviar)

Código:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<%
Dim strTo, strSubject, strBody
Dim objCDOMail

strTo = "[email protected]"
strSubject = "Contacto Compra Vía WEB"

strBody = "Nombre: " & Request.Form("nombre")
strBody = strBody & vbCrLf
strBody = strBody & "Dirección: " & Request.Form("direccion")
strBody = strBody & vbCrLf
strBody = strBody & "Teléfono: " & Request.Form("tel")
strBody = strBody & vbCrLf
strBody = strBody & "e-mail: "Request.Form("mail")
strBody = strBody & vbCrLf
strBody = strBody & "Código del Producto: "Request.Form("codigo")
strBody = strBody & vbCrLf & vbCrLf
strBody = strBody & "Otras Indicaciones: "Request.Form("texto")


Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
 objCDOMail.From = Request.Form("email")
 objCDOMail.To = "[email protected]"
 objCDOMail.Subject = strSubject
 objCDOMail.Body = strBody
 objCDOMail.Cc = "[email protected]"
 objCDOMail.Send
 Set objCDOMail = Nothing
%>
Su mensaje ha sido enviado. Gracias por contactarse con nosotros, re 
</body>
</html>
por favor compañeros, si alguien puede darme una mano se lo agradeceria muchisimo.

gracias de antemano