Foros del Web » Programando para Internet » ASP Clásico »

Problema formulario ASP

 Estas en el tema de Problema formulario ASP en el foro de ASP Clásico en Foros del Web. Buenas tardes. Tengo un formulario realizado en ASP pero al cambiar de hosting me está arrojando un problema cuando pulso sobre Enviar Nota Pedido. Server ...
  #1 (permalink)  
Antiguo 03/02/2011, 10:39
 
Fecha de Ingreso: agosto-2007
Mensajes: 23
Antigüedad: 17 años, 3 meses
Puntos: 0
Pregunta Problema formulario ASP
Buenas tardes.
Tengo un formulario realizado en ASP pero al cambiar de hosting me está arrojando un problema cuando pulso sobre Enviar Nota Pedido.

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/Formulario/enviarNotaPedido.asp, line 15

800401f3

Os adjunto el código tanto del formulario como del código que hace la llamada una vez que se pulsa a Enviar Nota Pedido.


Como no me cabe todo, lo pongo en varios mensajes:
  #2 (permalink)  
Antiguo 03/02/2011, 10:40
 
Fecha de Ingreso: agosto-2007
Mensajes: 23
Antigüedad: 17 años, 3 meses
Puntos: 0
Respuesta: Problema formulario ASP
CÓDIGO DEL FORMULARIO
Código: 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!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=iso-8859-1" />
<title>NOTA DE PEDIDO - La Moldurera</title>
<link rel="stylesheet" rev="stylesheet" href="estilos.css" />
<style type="text/css">
.textForm{
	border-width:0px;	
	font-weight:500;
}
#nota{
 	font-family:Verdana, Arial, Helvetica, sans-serif;
	font-size:18px;
	font-weight:bolder;
}
.textCelda{
	border:1px solid #111111; 
	height:28px;
}
.textCelda2{
	border-top:1px solid #111111; 
	border-left:0px solid #111111; 
	border-bottom:1px solid #111111;
	border-right:1px solid #111111; 
	height:28px;
}
.textCelda3{
	border-top:0px solid #111111; 
	border-left:1px solid #111111; 
	border-bottom:1px solid #111111;
	border-right:1px solid #111111; 
	height:28px;
}
.textCelda32{
	border-top:0px solid #111111; 
	border-left:0px solid #111111; 
	border-bottom:1px solid #111111;
	border-right:1px solid #111111; 
	height:28px;
}
.texto{
	font-size:10px;
	text-indent:4px
}
.direccion{
	font-size:9px;
	font-family:Verdana;
	font-weight:400;
}
</style>
<script type="text/javascript">
function validar(){
	var aErr = new Array("frazonsocial","ftelefono");
	var aErrT = new Array("La razón social","El teléfono de contacto");
	var msj = "Campos obligatorios sin rellenar:\n";

	for(j=0;j<aErr.length;j++){
		aux1 = document.getElementById(aErr[j]);
		if(aux1.value == "")
			msj+= aErrT[j] + "\n";
		}

	if(msj != "Campos obligatorios sin rellenar:\n"){
		alert(msj);		
		return false;}
}
</script>
<script src="includes/controles.js" type="text/javascript"></script>
</head>

