<% dim mailer, bodytext set mailer = server.CreateObject("CDONTS.NewMail") mailer.From="cdchq_feedback@pa.gov.sg" mailer.To="cdchq_feedback@pa.gov.sg" mailer.Subject="Assistance Form" bodytext="Name: " & request.form("name") & chr(10) & chr(13) bodytext=bodytext & "Sex: " & request.form("sex") & chr(10) & chr(13) bodytext=bodytext & "Date Of Birth: " & request.form("dd") & "/" & request.form("mm") & "/" & request.form("yy") & chr(10) & chr(13) bodytext=bodytext & "NRIC Number: " & request.form("nricno") & chr(10) & chr(13) bodytext=bodytext & "NRIC Type: " & request.form("nrictype") & chr(10) & chr(13) bodytext=bodytext & "Type Of Dwelling: " & request.form("dwellingtype") & chr(10) & chr(13) bodytext=bodytext & "Ownership Type: " & request.form("ownershiptype") & chr(10) & chr(13) bodytext=bodytext & "Block: " & request.form("blockno") & chr(10) & chr(13) bodytext=bodytext & "Unit/House No.: " & request.form("unitno") & chr(10) & chr(13) bodytext=bodytext & "Street: " & request.form("street") & chr(10) & chr(13) bodytext=bodytext & "Postal Code: " & request.form("postalcode") & chr(10) & chr(13) bodytext=bodytext & "Your CDC: " & request.form("yourcdc") & chr(10) & chr(13) if request.form("hometel")<>"" and not(isempty(request.form("hometel"))) then bodytext=bodytext & "Contact No.: " & request.form("hometel") & " (Home)" & chr(10) & chr(13) end if if request.form("officetel")<>"" and not(isempty(request.form("officetel"))) then bodytext=bodytext & "Contact No.: " & request.form("officetel") & " (Office)" & chr(10) & chr(13) end if if request.form("mobiletel")<>"" and not(isempty(request.form("mobiletel"))) then bodytext=bodytext & "Contact No.: " & request.form("mobiletel") & " (Mobile)" & chr(10) & chr(13) end if if request.form("pager")<>"" and not(isempty(request.form("pager"))) then bodytext=bodytext & "Contact No.: " & request.form("pager") & " (Pager)" & chr(10) & chr(13) end if bodytext=bodytext & "Nationality: " & request.form("nationality") & chr(10) & chr(13) bodytext=bodytext & "Race: " & request.form("race") & chr(10) & chr(13) if request.form("race")="Others" then bodytext=bodytext & "Others: " & request.form("others") & chr(10) & chr(13) end if bodytext=bodytext & "Maritial Status: " & request.form("maritialstatus") & chr(10) & chr(13) bodytext=bodytext & "Employment Status: " & request.form("employmentstatus") & chr(10) & chr(13) bodytext=bodytext & "Occupation: " & request.form("occupation") & chr(10) & chr(13) bodytext=bodytext & "Gross Monthly Income $: " & request.form("grossmonthlyincome") & chr(10) & chr(13) bodytext=bodytext & "Type Of Assistance Requested: " & request.form("assistancerequested") & chr(10) & chr(13) bodytext=bodytext & "Assistance Needed: " & request.form("assistanceneeded") & chr(10) & chr(13) mailer.Body=bodytext mailer.send set mailer=nothing select case request.form("yourcdc") case "North East" contactno = "7845928" case "North West" contactno = "7678130" case "South East" contactno = "2438753" case "South West" contactno = "8974600" case "Central Singapore" contactno = "3709901" end select response.redirect "thank.asp?cdc=" & request.form("yourcdc") & "&contactno=" & contactno %>