Vbscript & amp; javascript operation cookie

Javascript:

<SCRIPT language = "javascript">
Function setCookie (sVar, sVal ){
TheCookie = sVar + = + sVal +; expires = Fri, 1 Jul 2010 09:45:27 UTC;
Document. cookie = theCookie;
}

Function getCookie (sVar ){
Cookies = document. cookie. split (;);
For (var I = 1; I <= cookies. length; I ++ ){
If (cookies [I-1]. split (=) [0] = sVar ){
Return cookies [I-1]. split (=) [1];
}
}
Return;
}

Function doWrite (){
Document. write (........................... Html statement, .....................);

}

If (getCookie (edevil) = ){
DoWrite ();

SetCookie (edevil, Something );
}
</SCRIPT>

========================================================== ================

Vbscript:

<Script language = "VBSCRIPT">
Function GetCookie (sName)

DIM aCookie, I, aCrumb
GetCookie = ""
ACookie = split (document. cookie ,";")
FOR I = LBOUND (aCookie) to UBOUND (aCookie)
ACrumb = split (aCookie (I), "= ")
If sName = aCrumb (0) then
GetCookie = unescape (aCrumb (1 ))
EXIT
End if
NEXT
End function

Sub SetCookie (sName, sValue)
Document. cookie = sName & "=" & escape (sValue) & "; expires = Tue, 31 Dec 2009 23:59:59 GMT"
End Sub

Sub DeleteCookie (sName)
Document. cookie = sName & "=" + escape (sValue) & "; expires = Fri, 31 Dec 1999 23:59:59 GMT ;"
End sub
</SCRIPT>
<Form name = "frm">
Name: <input type = "text" name = "cookiename"> <br>
Value: <input type = "text" name = "cookievalue"> <br>
<Input type = "button" value = "create cookie" onclick = "SetCookie me. form. cookiename. value, me. form. cookievalue. value"
Language = "vbscript">
<Input type = "button" value = "get cookie" onclick = "msgbox GetCookie (me. form. cookiename. value )"
Language = "vbscript">

<Input type = "button" value = "delete cookie" onclick = "DeleteCookie (me. form. cookiename. value )"
Language = "vbscript">