%
dim name,email,phone,message
name=request.form("name")
email=request.form("email")
phone=request.form("phone")
message=request.form("message")
strSubject = "Feedback Inforamtion : passwordnet"
strBody = " info@password.net.nz "
strBody = strBody & vbCrLf
strBody = strBody & " Name :- " & name & vbCrLf
strBody = strBody & " Email:- " & email & vbCrLf
strBody = strBody & " Phone :- " & phone & vbCrLf
strBody = strBody & " Message:- " & message & vbCrLf
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = "" & email & ""
objCDOMail.To = "info@password.net.nz"
objCDOMail.CC = "info@password.net.nz"
objCDOMail.BCC = "webmaster@lipl.in"
objCDOMail.Subject = strSubject
objCDOMail.Body = strBody
objCDOMail.MailFormat = 0
objCDOMail.Send
Set objCDOMail = Nothing
%>
password