|
<%
bugun = id&","&ay&","&yil
bugun = id&","&ay&","&yil
if isdate(bugun)=false then id=day(date)
bugun = id&","&ay&","&yil %>
SEÇİLEN TARİH <% Response.Write bugun %>
|
ECZANE ADI
|
ADRESİ
|
TELEFONU
|
<%
SQL = "select * from Employee where yil ="& yil &" and ay="& ay &" and gun="& id &""
rst.Open SQL,Conn,adOpenStatic,adLockReadOnly,adcmdtext
If rst.RecordCount>0 Then
i=-1
Dim IntPageSize, PageIndex, TotalPages, TotalRecords
Dim RecordCount, RecordNumber,PageCount
IntPageSize = 20
PageIndex = Request("PageIndex")
If PageIndex = "" Then PageIndex = 1
RecordCount = rst.RecordCount
RecordNumber = (PageIndex * IntPageSize) - (IntPageSize)
rst.PageSize = intPageSize
rst.AbsolutePage = PageIndex
TotalPages = rst.PageCount
Dim intPrev, intNext
intPrev = PageIndex - 1
intNext = PageIndex + 1
If rst.EOF=True Then rst.MoveFirst%>
<%Dim Count%>
<%Count = 1%>
<%Do while NOT rst.EOF AND Count <= IntPageSize%>
<%If rst.EOF=False Then%>
<%i=i+1%>
| <%=rst.Fields(1)%> |
<%=rst.Fields(2)%> |
<%=rst.Fields(3)%> |
<%Else%>
<%End If%>
<%count = count + 1%>
<%rst.MoveNext%>
<%loop%>
<%Response.Write "| "%>
<%call BuildNav2 (intPrev,IntNext,TotalPages)%>
<%response.write " | "%>
<%rst.close%>
<%Else%>
|
SONUÇ BULUNAMADI
|
|
Ana Sayfa |
<%End IF%>
|