<body>
<form action="enviarNotaPedido.asp" method="post" name="frm" onsubmit="return validar()">
<table cellpadding="0" cellspacing="0" align="center">
	<tr>
		<td valign="bottom">
			<table style="float:left;margin-top:50px" cellpadding="0" cellspacing="0">
				<tr>
					<td valign="bottom" id="nota">NOTA DE PEDIDO</td>
				</tr>
				<tr>
					<td class="textCelda">
						<div class="texto" style="background-color:#F3E4AF">FECHA</div>
						<div align="right" style="margin-top:-1px">
						<input type="text" class="textForm" name="ffecha" id="ffecha" value="<%=formatDateTime(date,vbShortDate)%>" readonly="readonly" tabindex="1" /></div>
					</td>
				</tr>
			</table>
			<div style="float:left;margin-left:100px"><img src="Images/logoNota.jpg" alt="" /></div>
		  <div style="float:right;text-align:right;margin-top:35px" class="direccion">
				<div style="font-size:14px">Artmania Decoración, S.L.</div>
				Padre Juan de Mariana, 20 . 45534 La Mata (TO) España<br />
				Tel.: 34/925 74 70 16 / Fax: 34/925 74 72 66<br />
			    <a href="mailto:[email protected]"><span class="submenu">[email protected]</span></a> / www.artmaniadecoracion.com
			</div>
		</td>
	</tr>
	<tr>
		<td>
			<table cellpadding="0" cellspacing="0">
				<tr>
					<td class="textCelda">
						<div class="texto">RAZÓN SOCIAL</div>
						<div align="right" style="margin-top:-5px">
						<input type="text" class="textForm" name="frazonsocial" size="80" id="frazonsocial" tabindex="2" /></div>
					</td>
					<td class="textCelda2">
						<div class="texto">NOMBRE COMERCIAL</div>
						<div align="right" style="margin-top:-5px">
						<input type="text" class="textForm" name="fnombrecomercial" size="50" id="fnombrecomercial" tabindex="3" /></div>
					</td>
				</tr>			
			</table>
		</td>
	</tr>
	<tr>
		<td>
			<table cellpadding="0" cellspacing="0" width="100%">
				<tr>
					<td class="textCelda3">
						<div class="texto">C.I.F. / N.I.F. / CÓDIGO</div>
						<div align="right" style="margin-top:-5px">
						<input type="text" class="textForm" name="fnifcif" size="30" id="fnifcif" tabindex="4" /></div>
					</td>
					<td class="textCelda32">
						<div class="texto">DOMICILIO</div>
						<div align="right" style="margin-top:-5px">
						<input type="text" class="textForm" name="fdomicilio" size="80" id="fdomicilio" tabindex="5" /></div>
					</td>
					<td class="textCelda32">
						<div class="texto">C.P.</div>
						<div align="right" style="margin-top:-5px">
						<input type="text" class="textForm" name="fcp" size="16" id="fcp" tabindex="6" /></div>
					</td>
				</tr>			
			</table>
		</td>
	</tr>
	<tr>
		<td>
			<table cellpadding="0" cellspacing="0" width="100%">
				<tr>
					<td class="textCelda3">
						<div class="texto">POBLACIÓN</div>
						<div align="right" style="margin-top:-5px">
						<input type="text" class="textForm" name="fpoblacion" size="50" id="fpoblacion" tabindex="7" /></div>
					</td>
					<td class="textCelda32">
						<div class="texto">PROVINCIA / PAÍS</div>
						<div align="right" style="margin-top:-5px">
						<input type="text" class="textForm" name="fprovinciaPais" size="80" id="fprovinciaPais" tabindex="8" /></div>
					</td>					
				</tr>			
			</table>
		</td>
	</tr>
	<tr>
		<td>
			<table cellpadding="0" cellspacing="0" width="100%">
				<tr>
					<td class="textCelda3">
						<div class="texto">TELÉFONO</div>
						<div align="right" style="margin-top:-5px">
						<input type="text" class="textForm" name="ftelefono" onkeypress="return control_numerico();" size="25" id="ftelefono" tabindex="9" /></div>
					</td>
					<td class="textCelda32">
						<div class="texto">FAX</div>
						<div align="right" style="margin-top:-5px">
						<input type="text" class="textForm" name="ffax" onkeypress="return control_numerico();" size="25" id="ffax" tabindex="10" /></div>
					</td>	
					<td class="textCelda32">
						<div class="texto">E-MAIL</div>
						<div align="right" style="margin-top:-5px">
						<input type="text" class="textForm" name="femail" size="40" id="femail" tabindex="11" /></div>
					</td>	
					<td class="textCelda32">
						<div class="texto">POR MEDIACIÓN DE</div>
						<div align="right" style="margin-top:-5px">
						<input type="text" class="textForm" name="fmediacion" size="25" id="fmediacion" tabindex="12" /></div>
					</td>					
				</tr>			
			</table>
		</td>
	</tr>
	<tr>
		<td>
			<table cellpadding="0" cellspacing="0" width="100%">
				<tr>
					<td class="textCelda3">
						<div class="texto">DATOS ENVÍO MERCANCÍA</div>
						<div align="right" style="margin-top:-5px">
						<input type="text" class="textForm" name="fdatosMercancia" size="110" id="fdatosMercancia" tabindex="13" /></div>
					</td>
					<td class="textCelda32">
						<div class="texto">I.V.A. RECARGO</div>
						<div align="right" style="margin-top:-5px">
						<input type="text" class="textForm" name="fiva" size="20" id="fiva" tabindex="14" /></div>
					</td>					
				</tr>			
			</table>
		</td>
	</tr>
	<tr>
		<td>
			<table cellpadding="0" cellspacing="0" width="100%">
				<tr>
					<td class="textCelda3">
						<div class="texto">FORMA DE PAGO</div>
						<div align="right" style="margin-top:-5px">
						<input type="text" class="textForm" name="fformapago" size="70" id="fformapago" tabindex="15" /></div>
					</td>
					<td class="textCelda32">
						<table cellpadding="0" cellspacing="0" width="100%">
							<tr valign="top">
								<td class="textCelda32" style="border-bottom-width:0px;text-align:center">
								<div class="texto" style="text-align:center">ENTIDAD</div>
								<input type="text" class="textForm" name="fentidad" onkeypress="return control_numerico();" maxlength="4" size="8" id="fentidad" tabindex="16" />
								</td>
								<td class="textCelda32" style="border-bottom-width:0px;text-align:center">
								<div class="texto" style="text-align:center">OFICINA</div>
								<input type="text" class="textForm" name="foficina" onkeypress="return control_numerico();" maxlength="4" size="8" id="foficina" tabindex="17" />
								</td>
								<td class="textCelda32" style="border-bottom-width:0px;text-align:center">
								<div class="texto" style="text-align:center">D.C.</div>
								<input type="text" class="textForm" name="fdc" onkeypress="return control_numerico();" maxlength="2" size="4" id="fdc" tabindex="18" />
								</td>
								<td class="textCelda32" style="border-bottom-width:0px;border-right-width:0px;text-align:center">
								<div class="texto" style="text-align:center">NÚMERO DE CUENTA</div>
  #3 (permalink)  
