ASP - Sobre formulario email

Hola, tengo este asp que es para un email, me podrian decir donde está el error??

<%
Dim nombre=Request.Form("nombre")
Dim institucion=Request.Form("institucion")
Dim telefono=Request.Form("telefono")
Dim ciudad=Request.Form("ciudad")
Dim mail=Request.Form("mail")
Dim asunto="SOLICITUD DE INFORMACION"
Dim cont=Request.Form("cont")
Dim to,estado
cont="1"
if (cont =="1") then
to = "[email protected]
else
to = "[email protected]


Dim mensaje="Nombre: " & nombre & VbCrLf
Dim mensaje="Institucion: " & institucion & VbCrLf
Dim mensaje="Telefono: " & telefono & VbCrLf
Dim mensaje="Ciudad: " & ciudad & VbCrLf
Dim mensaje="Mail: " & mail & VbCrLf
Dim mensaje="Mensaje: " & Request.Form("mensaje")

Set oMail = Server.CreateObject ("CDONTS.NewMail")
oMail.From =mail
oMail.To = to
oMail.Subject = asunto
oMail.Body = mensaje
oMail.Send
If Not objMail Is Nothing Then
%>
<script languaje="javascript">
alert('Tus datos fueron enviados correctamente')
document.location="../html/contacto.html";
</script>

<%
else
%>
<script languaje="javascript">
alert('A ocurrido un error al enviar tus datos intentalo mas tarde')
document.location="../html/contacto.html";
</script>

<%
endif

Set oMail = nothing
%>

intenta usar el objeto error de asp para verificar q el objeto q usas para el mail haya hecho lo indicado. Otra cosa q podria ser es q nunca le indicas a ese objeto q server usar para enviar el mal.

saludos