Enviar mail

[JavierMMM]

Lo solucion'e facil :s

Código:

function url_encuesta(usuario,institucion,correo,concat)
        Set myMail = server.CreateObject("CDO.Message")
	url = "http://miurl/mipagina.asp?"
	cadena = (url) & "usuario=" & usuario & "&institucion=" & institucion & "&correo=" & correo & "&codigomd5=" & concat & "&BtnEntrar=Entrar"
	myMail.Subject="Encuesta"
	myMail.From="[email protected]"
	myMail.To=(mail)
	myMail.TextBody=cadena
	myMail.Send
	set myMail=nothing

end function


Set con=Server.CreateObject("ADODB.Connection")
Set Rs=Server.CreateObject("ADODB.Recordset")

Con.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("formulario.mdb")
Con.open	

Rs.open "Select usuario,institucion,correo From correos Where institucion ='x'",con
usr = Rs("usuario")
ins = Rs("institucion")
mail = Rs("correo")
concat = usr & ins & mail
concat = MD5(concat)

Do While not Rs.eof
	url_encuesta usr,ins,mail,concat
	...
	Rs.movenext
loop

metiendo la creacion del onjeto a la funcion... que despistado :s

Gracias Adler