contact us

If you’d like to be updated on Galleon Productions projects – or if you’d like to be sent our current rate card please fill in your details below.

<% select case request.QueryString("datamode") case "submit" sendfeedback case else disp_feedback_form() end select %>

More





 
 
Top of page
 
<% sub disp_feedback_form() %>

Name

E-mail

Phone Number

Your Message

Join
Mailing
List
<% end sub '------------------------------------------------------------------------------------------------------------------------------------------------------ sub sendfeedback() dim objCDO, objCDOSYSCon, bodyHTML dim strmsg strmsg = strmsg & "name: " & request.Form("txtname") & "
" strmsg = strmsg & "email: " & request.Form("txtemail") & "
" strmsg = strmsg & "phone: " & request.Form("txttel") & "
" strmsg = strmsg & "message: " & request.Form("txtmessage") & "
" strmsg = strmsg & "join mail list: " & request.Form("chkmaillist") & "
" Set objCDO = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") ' Outgoing SMTP server objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.galleonproductions.net" 'the mail server e.g.67.15.20.10 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'whether you use authentication on the server objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mail.galleonproductions.net" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mail" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 objCDOSYSCon.Fields.Update ' Update the CDOSYS Configuration Set objCDO.Configuration = objCDOSYSCon objCDO.To = "news@galleonproductions.net" objCDO.From = "webform@galleonproductions.net" objCDO.Subject = "Feedback from online contact page" bodyHTML = strmsg objCDO.HTMLBody = bodyHTML objCDO.Send Set objCDO = Nothing Set objCDOSYSCon = Nothing response.Write("

Your message has been sent to our expert support team
Back to homepage

") if err.number <> 0 then response.write err.number & vbcrlf & vbcrlf response.write err.description & vbcrlf response.end end if end sub '------------------------------------------------------------------------------------------------------------------------------------------------------ %>