Antiguo 03/02/2011, 10:41
 
Fecha de Ingreso: agosto-2007
Mensajes: 23
Antigüedad: 17 años, 3 meses
Puntos: 0
Respuesta: Problema formulario ASP
Segunda parte del formulario.
Código: 
						<input type="text" class="textForm" maxlength="10" onkeypress="return control_numerico();" name="fnumerocuenta" size="15" id="fnumerocuenta" tabindex="19" />
								</td>
							</tr>							
						</table>
					</td>					
				</tr>			
			</table>
		</td>
	</tr>
	<tr>
		<td>&nbsp;</td>
	</tr>
	<tr>
		<td>
			<table cellpadding="0" cellspacing="0" width="100%" border="0">
				<tr bgcolor="#F3E4AF">
					<td width="20" class="textCelda"><div style="text-align:center" class="texto">LN</div></td>
					<td width="300" class="textCelda2"><div style="text-align:center" class="texto">REFERENCIA</div></td>
					<td width="75" class="textCelda2"><div style="text-align:center" class="texto">METROS</div></td>
					<td width="75" class="textCelda2"><div style="text-align:center" class="texto">PRECIO / ML</div></td>
					<td width="90" class="textCelda2"><div style="text-align:center" class="texto">IMPORTE</div></td>
				</tr>
				<script type="text/javascript">
				var nReg = 22;
				for(i=1;i<=nReg;i++){
					document.write("<tr>");
					document.write("<td class='textCelda3'><div class='texto' style='text-align:center'>" + i + "</div></td>");
					document.write("<td class='textCelda32'><input type='text' class='textForm' size='70' name='referencia" + i + "' id='referencia" + i + "' /></td>");
					document.write("<td class='textCelda32'><input type='text' class='textForm' size='12' name='metros" + i + "' id='metros" + i + "' onkeypress='return DECIMAL(this)' /></td>");
					document.write("<td class='textCelda32'><input type='text' class='textForm' size='12' name='precio" + i + "' id='precio" + i + "' onkeypress='return DECIMAL(this)' /></td>");
					document.write("<td class='textCelda32'><input type='text' class='textForm' size='12' name='importe" + i + "' id='importe" + i + "' onkeypress='return DECIMAL(this)' /></td>");
					document.write("</tr>");
				}				
				</script>	
				<tr>
					<td colspan="2">						
						<table cellpadding="2" cellspacing="2" width="100%" style="border:1px solid #111111;margin-top:4px">
							<tr>
								<td>
								<div class="texto">COMENTARIOS</div>
								<textarea rows="6" cols="60" class="textForm" name="fcomentarios" id="fcomentarios"></textarea>
								</td>
							</tr>
						</table>
					</td>
					<td colspan="2"  valign="top">						
						<table width="99%" height="28" style="font-size:16px;font-weight:bold;border:1px solid #111111;margin-top:4px;margin-left:2px">
						<tr>
								<td>&nbsp;&nbsp;TOTAL PEDIDO</td>
							</tr>
						</table>
					</td>
					<td valign="top">
						<table width="100%" class="textCelda2" style="margin-top:4px;">
							<tr>
								<td><input type="text" class="textForm" size="15" name="fimportetotal" id="fimportetotal" onkeypress="return DECIMAL(this)" /></td>
							</tr>
						</table>
					</td>
				</tr>		
			</table>
		</td>
	</tr>
	<tr><td>&nbsp;</td></tr>
	<tr>
		<td align="center">
			<input type="button" value="Volver" class="boton" onclick="window.history.back();" />&nbsp;&nbsp;
			<input type="submit" value="Enviar Nota Pedido" class="boton" />
		</td>
	</tr>
