Formulário para intranet

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
%>