<%@ Language="VBscript" %> <% Option Explicit %> ההודעה נשלחה. <% 'declare the variables that will receive the values 'receive the values sent from the form and assign them to variables 'note that request.form("name") will receive the value entered into the textfield 'called name, and so with email and message Dim name, email, message, NewMailObj name=request.form("name") email=request.form("email") message=request.form("message") 'create the mail object and send the details Set NewMailObj=Server.CreateObject("CDONTS.NewMail") NewMailObj.From = "mail@gama.co.il" NewMailObj.To = "info@gama.co.il" NewMailObj.Subject = "New message sent from Gama.co.il.." NewMailObj.Body = "the name you entered was " & name & _ "
the email was " & email & _ "
the message was " & message 'you need to add the following lines FOR the mail to be sent in HTML format NewMailObj.BodyFormat = 0 NewMailObj.MailFormat = 0 NewMailObj.Send 'Close the email object and free up resources Set NewMailObj = nothing Response.write "The email was sent." %>