</table>
</form>
</body>
</html>
  #4 (permalink)  
Antiguo 03/02/2011, 10:42
 
Fecha de Ingreso: agosto-2007
Mensajes: 23
Antigüedad: 17 años, 3 meses
Puntos: 0
Respuesta: Problema formulario ASP
CÓDIGO ENVIARNOTAPEDIDO
Código: 
<%@LANGUAGE='VBSCRIPT' CODEPAGE='1252'%>
<%

if enviarMail(generarMail()) then
	response.Redirect("solicitud.asp?enviada=si")
else
	response.Redirect("solicitud.asp?enviada=no")	
end if




public function enviarMail(bodyHTML)

	set objMail = server.CreateObject("Persits.MailSender")
	objMail.Host = "mail.artmaniadecoracion.com"
	objMail.Port = 25
	objMail.From = "[email protected]"
	objMail.AddAddress "[email protected]", "Artmania"
	'objMail.AddBcc "[email protected]"
	objMail.FromName = request.Form("frazonsocial")
	objMail.Subject = "Nota Pedido Artmania"
	objMail.ContentTransferEncoding = "Quoted-Printable"  
	objMail.Body = bodyHTML
	objMail.IsHTML = true	
	
	if objMail.send then
		enviarMail = true
	else
		enviarMail = false
	end if
end function


public function generarMail()
	dim strBody, url, nReg
	url = ""
