<% ' ##### Request QueryString Variables ##### ' ##### Request Form Variables ##### strSubmitted = Request.Form("strSubmitted") ' ##### Other variable declarations ##### arrFind = Array("= Please Select =","Advertisement","Events","Search Engine","Word of Mouth(give details)") arrWeight = Array("500gm","1kg","1.5kg","2kg") arrDay = Array("[Day]","1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20","21","22","23","24","25","26","27","28","29","30","31") arrMth = Array("[Month]","1","2","3","4","5","6","7","8","9","10","11","12") arrYear = Array("2004") For i = 2005 to (Year(Date())+10) ReDim Preserve arrYear(i-2004) arrYear(i-2004) = i Next If (strSubmitted = "") Then If (action = "") Then strCharlotteWeight = "1kg" strDiannedWeight = "1kg" strMadisonWeight = "1kg" strMagdaleneWeight = "1kg" End if Else ' ##### Read variables from Form collection ############################ strFirstName = Trim(Request.Form("strFirstName")) strLastName = Trim(Request.Form("strLastName")) strTel = Trim(Request.Form("strTel")) strEmail = Trim(Request.Form("strEmail")) strAddress = Trim(Request.Form("strAddress")) strFind = Trim(Request.Form("strFind")) strReferer = Trim(Request.Form("strReferer")) ' strContact = Trim(Request.Form("strContact")) blnCharlotte = Trim(Request.Form("blnCharlotte")) strCharlotteWeight = Trim(Request.Form("strCharlotteWeight")) blnDianne = Trim(Request.Form("blnDianne")) strDiannedWeight = Trim(Request.Form("strDiannedWeight")) blnMadison = Trim(Request.Form("blnMadison")) strMadisonWeight = Trim(Request.Form("strMadisonWeight")) blnMagdalene = Trim(Request.Form("blnMagdalene")) strMagdaleneWeight = Trim(Request.Form("strMagdaleneWeight")) dtCakeDateDay = Trim(Request.Form("dtCakeDateDay")) dtCakeDateMth = Trim(Request.Form("dtCakeDateMth")) dtCakeDateYear = Trim(Request.Form("dtCakeDateYear")) strApetite = Trim(Request.Form("strApetite")) strCraves = Trim(Request.Form("strCraves")) strAddiction = Trim(Request.Form("strAddiction")) dtOpiumDateDay = Trim(Request.Form("dtOpiumDateDay")) dtOpiumDateMth = Trim(Request.Form("dtOpiumDateMth")) dtOpiumDateYear = Trim(Request.Form("dtOpiumDateYear")) strMessage = Trim(Request.Form("strMessage")) blnMailing = Trim(Request.Form("blnMailing")) blnAgreement = Trim(Request.Form("blnAgreement")) strOrder1 = Trim(Request.Form("strOrder1")) strOrder2 = Trim(Request.Form("strOrder2")) strOrder3 = Trim(Request.Form("strOrder3")) strQty1 = Trim(Request.Form("strQty1")) strQty2 = Trim(Request.Form("strQty2")) strQty3 = Trim(Request.Form("strQty3")) strSp1 = Trim(Request.Form("strSp1")) strSp2 = Trim(Request.Form("strSp2")) strSp3 = Trim(Request.Form("strSp3")) strFeedback = Trim(Request.Form("strFeedback")) strDateNeed = Trim(Request.Form("strDateNeed")) strTimeNeed = Trim(Request.Form("strTimeNeed")) strDelivery = Trim(Request.Form("strDelivery")) strOtherIn = Trim(Request.Form("strOtherIn")) 'If (Not IsNumeric(blnAgreement) OR blnAgreement = "") Then blnAgreement = 0 'If (Not IsNumeric(blnCharlotte) OR blnCharlotte = "") Then blnCharlotte = 0 'If (Not IsNumeric(blnDianne) OR blnDianne = "") Then blnDianne = 0 'If (Not IsNumeric(blnMadison) OR blnMadison = "") Then blnMadison = 0 'If (Not IsNumeric(blnMailing) OR blnMailing = "") Then blnMailing = 0 ' ########################################################################## applErr = False emailErr = false email2Err = false telErr = false 'addressErr = False agreeErr = false ' ##### Check all information ##### If (strFirstName = "" or strLastName = "" or strTel = "")Then applErr = true End If ' If (strAddress = "")Then ' applErr = true ' addressErr = true ' End If If (strEmail = "")Then applErr = true emailErr = true End If If (strEmail <> "" and Not IsEmailValid(strEmail)) Then applErr = True email2Err = True End If If (blnAgreement="")Then applErr = True agreeErr = True End If blnAgreement = SetCheckboxChecked(blnAgreement) blnCharlotte = SetCheckboxChecked(blnCharlotte) blnDianne = SetCheckboxChecked(blnDianne) blnMadison = SetCheckboxChecked(blnMadison) blnMagdalene = SetCheckboxChecked(blnMagdalene) blnMailing = SetCheckboxChecked(blnMailing) ' ##### Determine error correction form or process data ##### If (applErr = false) Then strSubmitted = "process" End If If (action = "") Then strPostScript = strPostScript & "?id=" & intID ElseIf (action = "edit") Then strPostScript = strPostScript & "?a=edit&id=" & intID End If End If %> Barkers' Grub
Promotions | bBulletin | FAQ | Order Policy | Terms of Use | Links to Our Friends



Contact Us

Please read our FAQ & Order Policy before you place an order.

Please place orders at least 3 days in advance. We regret that we are unable to accept urgent orders.

Collection of orders will be for Thursdays to Sundays only. No collection will be arranged for Mondays to Wednesdays.

Collection time will be as follow:
- weekday orders will be no earlier than 6:00 pm; and
- weekend orders will be no later than 2:00 pm.

Our line is available daily between 10 am to 8 pm. Call us to discuss if you have an enquiry or a special order.

Telephone : 9857 7172

Drop us an sms if we miss your call.

 

* * * * * * * * * * * * * * * * * *

We will be closed from 23 December 2008.
Our business will resume for orders from 8 January 2009.

* * * * * * * * * * * * * * * * * *

 

Thank you for your support in 2008. We wish you a Joyous X'mas and Happy 2009 ahead!

 

Website Maintained by Barkers’ Grub
Updated December 2008

Copyright © Barkers’ Grub
2008 All Rights Reserved