设置打印页头页尾

<script language=vbscript>
function pagesetup_null() 
on error resume next 
Set RegWsh = CreateObject("WScript.Shell") 
hkey_key="\header" 
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"dddddddddddd"
hkey_key="\footer" 
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"dddddddddddd" 
eprint()
end function
</script>上面代码中的"ddddddddddddddddd"我想把他换成页面上的一个控件的值应该怎么得到啊 ？？？
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"dddddddddddd"
我试过RegWsh.RegWrite hkey_root+hkey_path+hkey_key,request.cookies("user").value.tostring
也不行
    如果我页面上有个TEXTBOX叫 TEXTBOX1我应该怎么把TEXTBOX1的值放到ddddddddddddddd的位置啊？？？
谢谢急帮帮忙