Duduma

<% 'Randomly Generate a picture URL for security reasons strIDImage = CStr(GetIDImage()) %> <% 'strArr(0) = "[url]" 'strArr(1) = "[url" 'strArr(2) = " 0 then ' strFound = 1 'end if 'i = i + 1 'loop 'if strFound = 0 then dispswitch=true if Request("Send") <> "" Then if 1=1 then dispswitch=true strHost = "192.168.80.2" FromName = "Duduma Guesthouse" FromEmail = "Duduma@mail.com" Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = strHost ' Declare the variables Dim arSplit, i, element ' Request Info 'strRequest = (request.form("ckbContact")) 'Split the string into an array 'arSplit = split(strRequest,",") ' Loop through the split items 'for each element in arSplit ' response.write element & "
" 'next 'for i = 0 to UBound(arSplit) '''''populate the email addresses Mail.From = "Duduma@mail.com" Mail.FromName = "Duduma Guesthous" Mail.AddAddress "duduma@mail.com" 'next 'Add BCC and CC's Mail.AddBcc "webMaster@chillies.co.za" Mail.AddBcc "ben@chillies.co.za" ''''''email address population completed ' message subject Mail.Subject = "Website Response on " & WeekDayName(WeekDay(Date)) & ", " & Date & ", " & Time & " " & " " & Request("Subject") ' message body Str = "" & _ vbcrlf & "Contact Page Information from www.duduma.co.za" & vbcrlf & _ vbcrlf & "====================================================" & vbcrlf & _ vbcrlf & "" & _ vbcrlf & "Country: " & Request.Form("cboSelCountry") & _ vbcrlf & "Name: " & Request.Form("Name") & _ vbcrlf & "Surname: " & Request.Form("Surname") & _ vbcrlf & "-----------------Contact Information----------------" & _ vbcrlf & "E-Mail: " & Request.Form("email") & _ vbcrlf & "" & _ vbcrlf & "Cell: " & Request.Form("cell") & _ vbcrlf & "Tel: " & Request.Form("tel") & _ vbcrlf & "" & _ vbcrlf & "Request :" & Request.Form("Subject") & vbcrlf & _ vbcrlf & Request.Form("body") & _ vbcrlf & "" & _ vbcrlf & "====================================================" & vbcrlf & _ vbcrlf & "Powered by: Chillies.co.za" Mail.Body = Str strErr = "" bSuccess = False On Error Resume Next ' catch errors Mail.Send ' send message if Err <> 0 Then ' error occurred 'write email error log '''''''''''''''''''' strErr = Err.Description else 'write email log ''''''''''''''' 'sms intigration if SMS_Integration = true then 'nothing end if ''''''''''''''' bSuccess = True end if else dispswitch=false%>

A Fatal error occurred. Your Email Configaration needs to be setup. Please contact your system administrator.

<%end if end if 'end if %>

&TID=<%=request("TID")%>" ID="Form2">

<%if strErr <> "" or bSuccess then%> <%end if%> <% show_all = request("show") 'response.Write(show_all&"hello") if show_all = "" then show_all = "false" end if if show_all = "" then show_all = "false" end if dim Counter Counter = 0 %>

<% If strErr <> "" Then %>

Error occurred: <% = strErr %>

<% End If %> <% If bSuccess Then %>

Thank You for your query! You will be contacted.

<% End If %>

<% %>

Name:Surname:

Email:

Mobile:

Tel:

Subject:

Message: