este es el codigo del formulario
Código:
y este el llamado del formulario (el cual no se muestra al apretar enviar)<!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>
Código:
por favor compañeros, si alguien puede darme una mano se lo agradeceria muchisimo.<!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>
gracias de antemano