strBody = "<!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.0 Transitional//EN' 'http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd'>"
strBody = strBody & "<html xmlns='http://www.w3.org/1999/xhtml'>"
strBody = strBody & "<head>"
strBody = strBody & "<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1' />"
strBody = strBody & "<title>NOTA DE PEDIDO - La Moldurera</title>"
strBody = strBody & "<link rel='stylesheet' rev='stylesheet' href='" & url & "estilos.css' />"
strBody = strBody & "<style type='text/css'>.textForm{border-width:0px;font-weight:500;}"
strBody = strBody & "#nota{font-family:Verdana, Arial, Helvetica, sans-serif;font-size:18px;font-weight:bolder;}"
strBody = strBody & ".textCelda{border:1px solid #111111; height:28px;}"
strBody = strBody & ".textCelda2{border-top:1px solid #111111; border-left:0px solid #111111; border-bottom:1px solid #111111;border-right:1px solid #111111; height:28px;}"
strBody = strBody & ".textCelda3{border-top:0px solid #111111; border-left:1px solid #111111; border-bottom:1px solid #111111;border-right:1px solid #111111; 	height:28px;}"
strBody = strBody & ".textCelda32{border-top:0px solid #111111; border-left:0px solid #111111; border-bottom:1px solid #111111;border-right:1px solid #111111; height:28px;}"
strBody = strBody & ".texto{font-size:10px;text-indent:4px}"
strBody = strBody & ".direccion{font-size:9px;font-family:Verdana;font-weight:600;}</style>"
strBody = strBody & "</head><body>"
strBody = strBody & "<table cellpadding='0' cellspacing='0' align='center'>"
strBody = strBody & "	<tr>"
strBody = strBody & "		<td valign='bottom'>"
strBody = strBody & "			<table style='float:left;margin-top:50px' cellpadding='0' cellspacing='0'>"
strBody = strBody & "				<tr>"
strBody = strBody & "					<td valign='bottom' id='nota'>NOTA DE PEDIDO</td>"
strBody = strBody & "				</tr>"
strBody = strBody & "				<tr>"
strBody = strBody & "					<td class='textCelda'>"
strBody = strBody & "						<div class='texto'>FECHA</div>"
strBody = strBody & "						<div align='right' style='margin-top:-5px'>"
strBody = strBody & "			&nbsp;		" & request.Form("ffecha") & "</div>"
strBody = strBody & "					</td>"
strBody = strBody & "				</tr>"
strBody = strBody & "			</table>"
strBody = strBody & "			<div style='float:left;margin-left:100px'><img src='Images/logoNota.jpg' alt='' /></div>"
strBody = strBody & "			<div style='float:right;text-align:right;margin-top:35px' class='direccion'>"
strBody = strBody & "				<div style='font-size:14px'>Artmania Decoración, S.L.</div>"
strBody = strBody & "				Padre Juan de Mariana, 20 . 45534 La Mata (TO) España<br />"
strBody = strBody & "				Tel.: 34/925 74 70 16 / Fax: 34/925 74 72 66<br />"
strBody = strBody & "				E [email protected] / W www.artmania.com"
strBody = strBody & "			</div>"
strBody = strBody & "		</td>"
strBody = strBody & "	</tr>"
strBody = strBody & "	<tr>"
strBody = strBody & "		<td>"
strBody = strBody & "			<table cellpadding='0' cellspacing='0' width='100%'>"
strBody = strBody & "				<tr>"
strBody = strBody & "					<td class='textCelda'>"
strBody = strBody & "						<div class='texto'>RAZÓN SOCIAL</div>"
strBody = strBody & "						<div align='right' style='margin-top:-5px'>"
strBody = strBody & "			&nbsp;		" & request.Form("frazonsocial") & "</div>"
strBody = strBody & "					</td>"
strBody = strBody & "					<td class='textCelda2'>"
strBody = strBody & "						<div class='texto'>NOMBRE COMERCIAL</div>"
strBody = strBody & "						<div align='right' style='margin-top:-5px'>"
strBody = strBody & "			&nbsp;		" & request.Form("fnombrecomercial") & "</div>"
strBody = strBody & "					</td>"
strBody = strBody & "				</tr>			"
strBody = strBody & "			</table>"
strBody = strBody & "		</td>"
strBody = strBody & "	</tr>"
strBody = strBody & "	<tr>"
strBody = strBody & "		<td>"
strBody = strBody & "			<table cellpadding='0' cellspacing='0' width='100%'>"
strBody = strBody & "				<tr>"
strBody = strBody & "					<td class='textCelda3'>"
strBody = strBody & "						<div class='texto'>C.I.F. / N.I.F. / CÓDIGO</div>"
strBody = strBody & "						<div align='right' style='margin-top:-5px'>"
strBody = strBody & "			&nbsp;		" & request.Form("fnifcif") & "</div>"
strBody = strBody & "					</td>"
strBody = strBody & "					<td class='textCelda32'>"
strBody = strBody & "						<div class='texto'>DOMICILIO</div>"
strBody = strBody & "						<div align='right' style='margin-top:-5px'>"
strBody = strBody & "			&nbsp;		 " & request.Form("fdomicilio") & "</div>"
strBody = strBody & "					</td>"
strBody = strBody & "					<td class='textCelda32'>"
strBody = strBody & "						<div class='texto'>C.P.</div>"
strBody = strBody & "						<div align='right' style='margin-top:-5px'>"
strBody = strBody & "			&nbsp;		" & request.Form("fcp") & "</div>"
strBody = strBody & "					</td>"
strBody = strBody & "				</tr>			"
strBody = strBody & "			</table>"
strBody = strBody & "		</td>"
strBody = strBody & "	</tr>"
strBody = strBody & "	<tr>"
strBody = strBody & "		<td>"
strBody = strBody & "			<table cellpadding='0' cellspacing='0' width='100%'>"
strBody = strBody & "				<tr>"
strBody = strBody & "					<td class='textCelda3'>"
strBody = strBody & "						<div class='texto'>POBLACIÓN</div>"
strBody = strBody & "						<div align='right' style='margin-top:-5px'>"
strBody = strBody & "			&nbsp;		" & request.Form("fpoblacion") & "</div>"
strBody = strBody & "					</td>"
strBody = strBody & "					<td class='textCelda32'>"
strBody = strBody & "						<div class='texto'>PROVINCIA / PAÍS</div>"
strBody = strBody & "						<div align='right' style='margin-top:-5px'>"
strBody = strBody & "			&nbsp;		" &
  #5 (permalink)  
