If you have CDONTS installed on the web server, then you can use it very easilly. The code will look very simpler, here it is:
Code:
<%
    Dim objMail

    Set objMail = Server.CreateObject("CDONTS.NewMail")
    objMail.Send "[email protected]", "[email protected]", "Subject Your login", "This is body with login and password"
    Set objMail = Nothing

%>