<%
if request("page")="home" then
   page = "Welcome to our Web site"
elseif request("page")="about" then
   page = "Company Profile"
elseif request("page")="service" then
   page = "Our Services"
elseif request("page")="texture" then
   page = "Colours > Texture"
elseif request("page")="ash" then
   page = "Colours > Ash"
elseif request("page")="gloss" then
   page = "Colours > Gloss"
elseif request("page")="satin" then
   page = "Colours > Satin and Perl"
elseif request("page")="melamine" then
   page = "Colours > Melamine"
elseif request("page")="timber" then
   page = "Colours > Timber"

elseif request("page")="panel" then
   page = "Designs > Panel"
elseif request("page")="silhouette" then
   page = "Designs > Silhouette"
elseif request("page")="designer" then
   page = "Designs > Designer"
elseif request("page")="heritage" then
   page = "Designs > Heritage"

elseif request("page")="profile" then
   page = "Edging Profiles"

elseif request("page")="showroom" then
   page = "Showroom"
elseif request("page")="accessories" then
   page = "Accessories"
elseif request("page")="roller" then
   page = "Roller Doors"
elseif request("page")="maintenance" then
   page = "Care & Maintenance Instructions"
elseif request("page")="colour" then
   page = "Colours"
         
elseif request("page")="contact" then
   page = "Contact Information"
elseif request("page")="mission" then
   page = "Mission Statement"
elseif request("page")="terms" then
   page = "Terms & Conditions"
 
else
   page = "Just Kitchen Designs"
end if
%>
<%
if request("page")="home" then
   slogan = "Complete Kitchen & Cabinet Solutions"
elseif request("page")="about" then
   slogan = "Reliable Service"
elseif request("page")="service" then
   slogan = "Kitchen & Cabinet Industry Professionals"
elseif request("page")="contact" then
   slogan = "Quality Service Since 1994"
elseif request("page")="testimonial" then
   slogan = "Customer Satisfaction Guaranteed"
elseif request("page")="gallery" then
   slogan = "Professional service and quality finish to suit everyone"
elseif request("page")="mission" then
   slogan = "Reliability, quality, on time completion and affordable pricing"
else
   slogan = "Just Kitchen Designs"
end if
%>
<%
 
' Create forward only recordset using current database and passed SQL statement
'-------------------------------
sub openrs(rs, sql)
  Set rs = Server.CreateObject("ADODB.Recordset")
  rs.CursorLocation = adUseServer
  rs.Open sql, cn, adOpenForwardOnly, adLockReadOnly, adCmdText
end sub

'-------------------------------
' Create static only recordset using current database and passed SQL statement
'-------------------------------
sub openStaticRS(rs, sql)
  Set rs = Server.CreateObject("ADODB.Recordset")
  rs.CursorLocation = adUseServer
  rs.Open sql, cn, adOpenStatic, adLockReadOnly, adCmdText
end sub
'===============================