Antiguo 03/02/2011, 10:42
 
Fecha de Ingreso: agosto-2007
Mensajes: 23
Antigüedad: 17 años, 3 meses
Puntos: 0
Respuesta: Problema formulario ASP
Código: 
request.Form("fprovinciaPais") & "</div>"
strBody = strBody & "					</td>					"
strBody = strBody & "				</tr>			"
strBody = strBody & "			</table>"
strBody = strBody & "		</td>"
strBody = strBody & "	</tr>"
strBody = strBody & "	<tr>"
strBody = strBody & "		<td>"
strBody = strBody & "			<table cellpadding='0' cellspacing='0' width='100%'>"
strBody = strBody & "				<tr>"
strBody = strBody & "					<td class='textCelda3'>"
strBody = strBody & "						<div class='texto'>TELÉFONO</div>"
strBody = strBody & "						<div align='right' style='margin-top:-5px'>"
strBody = strBody & "			&nbsp;		" & request.Form("ftelefono") & "</div>"
strBody = strBody & "					</td>"
strBody = strBody & "					<td class='textCelda32'>"
strBody = strBody & "						<div class='texto'>FAX</div>"
strBody = strBody & "						<div align='right' style='margin-top:-5px'>"
strBody = strBody & "			&nbsp;		" & request.Form("ffax") & "</div>"
strBody = strBody & "					</td>	"
strBody = strBody & "					<td class='textCelda32'>"
strBody = strBody & "						<div class='texto'>E-MAIL</div>"
strBody = strBody & "						<div align='right' style='margin-top:-5px'>"
strBody = strBody & "			&nbsp;		" & request.Form("femail") & "</div>"
strBody = strBody & "					</td>	"
strBody = strBody & "					<td class='textCelda32'>"
strBody = strBody & "						<div class='texto'>POR MEDIACIÓN DE</div>"
strBody = strBody & "						<div align='right' style='margin-top:-5px'>"
strBody = strBody & "			&nbsp;		" & request.Form("fmediacion") & "</div>"
strBody = strBody & "					</td>					"
strBody = strBody & "				</tr>			"
strBody = strBody & "			</table>"
strBody = strBody & "		</td>"
strBody = strBody & "	</tr>"
strBody = strBody & "	<tr>"
strBody = strBody & "		<td>"
strBody = strBody & "			<table cellpadding='0' cellspacing='0' width='100%'>"
strBody = strBody & "				<tr>"
strBody = strBody & "					<td class='textCelda3'>"
strBody = strBody & "						<div class='texto'>DATOS ENVÍO MERCANCÍA</div>"
strBody = strBody & "						<div align='right' style='margin-top:-5px'>"
strBody = strBody & "				&nbsp;	" & request.Form("fdatosMercancia") & "</div>"
strBody = strBody & "					</td>"
strBody = strBody & "					<td class='textCelda32'>"
strBody = strBody & "						<div class='texto'>I.V.A. RECARGO</div>"
strBody = strBody & "						<div align='right' style='margin-top:-5px'>"
strBody = strBody & "				&nbsp;	" & request.Form("fiva") & "</div>"
strBody = strBody & "					</td>					"
strBody = strBody & "				</tr>			"
strBody = strBody & "			</table>"
strBody = strBody & "		</td>"
strBody = strBody & "	</tr>"
strBody = strBody & "	<tr>"
strBody = strBody & "		<td>"
strBody = strBody & "			<table cellpadding='0' cellspacing='0' width='100%'>"
strBody = strBody & "				<tr>"
strBody = strBody & "					<td class='textCelda3'>"
strBody = strBody & "						<div class='texto'>FORMA DE PAGO</div>"
strBody = strBody & "						<div align='right' style='margin-top:-5px'>"
strBody = strBody & "			&nbsp;		" & request.Form("fformapago") & "</div>"
strBody = strBody & "					</td>"
strBody = strBody & "					<td class='textCelda32'>"
strBody = strBody & "						<table cellpadding='0' cellspacing='0' width='100%'>"
strBody = strBody & "							<tr valign='top'>"
strBody = strBody & "								<td class='textCelda32' style='border-bottom-width:0px;text-align:center'>"
strBody = strBody & "								<div class='texto' style='text-align:center'>ENTIDAD</div>"
strBody = strBody & "					&nbsp;		" & request.Form("fentidad")
strBody = strBody & "								</td>"
strBody = strBody & "								<td class='textCelda32' style='border-bottom-width:0px;text-align:center'>"
strBody = strBody & "								<div class='texto' style='text-align:center'>OFICINA</div>"
strBody = strBody & "					&nbsp;		" & request.Form("foficina")
strBody = strBody & "								</td>"
strBody = strBody & "								<td class='textCelda32' style='border-bottom-width:0px;text-align:center'>"
strBody = strBody & "								<div class='texto' style='text-align:center'>D.C.</div>"
strBody = strBody & "					&nbsp;		" & request.Form("fdc")
strBody = strBody & "								</td>"
strBody = strBody & "								<td class='textCelda32' style='border-bottom-width:0px;border-right-width:0px;text-align:center'>"
strBody = strBody & "								<div class='texto' style='text-align:center'>NÚMERO DE CUENTA</div>"
strBody = strBody & "					&nbsp;		" & request.Form("fnumerocuenta")
strBody = strBody & "								</td>"
strBody = strBody & "							</tr>							"
strBody = strBody & "						</table>"
strBody = strBody & "					</td>					"
strBody = strBody & "				</tr>			"
strBody = strBody & "			</table>"
strBody = strBody & "		</td>"
strBody = strBody & "	</tr>"
strBody = strBody & "	<tr>"
strBody = strBody & "		<td>&nbsp;</td>"
strBody = strBody & "	</tr>"
strBody = strBody & "	<tr>"
strBody = strBody & "		<td>"
strBody = strBody & "			<table cellpadding='0' cellspacing='0' width='100%' border='0'>"
strBody = strBody & "				<tr bgcolor='#F3E4AF'>"
strBody = strBody & "					<td width='20' class='textCelda'><div style='text-align:center' class='texto'>LN</div></td>"
strBody = strBody & "					<td width='300' class='textCelda2'><div style='text-align:center' class='texto'>REFERENCIA</div></td>"
strBody = strBody & "					<td width='75' class='textCelda2'><div style='text-align:center' class='texto'>METROS</div></td>"
strBody = strBody & "					<td width='75' class='textCelda2'><div style='text-align:center' class='texto'>PRECIO / ML</div></td>"
strBody = strBody & "					<td width='90' class='textCelda2'><div style='text-align:center' class='texto'>IMPORTE</div></td>"
strBody = strBody & "				</tr>"
nReg = 22
for i = 1 to nReg				
	strBody = strBody & "<tr>"
	strBody = strBody & "<td class='textCelda3'><div class='texto' style='text-align:center'>" & i & "</div></td>"
	strBody = strBody & "<td class='textCelda32'>" & request.Form("referencia" & i) & "&nbsp;</td>"
	strBody = strBody & "<td class='textCelda32'>" & request.Form("metros" & i) & "&nbsp;</td>"
	strBody = strBody & "<td class='textCelda32'>" & request.Form("precio" & i) & "&nbsp;</td>"
	strBody = strBody & "<td class='textCelda32'>" & request.Form("importe" & i) & "&nbsp;</td>"
	strBody = strBody & "</tr>"
