تغییر عکس پس زمینه جدول

سلام دوستان
من میخوام یه جدولی داشته باشم که با کلیک روی هر سلولش یک عکس خاصی توی اون سلول ظاهر بشه
من کارهای زیر رو انجام داد

کد:

---


    <td id="12" onClick="vbscript:clickme(id)">&nbsp;</td>
    <td id="13" onClick="vbscript:clickme(id)">&nbsp;</td>
    <td id="14" onClick="vbscript:clickme(id)">&nbsp;</td>
    <td id="15" onClick="vbscript:clickme(id)">&nbsp;</td>

---

توی clickme هم کد زیر رو میخوام بنویسم که خطا میده

کد:

---

sub clickme(id)
        t1.value=id
        iid=getelementbyid(id)
        document.write(iid)
        if (x mod 2)=1 then
                pic="Red.jpg"
        else
                pic="blue.jpg"
        end if

        if y <> "ok" then
        msgbox "y <> ok  "
        'id.background=pic'
        y="ok"
        end if

---

میدونم کد هام غلطه. ولی نمیدونم چه طوری باید حلش کنم. :41:
ممنون میشم راهنماییم کنید :10:

کسی نیست منو راهنمایی بکنه؟ به خدا کارم بد جوری لنگه !