Foros del Web - Ver Mensaje Individual

Shiryu_Libra · #5 (**permalink**) 27/02/2008, 09:28

intenta lo siguiente....

Código PHP:

  <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
if request.ServerVariables("REQUEST_METHOD")="post" then
    redir="una pagina de redireccion"
    if request.Form("mtdo")="verificar" then
        var3=request.Form("coments")
        Dim ObjetoMail
        Set ObjetoMail=CreateObject("CDO.Message")
        ObjetoMail.To = "[email protected]"
        ObjetoMail.From = "[email protected]"
        ObjetoMail.Subject = "Comentarios a Recursos Humanos" 
        ObjetoMail.HTMLBody = VAR3 
        if Err=0 then
            ObjetoMail.Send
            response.Redirect redir
        else
            response.Write "Error en envio de correo"
        end if
        Set ObjetoMail=Nothing
    end if
end if
%>
<!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=utf-8" />
<title>Documento sin t&iacute;tulo</title>
</head>

<body>
</p>
<form id="form1" name="form1" method="post" action="/?ProgId=Verificar">
<input type="hidden" value="Verificar" name="mtdo" />
  <label>
  <textarea name="coments" cols="50" rows="5" id="coments"></textarea>
  </label>
  <p>
    <label>
    <input type="submit" name="Submit" value="Enviar"  />
    </label>
    <label>
    <input type="reset" name="Submit2" value="Restablecer" />
    </label>
  </p>
</form>
<p>&nbsp;</p>
</body>
</html>

funcionara???