Merhaba.İnranet te çalışan bir sistem yapıyorum.Kayıtları Pazartesi ise Pazartesiden Cumaya,Salı ise Salı dan cumaya,Çarşamba ise Çarşambdan Cumaya..... Şekilnde Listelemek istiyorum.fakat SQL sorgusunda( unuttuğum yada bilmediğim için) tarihleri seçemiyor ordanda hata veriyor kodlar aşağıda.
Daha açıklayıcı olması için
veri Tarih
X kayıt 25.08.2008
Y Kayıt 26.08.2008
Z Kayıt 27.08.2008
T Kayıt 28.08.2008
w kayıt 29.08.2008
şeklinde tablo olduğunu düşünelim
pazartesi ise X den w ye kadar olan kayıtları
salı ise y den w ye kadar olanları
çarşamba ise z den w ye kadar olan kayıtları
perşembe ise t den w ye kadar olan kayıtları
cuma ise sadece w olan kayıtları listeletmek isityorum.Umarım Anlaşılmışımdır.
PHP Kodu:<!--#include file="conn.ASP"-->
<%
Dim Tarih,Gun
Tarih=Date
Gun=Weekday(date)
Select case Gun
case "2"
Tarih=Tarih
Tarih=Tarih & Tarih + 1 & Tarih + 2 & Tarih + 3 & Tarih + 4
case "3"
Tarih=Tarih
Tarih=Tarih &","& Tarih + 1 &","& Tarih + 2 &","& Tarih + 3
case "4"
Tarih=Tarih
Tarih=Tarih &","& Tarih + 1 &","& Tarih + 2
case "5"
Tarih=Tarih
Tarih=Tarih &","& Tarih + 1
case "6"
response.Write(Tarih)
End Select
On error resume next
set veriseti=server.CreateObject("Adodb.Recordset")
SQL="select * from YazCevIhtarnameler where Tarih="& Tarih
veriseti.open SQL,conn,1,3
do while not veriseti.eof
response.Write(veriseti(1))
response.write("<br>")
veriseti.movenext
loop
response.Write(SQL)
if err then
response.Write err.description
end if
%>
şu şekilde denersen sonuca ulaşırsın (bende çalışıyor)
Kod:if weekday(date())=2 then sqlCumlem = "select * from bilgiler where tarih between date() AND date()+4" end if if weekday(date())=3 then sqlCumlem = "select * from bilgiler where tarih between date() AND date()+3" end if if weekday(date())=4 then sqlCumlem = "select * from bilgiler where tarih between date() AND date()+2" end if if weekday(date())=5 then sqlCumlem = "select * from bilgiler where tarih between date() AND date()+2" end if if weekday(date())=6 then sqlCumlem = "select * from bilgiler where tarih = date()" end if
tabii burda gün cumartesi ve pazar olduğunda SQL cümlesine hata alırsın, if koşullarına bitane else yazabilirsin yada direk weekday(date())=7 OR 1 gibi bir koşul ekleyebilirsin.Kod:SQL = sqlCumlem veriseti.open SQL,conn,1,3 do while not veriseti.eof %> <%=veriseti("bilgi")%> <bR /> <% veriseti.movenext loop %>
gün bilgileri için http://www.w3schools.com/VBscript/func_weekday.asp adresine bakabilirsin.
Mesaj oxigen tarafından 26.08.2008 (02:53) yeniden düzenlendi. Açıklama: ufak bi düzeltme
your KEY to EUROPE : AEGEE-Eskişehir (v2.0) | REMOTTER! small remote application (beta 1.0) | Microsoft Dynamics CRM Developer