
18/05/2005, 17:35
|
|
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áticas" width="253" height="150"></div>
<table width="400" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </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Ó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É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Ó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á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 |