Tema: Problema formulario ASP
Ver Mensaje Individual
  #5 (permalink)  
Antiguo 03/02/2011, 10:42
blimo86
 
Fecha de Ingreso: agosto-2007
Mensajes: 23
Antigüedad: 16 años, 9 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