Formulário para intranet

[Uda10 0]

Olá,

 

Tenho um formulário que envia as informações, via post, para um documento asp denominado enviacmt.asp

 

Problema; Esta indo pra página de erro, preciso configurar esse forumário p/ um INTRANET.

 

Alguém podería me mostrar uma luz, um caminho. Estou perdido quanto a o que esta causando esse erro.

 

agradecído,

JOHN FRANÇA

 

 

'amplexos

 

---FORMULÁRIO----------------------------------------------

<table width="900" border="0" cellspacing="0" cellpadding="0" height="35">
   <form action="[b]enviaCMT.asp[/b]" method="post" name="formCMT" id="formCMT" onsubmit="return validaForm()">
     <table background="imagens/bgform.jpg" border="0" cellpadding="6" cellspacing="0" >
       <tr>
         <td width="161"><div align="left"><strong>Nome de Guerra:</strong></div></td>
         <td width="300"><div align="left">
           <input name="Nome" align="left" type="text" />
         </div></td>
       </tr>
       <tr>
         <td><div align="left"><strong>Posto/Graduação:</strong></div></td>
         <td><select name="Posto/Graduação">
           <option>-</option>
           <option>CAP</option>
           <option>1° TEN</option>
           <option>2° TEN</option>
           <option>ASP</option>
           <option>SO</option>
           <option>1° SGT</option>
           <option>2° SGT</option>
           <option>3° SGT</option>
           <option>CB</option>
           <option>S1</option>
           <option>S2</option>
           <option>CV</option>
         </select>          </td>
       </tr>
       <tr>
         <td><div align="left"><strong>Esquadrão/Seção:</strong></div></td>
         <td><select name="Esquadrão/Seção">
           <option>-</option>
           <option>1°/7° GAv</option>
           <option>GSB</option>
           <option>DTCEA-SV</option>
           <option>PASV</option>
           <option>EC</option>
           <option>EP</option>
           <option>EI</option>
           <option>ES</option>
           <option>EIE</option>
           <option>BINFA</option>
           <option>SO</option>
           <option>SCOAM</option>
           <option>STI</option>
         </select>          </td>
       </tr>
       <tr>
         <td><div align="left"><strong>Unidade Militar:</strong></div></td>
         <td><input name="Unidade" type="text" /></td>
       </tr>
       <tr>
         <td><div align="left"><strong>E-mail Intraer:</strong></div></td>
         <td><input name="E-mail" type="text" />
           (xxx@yyyy.intraer)</td>
       </tr>
       <tr>
         <td><div align="left"><strong>Ramal:</strong></div></td>
         <td><input name="Ramal" type="text" /></td>
       </tr>
       <tr bgcolor="#eeeeee">
         <td bgcolor="#FFFFFF">Assunto</td>
         <td colspan="3" bgcolor="#FFFFFF">
            <input name="Assunto" type="radio" value="merito" />
           Mérito
            <input name="Assunto" type="radio" value="demerito" />
           Demérito
            <input name="Assunto" type="radio" value="sugestao" />
           Sugestão</td>
       </tr>
       <tr>
         <td><div align="left"><strong>Mensagem:</strong></div></td>
         <td><textarea name="Mensagem" cols="30" rows="7" id="Mensagem"></textarea></td>
       </tr>
       <tr>
         <td colspan="2"><div align="center">
           <input name="enviar" type="submit" value="Enviar" />
           <input name="limpar" type="reset" value="Limpar" />
         </div></td>
       </tr>
     </table>
   </form>
 </table>

 

 

DOCUMENTO ASP

 

    <%@ Language=VBScript %>
<%
'Script para envio de e-mail em formulário

Dim vErro,vSucesso,vErr
vErro = ""
vSucesso = "obrigado.htm"
vErr = "erro.htm"
if Request.Form.Count + Request.QueryString.Count > 0 then
Call Respform
Call Resp
end if
'-----------------------------------------------------------
Sub Respform()
On Error Resume Next
Dim msg,vData,vHora,vPara,vNomeform,vFrom,vAssunto,vCc,vDom, vIp_usr
vIp_usr = Request.ServerVariables("REMOTE_ADDR")
vNomeForm = " FALE COM O COMANDANTE DA BASV"
vPara ="francajef@basv.intraer"
vFrom = "webform@basv.intraer"
vCc = ""
vAssunto = "Mensagem para o Comandante da BASV"
vData = Date()
vData = day(vData) & "/" & month(vData) & "/" & year(vData)
vHora = Time()
vHora = hour(vHora) & "h" & minute(vHora) & "min" & second(vHora) & "s"
msg1 = "Mensagem" & vNomeForm
msg2 = " submetido em " & vData & " às " & vHora
msg3 = "Sr. comandante, utilize os contatos fornecidos pelo usuário para enviar uma resposta." & VbCrLf
msg4 = "MENSAGEM ENVIADA DA ESTACAO:  " & vIp_usr
msg = msg1 & msg2 & VbCrLf
msg = msg & msg3 & VbCrLf
msg = msg & msg4 & VbCrLf
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
	for each campo in Request.Form
		if campo <> "B1" and campo <> "B2" and campo <> "B3" and campo <> "B4" then 
			msg = msg & string(60,"-") & vbcrlf
			msg = msg & campo & " : " & Request.Form(campo) & VbCrLf
		end if
	next
else
	for each campo in Request.QueryString
		if campo <> "B1" and campo <> "B2" and campo <> "B3" and campo <> "B4" then 
			msg = msg & string(60,"-") & vbcrlf
			msg = msg & campo & " : " & Request.QueryString(campo) & VbCrLf
		end if
	next
end if
msg = msg & string(60,"*") & vbcrlf
EnviaEmail msg,vFrom,vPara,vCc,vAssunto
If Err then
	vErro = Err.number & " : "
	vErro = Err.description
	Err.Clear
End if
End Sub
'-----------------------------------------------------------
Function EnviaEmail(ByVal p_body, Byval p_from, ByVal p_to, ByVal p_cc, Byval p_subject)
On Error Resume Next
Dim iMsg, Flds, iConf, status
Const SERVIDOR_SMTP = "10.64.16.53"
status = true
Set iMsg = Server.CreateObject("CDO.Message")
Set iConf = Server.CreateObject("CDO.Configuration")

Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SERVIDOR_SMTP
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
Flds.Update
With iMsg
	Set .Configuration = iConf
	.To = p_to
	.CC = p_cc
	.From = p_from
	.Sender = p_from
	.Subject = p_subject
	.TextBody = p_body
	.Send
	End With
If Err.number <> 0 Then
	status = false
End If
If IsObject(iMsg) Then Set iMsg = Nothing
If IsObject(Flds) Then Set Flds = Nothing
If IsObject(iConf) Then Set iConf = Nothing
EnviaEmail = status
End Function
'-----------------------------------------------------------
Sub Resp()
if vErro = "" then
	Response.Redirect(vSucesso)
else
	Response.Redirect(vErr)

end if
End Sub
%>

[xanburzum 169]

o SMTP esta configurado corretamente ?

[Vinicius Ianni 189]

Verifique também se o componente está instalado no servidor que abriga a aplicação ASP