Dim cBackground
Dim cCRLF
Dim cHidden
Dim cMailTo
Dim cPageHtm
Dim cPagina
Dim cSpace
Dim cTekst

Dim dLastUpdate

Dim nFound

Dim oNaam
'==================
Sub window_onload()

cSpace = "  "
cBackground = "#ffffdf"
document.body.style.backgroundColor = cBackground

dLastUpdate = oFooter.innerText
oFooter.innerText = ""
oFooter.style.fontSize = "12"
oFooter.style.textAlign = "center"
oFooter.style.fontWeight = "normal"

'If Mid(location.hash, 2) = "" Then
'  cPageHtm = location.href
'  cPageHtm = Replace(cPageHtm, "/", "\")
'  nFound = InStrRev(cPageHtm, "\") + 1
'  cPageHtm = LCase(Mid(cPageHtm, nFound))
'  nFound = InStr(cPageHtm, ".htm")
'  If nFound = 0 Then
'    cPageHtm = "index.html"
'    cPagina = "index"
'  Else
'    nFound = nFound - 1
'    cPagina = Left(cPageHtm, nFound)
'  End If
'  cCRLF = Chr(13) & Chr(10)
'  cTekst = cPagina & cCRLF & Day(date()) & cCRLF & Month(date()) & cCRLF _
'    & Year(date()) & cCRLF & Hour(time()) & cCRLF & Minute(time()) & cCRLF _
'    & Second(time()) & cCRLF & DateSerial(2003, 2, 1) & cCRLF _
'    & TimeSerial(1, 2, 3) & cCRLF & window.clientInformation.systemLanguage _
'    & cCRLF & window.clientInformation.browserLanguage

  ' form
'  cHidden = "<input type=hidden name="

'  Set oFakeForm = document.createElement("form")
'  oFooter.insertBefore oFakeForm
'  oFakeForm.method = "post"
'  oFakeForm.action = "http://users.skynet.be/cgi-bin/formd.cgi"

'  Set oInputTo = document.createElement(cHidden & "to>")
'  oFakeForm.insertBefore oInputTo
'  oInputTo.value = "paul.johan.willekens@gmail.com"

'  Set oInputNext = document.createElement(cHidden & "next>")
'  oFakeForm.insertBefore oInputNext
'  oInputNext.value = "http://users.skynet.be/paulwillekens/" & cPageHtm _
'    & "#check"

'  Set oInputFormInfo = document.createElement(cHidden & "forminfo>")
'  oFakeForm.insertBefore oInputFormInfo
'  oInputFormInfo.value = cTekst

'  Set oInputSubject = document.createElement(cHidden & "subject>")
'  oFakeForm.insertBefore oInputSubject
'  oInputSubject.value = cPagina

'  Set oFakeButton = document.createElement("<input type=submit name=formknop>")
'  oFakeForm.insertBefore oFakeButton
'  oFakeButton.value = cSpace
'  oFakeButton.style.backgroundColor = cBackground
'  oFakeButton.style.borderColor = cBackground
'  oFakeButton.style.borderStyle = "solid"

'  document.all("formknop").click

'Else

  cMailTo = "mailto:paul.johan.willekens@gmail.com"

  ' brief.gif
  Set oBriefA = document.createElement("a")
  oFooter.insertBefore oBriefA
  oBriefA.href = cMailTo
  Set oBriefGif = document.createElement("img")
  oBriefA.insertBefore oBriefGif
  oBriefGif.border = 0
  oBriefGif.src = "brief.gif"
  oBriefGif.alt = cMailTo
  Set oBriefSpace = document.createTextNode
  oFooter.insertBefore oBriefSpace
  oBriefSpace.data = cSpace

  ' mailto
  Set oNaam = document.createElement("a")
  oFooter.insertBefore oNaam
  oNaam.href = cMailTo
  oNaam.innerText = "Paul Willekens"

  ' copyright
  Set oCopyRight = document.createTextNode
  oFooter.insertBefore oCopyRight
  oCopyRight.data = cSpace & Chr(169) & cSpace & dLastUpdate

'End If

End Sub
'****************  einde script  *********************