Ver Mensaje Individual
  #1 (permalink)  
Antiguo 21/02/2009, 00:14
eloyseo
 
Fecha de Ingreso: febrero-2009
Mensajes: 9
Antigüedad: 16 años, 2 meses
Puntos: 0
Exclamación Formulario .ASP Permiso denegado.

Hola estimados, de este maravilloso foro. Hace unos días que vengo renegando con un formulario .ASP, y no se porque no anda, cuando lo cuelgo a la web, y pruebo el formulario, me tira lo siguiente.

“Permiso denegado”

No conozco los motivos de porque, les peso también el link donde esta el formulario para que vean el error.

serviciospartenaire.com.ar/Contactenos.html

Por lo que averigue, el servidor, es un servidor de correo, y usa SMTP, pero no se como agregarlo, ni en que parte del codigo va.
serviciospartenaire.com.ar/Contactenos.html
Y también les paso el código del formulario, el del .ASP

Codigo Formulario
<FORM action="envio.asp" method="post">
<span class="Estilo16">Nomb</span><span class="Estilo16">re:&nbsp;&nbsp;
<input name="Nombre" type="text" size="50" maxlength="100">
<br>
<br>
Email:&nbsp;&nbsp;
<input name="Email" type="text" size="50" maxlength="100">
</span><br>
<br>
Consulta:<BR>
<textarea name="Consulta" cols="50" rows="5"></textarea><br><br>

<input name="btnEnviar" type="submit" value="Enviar">&nbsp;&nbsp;
<input name="btnLimpiar" type="reset" value="Limpiar">
</FORM>

Codigo .ASP
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Envio de AspEmail</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<%
Dim strEmail, strNombre, strConsulta, Mail
strEmail = request.form("Email")
strNombre = request.form("Nombre")
strConsulta = request.form("Consulta")

Set Mail = Server.CreateObject("CDO.Message")
Mail.to = "aca puse mi mail"
Mail.From = "aca puse mi mail"
Mail.Subject = "Consulta desde la Web"
Mail.Body = "Email: " & strEmail & vbCrLf & "Nombre: " & strNombre & vbCrLf & "Consulta: " & vbCrLf & strConsulta
On Error Resume Next
Mail.Send
Set Mail = Nothing
If Err <>0 then
Response.Write "Fallo en la Conexión" & Err.Description
End if
%>
</body>
</html>

Espero que me den una mano, esto me esta matando la cabeza….