<%
nome = request("nome")
if nome <> "" then
nome = request("nome")
endereco = request("endereco")
bairro = request("bairro")
cidade = request("cidade")
mail = request("mail")
ddd = request("ddd")
telefone = request("telefone")
comoconheceu = request("comoconheceu")
comentario = request("comentario")
if email = "" then email = "hotel@bougainville.com.br" end if
destinatario = ""
assunto = "Formulário de contato"
Dim objEmail,mensagem
On Error Resume Next
mensagem= "Nome: "& nome & vbCrLf & _
"Endereço: "& endereco & vbCrLf & _
"Bairro: "& bairro & vbCrLf & _
"Cidade: "& cidade & vbCrLf & _
"E-mail: " & mail & vbCrLf & _
"Telefone: "& ddd & telefone & vbCrLf & _
"Como nos Conheceu: "& comoconheceu & vbCrLf & _
"Comentario: " & vbcrlf &_
" "& comentario
Set objEmail = Server.CreateObject("Dundas.Mailer")
objEmail.FromAddress = email
objEmail.TOs.Add "hotel@bougainville.com.br"
objEmail.SMTPRelayServers.Add "mail.prolink.com.br"
objEmail.Subject = assunto
objEmail.Body = mensagem
objEmail.SendMail
If Err.Number <> 0 Then
Response.Redirect "erro.htm" 'coloque o arquivo que tera o erro !
Else
Response.Redirect "obrigado.htm" ' coloque o nome do arquivo de msg de sucesso!
End If
Set objEmail = nothing
end if
%>
Bougainville