<%
dim BrowserType,c_uname,c_upass,c_uurl
set BrowserType = Request.ServerVariables("HTTP_USER_AGENT")
c_uname=DecodeCookie(request.Cookies(cookies_name)("UserName"))
c_upass=DecodeCookie(request.Cookies(cookies_name)("Password"))
c_uurl=DecodeCookie(request.Cookies(cookies_name)("userurl"))
if left(c_uurl,1)<>"/" then
c_uurl="http://"&c_uurl
end if
if instr(BrowserType,"Firefox") or instr(BrowserType,"Opera") or true_domain=1 then
%>
if (chkdiv('oblog_edit')) {
document.getElementById('oblog_edit').style.border='none';
document.getElementById('oblog_edit').style.background='none';
document.getElementById('oblog_edit').innerHTML='';
}
function Verifycomment()
{
document.all("edit").value=document.all("oblog_edittext").value;
return true;
}
function reply_quote(id)
{
document.all("oblog_edittext").value+="
\n"
document.all("oblog_edittext").focus();
}
<%else%>
if (chkdiv('oblog_edit')) {
document.getElementById('oblog_edit').innerHTML='
\n
\n
\n
\n
\n
\n
\n
\n
\n
\n
\n
\n
\n
\n
\n
\n
\n
\n
\n
\n
\n
\n
\n
\n
\n
\n
\n
\n
\n
\n \n
\n';
document.write('');
document.write('');
}
<%end if
Function DecodeCookie(Str)
Dim i
Dim StrArr, StrRtn
StrArr = Split(Str, "a")
For i = 0 To UBound(StrArr)
If IsNumeric(StrArr(i)) = True Then
StrRtn = ChrW(StrArr(i)) & StrRtn
Else
StrRtn = Str
Exit Function
End If
Next
DecodeCookie = StrRtn
End Function
%>
document.getElementById('UserName').value='<%=c_uname%>';
document.getElementById('Password').value='<%=c_upass%>';
document.getElementById('homepage').value='<%=c_uurl%>';
\n \n