SOURCE CODE:
<script language = "vbscript">
dim gD, gSN
gD = Date()
gSN = "Office Supply Store"
document.write("<h1 align=center>" & gSN & "</h1>")
function getM()
dim sSA
sSA = "555 Main Street, Chicago, IL 60066"
document.write(sSA)
end function
</script>
</head>
<body bgcolor="#FFCC99" text="#800000">
<form name = "frm">
<h3>Fill in your user information</h3>
<input type="text" name="txtN" size="30">
<i> Username</i><br>
<input type="text" name="txtE" size="30">
<i> Email</i><br><br>
<input type="button"
value="Insert the date & store name!"
name = "btnSubmit" onClick = "getD()">
<br><br>
<input type="text" name="txtD" size="30">
<i> Date</i><br>
<input type="text" name="txtSN" size="30">
<i> Store Name</i><br>
</form>
<script language = "vbscript">
function getD ()
dim strN, strE
strN = document.frm.txtN.value
strE = document.frm.txtE.value
window.alert("Thank you " & strN & "." & chr(10) & _
"We will contact you at " & strE & " shortly.")
document.frm.txtD.value=gD
document.frm.txtSN.value=gSN
end function
</script>
<h3 align=center>
<script language = "vbscript">
document.write gSN & "<br>"
getM()
</script>