SOURCE CODE:

<script language = "vbscript">

const conName = "Office Store"

const conTitle = "Store Web Site"

const conURL = "www.store.com"

const conDate = #09-28-36#

const conTime = 20

const cone = "help@store.com" 

const conCurConversion = 0.8

const conPrice1 = 4.50

const conPrice2 = 1.25

const conName1 = "Pens"

const conName2 = "Pencils"

const conSale = 0.15

const cH = "<h3 align='center'>"

const cH2 = "</h3>"

</script>



<title></title>



<script language = "vbscript"> 

document.title = conTitle 

</script>



</head>



<body bgcolor="#FFCC99" text="#800000">



<script language = "vbscript">

document.write cH & conName & cH2

document.write cH & "Please visit us at " _

& conURL & cH2

document.write cH & "Our email address is " _

& conE & cH2

</script>



<br><hr width="75%" size="4" color="#800000"><br>



<script language = "vbscript">

document.write cH & "Our " & conName1 & _

" usually cost $" & conPrice1 & cH2

document.write cH & "Our " & conName2 & _

" usually cost $" & conPrice2 & cH2

document.write (cH & "Everything is off " _

& (conSale * 100) & " %" & cH2)

</script>



<br><hr width="75%" size="4" color="#800000"><br>



<script language = "vbscript">

dim newPrice1, newPrice2

newPrice1 = (conPrice1-(conPrice1 * conSale))

newPrice2 = (conPrice2-(conPrice2 * conSale))



newPrice1=formatCurrency(newPrice1)

newPrice2=formatCurrency(newPrice2)



document.write (cH & "Our " & conName1 & _

" now costs " & newPrice1 & cH2)

document.write (cH & "Our " & conName2 & _

" now costs " & newPrice2 & cH2)

</script>