erro em formulario

[Guest cristianorodrigues]

Olá pessoal não estou consegindo resolver um problema nesse codigo asp de envio de email..

se alguém puder ajudar fico grato pois não tenho muitoa experiencia em ASP.

parecer ser bem simples...quando clico no botão enviar na pagina do site aparece o erro 8004020e desativei

as mensagens amigaveis ele mostra erro na linha 39 "Objmail.send".

________________________________________________________________________________________________________

aqui esta o falecom.html

<td width="360" class="textoprincipal">

<div align="right"><strong>Escolha

o departamento que você deseja enviar sua mensagem: </strong></div></td>

<td width="395"><strong>

<select name="depto" id="select2">

<option value="lisete@bilu.com.br">RH</option>

<option value="crisw@bilu.com.br">Faturamento</option>

<option value="arlindo@bilu.com.br">Logística</option>

<option value="claudio@bilu.com.br">Suprimentos</option>

<option value="acacio@bilu.com.br">Produção</option>

<option value="sandro@bilu.com.br">Vendas</option>

<option value="hamilton@bilu.com.br">Exportação</option>

<option value="osvaldo@bilu.com.br">Diretoria</option>

</select>

</strong></td>

</tr>

<tr>

<td width="360" class="textoprincipal">

<div align="right"><strong>*Nome:</strong></div></td>

<td width="395">

<input name="nome" type="text" id="nome" size="39"></td>

</tr>

<tr>

<td width="360" class="textoprincipal">

<div align="right"><strong>*E-mail:</strong></div></td>

<td width="395">

<input name="email" type="text" id="email" size="39"></td>

</tr>

<tr>

<td width="360" class="textoprincipal">

<div align="right"><strong>*Telefone:</strong></div></td>

<td width="395">

<input name="fone" type="text" id="fone" size="39"></td>

</tr>

<tr>

<td width="360" class="textoprincipal">

<div align="right"><strong>*Cidade: </strong></div></td>

<td width="395" class="textoprincipal">

<input name="cidade" type="text" accept=""id="cidade" size="39">

UF:

<select name="uf" id="select">

<option value="Acre">AC</option>

<option value="Alagoas">AL</option>

<option value="Amapá">AP</option>

<option value="Amazonas">AM</option>

<option value="Bahia">BA</option>

<option value="Distrito Federal">DF</option>

<option value="Ceará">CE</option>

<option value="Espírito Santo">ES</option>

<option value="Goiás">GO</option>

<option value="Maranhão">MA</option>

<option value="Mato Grosso">muito</option>

<option value="Mato Grosso do Sul">MS</option>

<option value="Minas Gerais">MG</option>

<option value="Pará">PA</option>

<option value="Paraíba">PB</option>

<option value="Paraná">PR</option>

<option value="Pernambuco">PE</option>

<option value="Piauí">PI</option>

<option value="Rio de Janeiro">RJ</option>

<option value="Rio Grande do Norte">RN</option>

<option value="Rondônia">RO</option>

<option value="Roraima">RR</option>

<option value="Rio Grande do Sul">RS</option>

<option value="Santa Catarina">SC</option>

<option value="São Paulo">SP</option>

<option value="Sergipe">SE</option>

<option value="Tocantins">TO</option>

</select> </td>

</tr>

<tr>

<td width="360" height="102" valign="top" class="textoprincipal">

<div align="right"><strong>*Mensagem:</strong></div></td>

<td width="395"><textarea name="mensagem" cols="39" rows="4" id="mensagem"></textarea></td>

</tr>

<tr>

<td width="360" valign="bottom" class="textoprincipal"><img src="imgs/falecom.gif" width="237" height="78" border="0"></td>

<td width="395" valign="top">

<p class="textoprincipal"><strong>*todos os campos são obrigatórios</strong></p>

<p><input type="submit" name="Submit" value="Enviar">

</p></td>

__________________________________________________________________________________________________________

Aqui esta o falecom.asp

<%@LANGUAGE = VBSCRIPT%>

<%

Dim iConf

Dim Flds

Set iConf = Server.CreateObject("CDO.Configuration")

Set Flds = iConf.Fields

With Flds

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail-fwd"

.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

.Update

End With

%>

<%Response.Buffer = true%>

<html>

<head>

<body>

<%

'on error resume next

depto = Request.Form("depto")

nome = Request.Form("nome")

email = Request.Form("email")

fone = Request.Form("fone")

cidade = Request.Form("cidade")

uf = Request.Form("uf")

mensagem = Request.Form("mensagem")

corpomail = "<font size='2' face='Arial, Helvetica, sans-serif'><b>Nome:</b> " & nome & "<br><b>E-mail:</b> " & email & "<br><b>Telefone:</b> " & fone & "<br><b>Cidade:</b> " & cidade & "<b>UF:</b> " & uf & "<br><b>Mensagem:</b> " & mensagem & "<br><br></font></body></html>"

Set objmail = Server.CreateObject("CDO.Message")

Set objmail.Configuration = iConf

objmail.from = email

objmail.to = depto

objmail.subject = "Site Bilu - Fale Conosco"

objmail.HtmlBody = corpomail

objmail.send

set objmail = nothing

Response.Redirect "obrigado.htm"

%>

</body>

</html>

[webdeveloper]

Descreva um pouco melhor o erro.

[sabino]

Esse erro ocorre quando algum endereço está mal formatado.

Veja nesse artigo um exemplo de como corrigir o problema: http://bytes.com/forum/thread433129.html.

[]'s a todos!