<% Response.Buffer = True %> <% strName = Request.Form("q0_Name") strPhoneNumber = Request.Form("q2_Contactnumber") strEmailAddress = Request.Form("q1_Email") strAddress = Request.Form("q9_Address") strMessage = Request.Form("q6_YourMessage") if strEmailAddress = "" then %>             Name * E-mail * Contact number * Address * Your Message *               <% else ' Code here Set MailObj = CreateObject("CDO.Message") MailObj.From = "contact@egurus.com.au" MailObj.To = "duaharmeet@yahoo.com" 'MailObj.To = " imbeliever@gmail.com" 'MailObj.Cc = "" MailObj.Subject = "New Contact Enquiry" 'MailObj.HTMLBody = 1 Text = "Hi, A new user has just contacted you. Following are the Details" & " " & " " Text = Text & "Full Name: " & strName & " " Text = Text & "Phone Number: " & strPhoneNumber & " " Text = Text & "Email Address: " & strEmailAddress & " " Text = Text & "Address: " & strAddress & " " Text = Text & "Message: " & strMessage & " " MailObj.HTMLBody = Text MailObj.Send Response.Redirect("http://www.egurus.com.au/thanks.htm") 'Response.Write("Thanks for providing the information, we will get back to you soon. Click Here to go back to the Contact Page.") Set MailObj = nothing 'Response.Write("Message Sent !!") end if %>

Copyrights © Egurus.com.au All rights reserved.