39th Annual Geoscience Forum

Registration Form

Delegates (PDF)

Discounts

Accommodation

Travel

<% mode = Request.querystring("mode") %>

Request more info on the Geoscience Forum

<% Select Case mode Case "" on error resume next if Trim(Session("form_key")) = "" or Session(Session("form_key")) = "yes" then Session("form_key") = RandomString(10) Session(Session("form_key")) = "no" Session("human_verified") = "no" end if on error goto 0 %> <% Case "sendemail" if Session("human_verified") <> "yes" then 'check captcha here if recaptcha_confirm(private_rkey,Request.form("recaptcha_challenge_field"), Request.Form("recaptcha_response_field")) <> "" then %>

Your answer of the verification question is not correct, please click "back" button in your browser and try again.

<% response.End() else Session("human_verified") = "yes" end if end if strBody = Request.form("txtYourName") & " (" & Request.form("txtYourEmail") & ") has requested more info on the Geoscience Forum and here are the comments:" strBody = strBody & vbCRlf & vbCRlf & Request.form("txtComments") IF Request.form("txtYourEmail") <> "" THEN varSender = Request.form("txtYourEmail") ELSE varSender = "nwtmines@ssimicro.com" END IF if DebugMode then strTo = "test@outcrop.com" else strTo = "nwtmines@ssimicro.com" end if 'Time to send the email Dim Mailer Set Mailer = Server.CreateObject("jmail.smtpmail") Mailer.AddRecipient(strTo) Mailer.Sender = varSender Mailer.Subject = "Request for more info about Geoscience Forum" Mailer.Body = strBody Mailer.Execute() Set Mailer = Nothing Response.write "The information request for the Geoscience Forum has been emailed and someone will respond to your request shortly." '################### Session("human_verified") = "no" Session(request.Form("form_key")) = "yes" End Select %>