Günlük veri alma..

Arkadaşlar iki tane tablom var birisi sözler adında diğeri ise günlük söz adında... Benim yapmam gereken her gün sözler tablosunun içinden rastgele bir tane söz seçip günün sözü tablosuna aktarmak ...Bunu yaptım ama...benim yapmadığım taraf hergün farklı bir söz seçilecek.. Benim yaptığım günlük söz olarka gösteriyo ama günlük farklı söz göstermek istiyorumm... Kodlar aşağıdadıdr

<%
set rs = baglan.Execute("select * from gunun_sozu ")
if rs.eof and rs.bof then

set rs2 = baglan.Execute("select * from sozler ORDER BY RAND() ")
id=rs2("id")
soz=rs2("soz")
gun=day(date)
ay=month(date)
yil=year(date)
baglan.execute("insert gunun_sozu set soz='"&soz&"',gun='"&gun&"',ay='"&ay&"',yil='"&yil&"'")
%>

<%
else
set rs3 = baglan.Execute("select * from gunun_sozu ")
if day(date)=rs3("gun") and month(date)=rs3("ay") and year(date)=rs3("yil") then
response.write("bugün <br> ")
soz=rs3("soz")
response.Write soz
else
set rs4 = baglan.Execute("select * from sozler ORDER BY RAND()")

if id=rs3("id") then
soz=rs4("soz")
gun=day(date)
ay=month(date)
yil=year(date)
baglan.execute("update gunun_sozu set id='"&id&"',soz='"&soz&"',gun='"&gun&"',ay='"&ay&"',yil='"&yil&"'")
soz=rs4("soz")
response.Write soz
end if
end if
%>
<br />

Arkadaşlar nasıl yapılcağı hakkında fikir veren yok mu

hocam iki tablo arası aktarma yapmak istiyorsun ilk tablona kullanıldı veya kullanılmadı diye ekstra bir bölüm ekle . yani sözü secip aktardığında söz için kullanıldı ibrasini koy ve ilk sorgulama yaparken kullanılmayanlar arasından seç

Teşekkürler hocam...Bunu düşünmemiştim... Öyle deneyeyim bir de...

Hocam sonunda oldu... Bari kodları vereyimde ihtiyaç olan arkadaşlar kendince kullanır... Teşekkürler excemcli hocam

<%
set rs = baglan.Execute("select * from gunun_sozu ")
if rs.eof or rs.bof then

set rs2 = baglan.Execute("select * from sozler where kullanildi=0 ORDER BY RAND()")
if rs2.eof or rs2.bof then
response.Write("Onaylı söz bulunamadı")
else
id=rs2("id")
baglan.execute("update sozler set kullanildi=1 where id='"&id&"'")
soz=rs2("soz")
gun=day(date)
ay=month(date)
yil=year(date)
baglan.execute("insert gunun_sozu set soz='"&soz&"',gun='"&gun&"',ay='"&ay&"',yil='"&yil&"',id='"&id&"'")

response.write("eşit değil")%>
<%=soz%>
<%
end if
else
set rs3 = baglan.Execute("select * from gunun_sozu ")
no=rs3("id")
if day(date)=rs3("gun") and month(date)=rs3("ay") and year(date)=rs3("yil") then
response.write("bugün <br> ")
soz=rs3("soz")
response.Write soz
else
set rs4 = baglan.Execute("select * from sozler where kullanildi=0 ORDER BY RAND()")
if rs4.eof or rs4.bof then
response.Write("Onaylı söz bulunamadı")

else
id=rs4("id")
baglan.execute("update sozler set kullanildi=1 where id='"&id&"'")
set rs5 = baglan.Execute("select * from gunun_sozu ")


soz=rs4("soz")
gun=day(date)
ay=month(date)
yil=year(date)
baglan.execute("update gunun_sozu set id='"&id&"', soz='"&soz&"',gun='"&gun&"',ay='"&ay&"',yil='"&yil&"'")
soz=rs4("soz")
response.Write soz
end if
end if
end if
%>
<br />
<%=date%>