(Block) Scripting code not working in XSL

Hi All,
I've got some scripting code that modifies a date in my transformation =
from xml to html. The code does not throw an error but it does not display =
the date. I just get a blank page and there is no html source code. Here =
is the code I'm using for the script...

<?xml version=3D"1.0"?>
<xsl:stylesheet version=3D"1.0" xmlns:xsl=3D"http://www.w3.org/1999/XSL/Tra=
nsform" xmlns:msxml=3D"urn:schemas-microsoft-com:xslt" xmlns:vbdate=3D"urn:=
schemas-xmlpitstop-com:vbdate">
<xsl:output method=3D"html" media-type=3D"text/html" encoding=3D"UTF-8" =
/>=20

<msxml:script language=3D"VBScript" implements-prefix=3D"vbdate">
  function VBDateAdd(strDate1)=20
  VBDateAdd =3D DateAdd("h", -4, strDate1)=20
  end function=20
  </msxml:script>=20

<table width=3D'171' border=3D'0' cellspacing=3D'0' cellpadding=3D'0' =
bgcolor=3D'#CCCCCC'>
<tr align=3D'center' valign=3D'top'>
          <td colspan=3D'2'>
          <xsl:variable name=3D"date" select=3D"rpuData/essIdent/@TimeStamp=
" />

          <xsl:value-of select=3D"vbdate:VBDateAdd($date)" /> GMT

</td>
</tr>
</table>
</xsl:template>
</xsl:stylesheet>
This table is used as an asp include file in a larger web page.=20
Is there something wrong with the code? Any one have a suggestion on how =
to modify the xml date by 4 hours?
Thanks