next
strBody = strBody & "				<tr>"
strBody = strBody & "					<td colspan='2'>						"
strBody = strBody & "						<table cellpadding='2' cellspacing='2' width='100%' style='border:1px solid #111111;margin-top:4px'>"
strBody = strBody & "							<tr>"
strBody = strBody & "								<td>"
strBody = strBody & "								<div class='texto'>COMENTARIOS</div>"
strBody = strBody & "						&nbsp;" & request.Form("fcomentarios")
strBody = strBody & "								</td>"
strBody = strBody & "							</tr>"
strBody = strBody & "						</table>"
strBody = strBody & "					</td>"
strBody = strBody & "					<td colspan='2'  valign='top'>						"
strBody = strBody & "						<table width='99%' height='28' style='font-size:16px;font-weight:bold;border:1px solid #111111;margin-top:4px;margin-left:2px'>"
strBody = strBody & "							<tr>"
strBody = strBody & "								<td>&nbsp;&nbsp;TOTAL PEDIDO</td>"
strBody = strBody & "							</tr>"
strBody = strBody & "						</table>"
strBody = strBody & "					</td>"
strBody = strBody & "					<td valign='top'>"
strBody = strBody & "						<table width='100%' class='textCelda2' style='margin-top:4px;'>"
strBody = strBody & "							<tr>"
strBody = strBody & "								<td>" & request.Form("fimportetotal") & "&nbsp;</td>"
strBody = strBody & "							</tr>"
strBody = strBody & "						</table>"
strBody = strBody & "					</td>"
strBody = strBody & "				</tr>		"
strBody = strBody & "			</table>"
strBody = strBody & "		</td>"
strBody = strBody & "	</tr>	"
strBody = strBody & "</table>"
strBody = strBody & "</body>"
strBody = strBody & "</html>"

