<%
'Set the response buffer to true so we execute all code before sending to the clients browser
Response.Buffer = True
'Dimension variables
Dim strBody 'Holds the body of the e-mail
Dim objCDOMail 'Holds the mail server object
Dim strMyEmailAddress 'Holds your e-mail address
Dim strCCEmailAddress 'Holds any carbon copy e-mail addresses if you want to send to more tahn on e-mail address
Dim strReturnEmailAddress 'Holds the return e-mail address of the user
'----------------- Place your e-mail address in the following sting ----------------------------------
strMyEmailAddress = "info@yargem.com"
'-----------------------------------------------------------------------------------------------------
'----------- Place Carbon Copy e-mail address's in the following sting, supporated by ; --------------
'Use this string only if you want to send the copy's of the e-mail to more than one person
strCCEmailAddress = ""
'-----------------------------------------------------------------------------------------------------
'Read in the users e-mail address
strReturnEmailAddress = Request.Form("email")
'Initialse strBody string with the body of the e-mail
strBody = "Name: " & Request.Form("firstName") & " " & Request.Form("lastName") & vbCrLf & vbCrLf
strBody = strBody & "Address: -" & vbCrLf
If (Request.Form("street1")) > "" Then
strBody = strBody & " " & Request.Form("street1") & vbCrLf
End If
If (Request.Form("town")) > "" Then
strBody = strBody & " " & Request.Form("town") & vbCrLf
End If
If (Request.Form("county")) > "" Then
strBody = strBody & " " & Request.Form("county") & vbCrLf
End If
strBody = strBody & vbCrLf & "Telefone: " & Request.Form("tel") & vbCrLf & vbCrLf
strBody = strBody & "E-mail: " & strReturnEmailAddress & vbCrLf & vbCrLf
strBody = strBody & "Açiklama: - " & vbCrLf & Request.Form("enquiry") & vbCrLf
'Check to see if the user has entered an e-mail address and that it is a valid address otherwise set the e-mail address to your own otherwise the e-mail will be rejected
If Len(strReturnEmailAddress) < 5 OR NOT Instr(1, strReturnEmailAddress, " ") = 0 OR InStr(1, strReturnEmailAddress, "@", 1) < 2 OR InStrRev(strReturnEmailAddress, ".") < InStr(1, strReturnEmailAddress, "@", 1) Then
'Set the return e-mail address to your own
strReturnEmailAddress = strMyEmailAddress
End If
'Create the e-mail server object
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
'Send the e-mail
'Who the e-mail is from (this needs to have an e-mail address in it for the e-mail to be sent)
objCDOMail.From = Request.Form("firstName") & " " & Request.Form("lastName") & " <" & strReturnEmailAddress & ">"
'Who the e-mail is sent to
objCDOMail.To = strMyEmailAddress
'Who the carbon copies are sent to
objCDOMail.Cc = strCCEmailAddress
'The subject of the e-mail
objCDOMail.Subject = "Enquiry sent from enquiry form on website"
'The main body of the e-amil
objCDOMail.Body = strBody
'The format the e-mail is sent in
objCDOMail.MailFormat = CdoMailFormatText 'If you want it to be in MIME(HTML) format use CdoMailFormatMIME
'Importance of the e-mail (0=Low, 1=Normal, 2=High)
objCDOMail.Importance = 1
'Send the e-mail
objCDOMail.Send
'Close the server object
Set objCDOMail = Nothing
%>
MESAJ FORMU
