% Dim objMail strWho = Request ("name") strEmail = Request("email") strComment = Request("comments") strFrom = Request.ServerVariables("SERVER_NAME") Set objMail = CreateObject("CDONTS.NewMail") objMail.From = strEmail objMail.To = "account22201@yahoo.com" objMail.Subject = "Pet Store Sign Up" objMail.Body = " " & strWho & " and " & strEmail & " and " & strComment & "." objMail.Body = "Name = " & strWho & ""& vbCrLf _ & "E mail = " & strEmail & ""& vbCrLf _ & "Comment = " & strComment & "" objMail.importance = cdoHigh objMail.Send Set objMail = nothing %>
Thank You
You will recieve your Logon by Email