generarMail = strBody
end function
%>
En esta parte es la que me falla, en la línea 15:
set objMail = server.CreateObject("Persits.MailSender")

La verdad es que no manejo mucho ASP, pero lo único que he realizado ha sido copiar todo los códigos de un hosting a otro, en el anterior hosting funcionaba sin problemas mientras que ahora no.

¿Donde puede estar el problema?
¿Como puedo solucionarlo?

Gracias
  #6 (permalink)  
Antiguo 03/02/2011, 12:12
 
Fecha de Ingreso: enero-2008
Ubicación: Málaga - España
Mensajes: 346
Antigüedad: 16 años, 10 meses
Puntos: 13
Respuesta: Problema formulario ASP
El "problema" puede ser que el nuevo servicio de hosting no tenga instalado el Persits

http://www.persits.com/
  #7 (permalink)  
Antiguo 04/02/2011, 04:33
 
Fecha de Ingreso: agosto-2007
Mensajes: 23
Antigüedad: 17 años, 3 meses
Puntos: 0
Respuesta: Problema formulario ASP
Cita:
Iniciado por alpe2000 Ver Mensaje
El "problema" puede ser que el nuevo servicio de hosting no tenga instalado el Persits

[url]http://www.persits.com/[/url]
Gracias, tiene toda la pinta que sea eso, voy a hablar con los del hosting para que lo instalen y os cuento.

Etiquetas: asp, formulario
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta

SíEste tema le ha gustado a 1 personas


« Tema Anterior | Próximo Tema »


La zona horaria es GMT -6. Ahora son las 13:09.