'===============================
' Site Initialization
'-------------------------------
' Specify Debug mode (true/false)
Dim bDebug : bDebug = false
'-------------------------------
' Obtain the path where this site is located on the server
'-------------------------------
Dim sAppPath : sAppPath = left(Request("PATH_TRANSLATED"), instrrev(Request("PATH_TRANSLATED"), "\"))
'-------------------------------
' Create Header and Footer Path variables
'-------------------------------
Dim sHeaderFileName : sHeaderFileName = sAppPath & "Header.html"
Dim sFooterFileName : sFooterFileName = sAppPath & "Footer1.html"
'===============================

'===============================
' Common functions
'-------------------------------
' Convert non-standard characters to HTML
'-------------------------------
function ToHTML(strValue)
  if IsNull(strValue) then 
    ToHTML = ""
  else
    ToHTML = Server.HTMLEncode(strValue)
  end if
end function

'-------------------------------
'convert the benchtop lenght and width up to 100
'-------------------------------
function RoundUpTo100(NumIn)
  If NumIn <> 100 * Int(NumIn / 100) then 
    NumIn = 100 * (Int(NumIn / 100) + 1)
    RoundUpTo100 = NumIn
  else
    RoundUpTo100 = NumIn
  end if
End Function
'-------------------------------
' Convert value to URL
'-------------------------------
function ToURL(strValue)
  if IsNull(strValue) then strValue = ""
  ToURL = Server.URLEncode(strValue)
end function

'-------------------------------
' Obtain HTML value of a field
'-------------------------------
function GetValueHTML(rs, strFieldName)
  GetValueHTML = ToHTML(GetValue(rs, strFieldName))
end function

'-------------------------------
' Obtain database field value
'-------------------------------
function GetValue(rs, strFieldName)
  on error resume next
  if rs is nothing then
  	GetValue = ""
  elseif (not rs.EOF) and (strFieldName <> "") then
    res = rs(strFieldName)
    if isnull(res) then 
      res = ""
    end if
    if VarType(res) = vbBoolean then
      if res then res = "1" else res = "0"
    end if
    GetValue = res
  else
    GetValue = ""
  end if
  if bDebug then response.write err.Description
  on error goto 0
end function

'-------------------------------
' Obtain specific URL Parameter from URL string
'-------------------------------
function GetParam(ParamName)
  if Request.QueryString(ParamName).Count > 0 then 
    Param = Request.QueryString(ParamName)
  elseif Request.Form(ParamName).Count > 0 then
    Param = Request.Form(ParamName)
  else 
    Param = ""
  end if
  if Param = "" then
    GetParam = Empty
  else
    GetParam = Param
  end if
end function

'-------------------------------
' Convert value for use with SQL statament
'-------------------------------
Function ToSQL(Value, sType)
  Dim Param : Param = Value
  if Param = "" then
    ToSQL = "Null"
  else
    if sType = "Number" then
      ToSQL = replace(CDbl(Param), ",", ".")
    else
      ToSQL = "'" & Replace(Param, "'", "''") & "'"
    end if
  end if
end function

'-------------------------------
' Lookup field in the database based on provided criteria
' Input: Table (Table), Field Name (fName), criteria (sWhere)
'-------------------------------
function DLookUp(Table, fName, sWhere)
  on error resume next
  Dim Res : Res = cn.execute("select " & fName & " from " & Table & " where " & sWhere).Fields(0).Value
  if IsNull(Res) then Res = ""
  DLookUp = Res
  if bDebug then response.write err.Description
  on error goto 0
end function

'-------------------------------
' Obtain Checkbox value depending on field type
'-------------------------------
function getCheckBoxValue(sVal, CheckedValue, UnCheckedValue, sType)
  if isempty(sVal) then
    if UnCheckedValue = "" then
      getCheckBoxValue = "Null"
    else
      if sType = "Number" then
        getCheckBoxValue = UnCheckedValue
      else
        getCheckBoxValue = "'" & Replace(UnCheckedValue, "'", "''") & "'"
      end if
    end if
  else
    if CheckedValue = "" then
      getCheckBoxValue = "Null"
    else
      if sType = "Number" then
        getCheckBoxValue = CheckedValue
      else
        getCheckBoxValue = "'" & Replace(CheckedValue, "'", "''") & "'"
      end if
    end if
  end if
end function

'-------------------------------
' Obtain lookup value from array containing List Of Values
'-------------------------------
function getValFromLOV(sVal, aArr)
  Dim i
  Dim sRes : sRes = ""
  if (ubound(aArr) mod 2) = 1 then
    for i = 0 to ubound(aArr) step 2
      if cstr(sVal) = cstr(aArr(i)) then sRes = aArr(i+1)
    next
  end if
  getValFromLOV = sRes  
end function

'-------------------------------
' Process Errors
'-------------------------------
function ProcessError()
  if cn.Errors.Count > 0 then
    ProcessError = cn.Errors(0).Description & " (" & cn.Errors(0).Source & ")"
  elseif not (Err.Description = "") then
    ProcessError = Err.Description
  else
    ProcessError = ""
  end if
end Function

'-------------------------------
' Verify user's security level and redirect to login page if needed
'-------------------------------
function CheckSecurity(iLevel)
  if Session("UserID") = "" then
    cn.Close
    Set cn = Nothing
    response.redirect("../company/Login.asp?QueryString=" & toURL(request.serverVariables("QUERY_STRING")) & "&ret_page=" & toURL(request.serverVariables("SCRIPT_NAME")))
  else
    if CLng(Session("UserRights")) < CLng(iLevel) then
      cn.Close
      Set cn = Nothing
      response.redirect("../company/home.asp") 
      'response.redirect("home.asp?QueryString=" & toURL(request.serverVariables("QUERY_STRING")) & "&ret_page=" & toURL(request.serverVariables("SCRIPT_NAME"))) 
    end if
  End if
end function
'===============================
Function DispDate(inpDate, format)
Dim Res: Res = ""
Dim fdDay, fdMonth, fdYear, fdHour, fdMinute, fdSecond, fdAMPM, ISOHour 
if IsDate(inpDate) = True then
fdDay = Day(inpDate)
fdMonth = Month(inpDate)
fdYear = Year(inpDate)

ISOHour = Hour(inpDate)
fdHour = Hour(inpDate)
if Hour(inpDate) = 12 then
fdAMPM = "PM"
end if
if Hour(inpDate) = 0 then
fdAMPM = "AM"
fdHour = fdHour + 12
end if
if Hour(inpDate) >= 1 AND Hour(inpDate) <= 11 then
if Hour(inpDate) >= 0 AND Hour(inpDate) <= 9 then
fdHour = "0" & fdHour
end if
fdAMPM = "AM"
end if
if Hour(inpDate) >= 13 AND Hour(inpDate) <= 23 then
fdAMPM = "PM"
fdHour = fdHour - 12
if Hour(inpDate) >= 13 AND Hour(inpDate) <= 21 then
fdHour = "0" & fdHour
end if
end if

If Len(Minute(inpDate))=1 Then
fdMinute = "0" & Minute(inpDate)
Else
fdMinute = Minute(inpDate)
End If
If Len(Second(inpDate))=1 Then
fdSecond = "0" & Second(inpDate)
Else
fdSecond = Second(inpDate)
End If

if fdDay <> "" AND fdMonth <> "" AND fdYear <> "" then
if fdDay < 10 then
fdDay = "0" & fdDay
end if 
if fdMonth < 10 then
fdMonth = "0" & fdMonth
end if
select case format
case 1
outDate = fdDay & "/" & fdMonth & "/"& fdYear &_
                  " " & fdHour &":"& fdMinute &":"&_
                  fdSecond &" "& fdAMPM
case 2
outDate = fdDay & "/" & fdMonth & "/"& fdYear
case 3
outDate = fdMonth & "/" & fdDay & "/"& fdYear
case 4
outDate = fdYear & "-" & Right(Cstr(fdMonth + 100),2) &_
                   "-" & Right(Cstr(fdDay + 100),2) &" "&_
                   ISOHour & ":" & fdMinute & ":" & fdSecond
case 5
outDate = fdYear & "-" & Right(Cstr(fdMonth + 100),2) &_
                   "-" & Right(Cstr(fdDay + 100),2)
end select
 
else
outDate = ""
end if
Res = outDate
DispDate = Res
end if
end function



'===============================
Function DispMonth(inpDate, format)
Dim Res1: Res1 = ""
Dim fdDay, fdMonth, fdYear, fdHour, fdMinute, fdSecond, fdAMPM, ISOHour 
if IsDate(inpDate) = True then
fdDay = Day(inpDate)
fdMonth = Month(inpDate)
fdYear = Year(inpDate)

ISOHour = Hour(inpDate)
fdHour = Hour(inpDate)
if Hour(inpDate) = 12 then
fdAMPM = "PM"
end if
if Hour(inpDate) = 0 then
fdAMPM = "AM"
fdHour = fdHour + 12
end if
if Hour(inpDate) >= 1 AND Hour(inpDate) <= 11 then
if Hour(inpDate) >= 0 AND Hour(inpDate) <= 9 then
fdHour = "0" & fdHour
end if
fdAMPM = "AM"
end if
if Hour(inpDate) >= 13 AND Hour(inpDate) <= 23 then
fdAMPM = "PM"
fdHour = fdHour - 12
if Hour(inpDate) >= 13 AND Hour(inpDate) <= 21 then
fdHour = "0" & fdHour
end if
end if

If Len(Minute(inpDate))=1 Then
fdMinute = "0" & Minute(inpDate)
Else
fdMinute = Minute(inpDate)
End If
If Len(Second(inpDate))=1 Then
fdSecond = "0" & Second(inpDate)
Else
fdSecond = Second(inpDate)
End If

if fdDay <> "" AND fdMonth <> "" AND fdYear <> "" then
if fdDay < 10 then
fdDay = "0" & fdDay
end if 
if fdMonth < 10 then
fdMonth = "0" & fdMonth
end if
 

select case format
case 1
outMonth = fdDay 
case 2
outMonth = fdMonth 
case 3
outMonth = fdYear
end select

else
outMonth = ""
end if
Res1 = outMonth
DispMonth = Res1
end if
end function
'===============================
'  GlobalFuncs begin
'  GlobalFuncs end
'===============================
%>
<%
function key

dim arrays(9)
arrays(0) = "1"
arrays(1) = "2"
arrays(2) = "3"
arrays(3) = "4"
arrays(4) = "5"
'arrays(5) = "6"
'arrays(6) = "7"
'arrays(7) = "8"
'arrays(8) = "9"


randomize

'Do while len (output) < digit
number = arrays(INT((4 + 1) * RND))
output = output + number
'Loop

key = output
End function
%>
<%
'adminlogo="admin.jpg"    ' cabinet
adminlogo="admin1.jpg"    ' business 
'homelogo="cabhome.jpg"   ' cabinet
homelogo="bushome.jpg"    ' business
'title_head = "Cabinet Solution V2 - Digital World IT"  ' cabinet
title_head = "Nu Door Pty Ltd"  ' business
tk = "#7DACED"
td1 = "#B0D0EE"
td2 = "#D0E3ED"
'copyright = "Digital World IT. All rights reserved."
title_head = ""
icon = "../images/powered.jpg"
ykm = "#FF0000"
webalizer = "" 'http://www.digitalit.com.au/webalizer/default.html
'slogan = "Each type of Concreting works with plans and specifications you require."
'slogan = "Each type of Bricklaying works with plans and specifications you require."
'slogan = "Supply and Installation of Kitchens with designs and plans you require."
'slogan1 = "Style, Technology and Quality"

%>
<html>
<TITLE>Just Kitchen Designs</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<meta http-equiv="Content-Language" content="aus">
<meta http-equiv="Copyright" content="Copyright © 2009, Just Kitchen Designs">
<meta http-equiv="cache-control" content="no-cache">
<meta name="keywords" content="">
<meta name="description" content="Cabinet and Kitchen Services in Australia wide for over 10 years! Call us for FREE quotes!">
<META NAME="abstract" CONTENT="Cabinet and Kitchen Services in Australia wide for over 10 years! Call us for FREE quotes!">
<meta name="Pragma" content="no-cache">
<meta name="author" content="Digital World IT (www.digitalit.com.au)">
<link rel="stylesheet" type="text/css" href="images/style.css"/>
<!--form1.js is for contact.asp-->
<SCRIPT language=JavaScript src="form1.js"></SCRIPT>
<SCRIPT language=JavaScript>
<!--
right_now=new Date();
 
var right_year=right_now.getYear();
if (right_year < 2000) 
right_year=right_year + 1900; 
var myDay=(new Date()).getDay();
var myMonth=(new Date()).getMonth();
var myMonthDay=(new Date()).getDate();

month=new Array();
month[0]="January";
month[1]="February";
month[2]="March";
month[3]="April";
month[4]="May";
month[5]="June";
month[6]="July";
month[7]="August";
month[8]="September";
month[9]="October";
month[10]="November";
month[11]="December";

day=new Array();
day[0]="Sun";
day[1]="Mon";
day[2]="Tue";
day[3]="Wed";
day[4]="Thu";
day[5]="Fri";
day[6]="Sat";

var myWeekDay=day[myDay]
var myMonth=month[myMonth];
function writeDate1()
{
var dateStr1=right_year;
document.write(dateStr1);
}
function writeDate()
{
 var dateStr=myWeekDay + ", " + myMonth +" " + myMonthDay +"," + right_year;
document.write(dateStr);
}

//-->
</SCRIPT>
<script language=JavaScript>
<!--
function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.0
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && document.getElementById) x=document.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</SCRIPT>
<script language="JavaScript">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
</script>
<SCRIPT language=JavaScript>
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</SCRIPT>

<script language="javascript" src="menustuff.js"></script>
<script language="javascript" src="menustuff1.js"></script>
<script language="javascript" src="menustuff2.js"></script>
<SCRIPT LANGUAGE=JAVASCRIPT SRC="window.js"></SCRIPT>
<style>
body {
	SCROLLBAR-FACE-COLOR:#F2B91C; SCROLLBAR-HIGHLIGHT-COLOR: #ffffff; SCROLLBAR-SHADOW-COLOR: #F7E8B5; SCROLLBAR-3DLIGHT-COLOR: #F2B91C; SCROLLBAR-ARROW-COLOR: #F7E8B5; SCROLLBAR-TRACK-COLOR: #F7E8B5; BACKGROUND-REPEAT: repeat; SCROLLBAR-DARKSHADOW-COLOR: #ffffff
}
</style>
<script>
// (C) 2000 www.CodeLifter.com
// http://www.codelifter.com
// Free for all users, but leave in this  header
// NS4-6,IE4-6
// Fade effect only in IE; degrades gracefully

// =======================================
// set the following variables
// =======================================

// Set slideShowSpeed (milliseconds)
var slideShowSpeed=3000

// Duration of crossfade (seconds)
var crossFadeDuration=4

// Specify the image files
var Pic=new Array() // don't touch this
// to add more images, just continue
// the pattern, adding to the array below

Pic[0]='images/anim1/g1.jpg'
Pic[1]='images/anim1/g13.jpg'
Pic[2]='images/anim1/g2.jpg'
Pic[3]='images/anim1/g3.jpg'
Pic[4]='images/anim1/g11.jpg'
Pic[5]='images/anim1/g4.jpg'
Pic[6]='images/anim1/g5.jpg'
Pic[7]='images/anim1/g14.jpg'
Pic[8]='images/anim1/g6.jpg'
Pic[9]='images/anim1/g15.jpg'
Pic[10]='images/anim1/g7.jpg'
Pic[11]='images/anim1/g8.jpg'
Pic[12]='images/anim1/g12.jpg'
Pic[13]='images/anim1/g9.jpg'
Pic[14]='images/anim1/g10.jpg'

// =======================================
// do not edit anything below this line
// =======================================

var t
var j=0
var p=Pic.length

var preLoad=new Array()
for (i=0; i < p; i++){
   preLoad[i]=new Image()
   preLoad[i].src=Pic[i]
}

function runSlideShow(){
   if (document.all){
      document.images.SlideShow.style.filter="blendTrans(duration=2)"
      document.images.SlideShow.style.filter="blendTrans(duration=crossFadeDuration)"
      document.images.SlideShow.filters.blendTrans.Apply()      
   }
   document.images.SlideShow.src=preLoad[j].src
   if (document.all){
      document.images.SlideShow.filters.blendTrans.Play()
   }
   j=j + 1
   if (j > (p-1)) j=0
   t=setTimeout('runSlideShow()', slideShowSpeed)
}
</script>
<%end if%>
</HEAD>

<BODY onLoad="runSlideShow();" LEFTMARGIN="0" TOPMARGIN="0" MARGINWIDTH="0" MARGINHEIGHT="0" BACKGROUND="images/bg2.jpg">
  <table cellpadding="0" cellspacing="0" width="800" align="center" bgcolor="#FFFFFF">
    <tr>
	  <td WIDTH="800" HEIGHT="180" BACKGROUND="images/index_1.jpg" ALIGN="left" vALIGN="top" cellpadding="0" cellspacing="0">
		<font style="font-size: 13pt"></font>
	  </td>
    </tr>
    <tr>
	  <td WIDTH="800" HEIGHT="10"  background="images/index_2.jpg" ALIGN="left" vALIGN="top" cellpadding="0" cellspacing="0">
	    <TABLE WIDTH=800 BORDER=0 CELLSPACING=0 CELLPADDING=0>
			<TR>
				<TD width=258 align=left>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<FONT style="FONT-SIZE: 7.5pt; FONT-FAMILY: Verdana; FONT-WEIGHT:bold" color=#D9B658><script>writeDate();</script>&nbsp;</font></TD>
				<TD width=532 ALIGN="right"><% 
file="sliding"
'file = replace(file,"/","") 
'file = replace(file,".","") 
Set fs = CreateObject("Scripting.FileSystemObject") 
Wfile=Server.MapPath("admin/product/sliding/"&file&".txt") 
Set a = fs.OpenTextFile(Wfile) 
hits1 = (a.ReadLine) 
a.Close
%> 
<script language="JavaScript1.2">

var marqueewidth="500px"
var marqueeheight="12px"
var marqueespeed=1
var marqueebgcolor=""
//(0=no. 1=yes)?
var pauseit=1

var marqueecontent='<nobr><font style="FONT-SIZE: 9px; COLOR:#ffffff; FONT-WEIGHT: bold; font-family: Verdana"><a href="contact.asp?page=contact"><font color=#ffffff><%= hits1 %></font></a></font></nobr>'

marqueespeed=(document.all)? marqueespeed : Math.max(1, marqueespeed-1) //slow speed down by 1 for NS
var copyspeed=marqueespeed
var pausespeed=(pauseit==0)? copyspeed: 0
var iedom=document.all||document.getElementById
if (iedom)
document.write('<span id="temp" style="visibility:hidden;position:absolute;top:-100px;left:-9000px">'+marqueecontent+'</span>')
var actualwidth=''
var cross_marquee, ns_marquee

function populate(){
if (iedom){
cross_marquee=document.getElementById? document.getElementById("iemarquee") : document.all.iemarquee
cross_marquee.style.left=parseInt(marqueewidth)+8+"px"
cross_marquee.innerHTML=marqueecontent
actualwidth=document.all? temp.offsetWidth : document.getElementById("temp").offsetWidth
}
else if (document.layers){
ns_marquee=document.ns_marquee.document.ns_marquee2
ns_marquee.left=parseInt(marqueewidth)+8
ns_marquee.document.write(marqueecontent)
ns_marquee.document.close()
actualwidth=ns_marquee.document.width
}
lefttime=setInterval("scrollmarquee()",20)
}
//window.onload=populate

function scrollmarquee(){
if (iedom){
if (parseInt(cross_marquee.style.left)>(actualwidth*(-1)+8))
cross_marquee.style.left=parseInt(cross_marquee.style.left)-copyspeed+"px"
else
cross_marquee.style.left=parseInt(marqueewidth)+8+"px"

}
else if (document.layers){
if (ns_marquee.left>(actualwidth*(-1)+8))
ns_marquee.left-=copyspeed
else
ns_marquee.left=parseInt(marqueewidth)+8
}
}

if (iedom||document.layers){
with (document){
document.write('<table border="0" cellspacing="0" cellpadding="0"><td>')
if (iedom){
write('<div style="position:relative;width:'+marqueewidth+';height:'+marqueeheight+';overflow:hidden">')
write('<div style="position:absolute;width:'+marqueewidth+';height:'+marqueeheight+';background-color:'+marqueebgcolor+'" onMouseover="copyspeed=pausespeed" onMouseout="copyspeed=marqueespeed">')
write('<div id="iemarquee" style="position:absolute;left:0px;top:0px"></div>')
write('</div></div>')
}
else if (document.layers){
write('<ilayer width='+marqueewidth+' height='+marqueeheight+' name="ns_marquee" bgColor='+marqueebgcolor+'>')
write('<layer name="ns_marquee2" left=0 top=0 onMouseover="copyspeed=pausespeed" onMouseout="copyspeed=marqueespeed"></layer>')
write('</ilayer>')
}
document.write('</td></table>')
}
}
</script></TD>
				<TD width=10 ALIGN="right">&nbsp;</TD>
			</TR>
		</TABLE>
	  </td>
    </tr>
    <tr>
	  <td WIDTH="800" HEIGHT="20">
        <!---------------------------------------------- Menu Starts Here ---------------------------------------------------------->
	    <table border="0" CELLPADDING="0" CELLSPACING="0" class="mainFontText" align="center">
		  <tr>
		    <td ONMOUSEOVER="highlight(this)" ONMOUSEOUT="unhighlight(this)" STYLE="cursor:hand;" width="50" height="20" align="center" valign="center" bgcolor="#D4D4D4">
		      <A HREF="home.asp?page=home" style="font-size: 8pt">Home</A></td>
		    <td ONMOUSEOVER="highlight(this)" ONMOUSEOUT="unhighlight(this)" STYLE="cursor:hand;" width="125" height="20" align="center" valign="center" bgcolor="#D4D4D4">
		      <A HREF="profile.asp?page=about" style="font-size: 8pt">Company Profile</A></td>
		    <td ONMOUSEOVER="highlight(this)" ONMOUSEOUT="unhighlight(this)" STYLE="cursor:hand;" width="99" height="20" align="center" valign="center" bgcolor="#D4D4D4">
		      <A HREF="mission.asp?page=mission" style="font-size: 8pt">Our Mission</A></td>
		    <td ONMOUSEOVER="highlight(this)" ONMOUSEOUT="unhighlight(this)" STYLE="cursor:hand;" width="80" height="20" align="center" valign="center"  bgcolor="#D4D4D4">
		      <A HREF="service.asp?page=service" style="font-size: 8pt">Services</A></td>
		    <td ONMOUSEOVER="highlight(this)" ONMOUSEOUT="unhighlight(this)" STYLE="cursor:hand;" width="100" height="20" align="center" valign="center"  bgcolor="#D4D4D4">
		      <A HREF="texture.asp?page=texture" style="font-size: 8pt">Doors</A></td>
		    <td ONMOUSEOVER="highlight(this)" ONMOUSEOUT="unhighlight(this)" STYLE="cursor:hand;" width="80" height="20" align="center" valign="center"  bgcolor="#D4D4D4">
		      <A HREF="colours11.asp?page=colour" style="font-size: 8pt">Benchtops</A></td>
		    <td ONMOUSEOVER="highlight(this)" ONMOUSEOUT="unhighlight(this)" STYLE="cursor:hand;" width="80" height="20" align="center" valign="center"  bgcolor="#D4D4D4">
		      <A HREF="colours22.asp?page=colour" style="font-size: 8pt">Boards</A></td>
			<td ONMOUSEOVER="highlight(this)" ONMOUSEOUT="unhighlight(this)" STYLE="cursor:hand;" width="91" height="20" align="center" valign="center"  bgcolor="#D4D4D4">
			  <A HREF="showroom.asp?page=showroom" style="font-size: 8pt">Showroom</A></td>
		    <td ONMOUSEOVER="highlight(this)" ONMOUSEOUT="unhighlight(this)" STYLE="cursor:hand;" width="95" height="20" align="center" valign="center"  bgcolor="#D4D4D4">
			  <A HREF="contact.asp?page=contact" style="font-size: 8pt">Contact Us</A></td>
		  </tr>
	    </table>
	    <!----------------------------------------------- Menu Ends Here ----------------------------------------------------------->
	  </td>
    </tr>
    <!----------------------------------------------------------- Main Body Starts Here ------------------------------------------------------------------------>
    <tr>
	  <td bgcolor=#DF9711 WIDTH="800" HEIGHT="400" ALIGN="left" vALIGN="top" cellpadding="0" cellspacing="0">
	    <img src="images/anim/g1.jpg" WIDTH="800" HEIGHT="400" name='SlideShow'></img>	    
	  </td>
    </tr>
    <!----------------------------------------------------------- Main Body Ends Here -------------------------------------------------------------------------->
    <tr>
	  <td WIDTH="800" HEIGHT="34" BACKGROUND="images/index_6.jpg" ALIGN="left" vALIGN="top" cellpadding="0" cellspacing="0">
		<table align="center" width="800" height="34" border="0">
		  <tr>
		    <td align="center" vALIGN="middle" class="smallFont">
			  <b>Designed and Powered by <a href="http://www.digitalit.com.au" target="_blank"><font color=blue>Digital World IT</font></a></b>
			</td>
			<td align="center" class="smallFont">
			  <b>Copyright © 2009 <font color=blue>Just Kitchen Designs</font>. All Rights Reserved</b>
			</td>
		  </tr>
		</table>
	  </td>
    </tr>
  </table>
 
</body>
</html>