Kod: Tümünü seç
<body style="text-align: center">
<div align="center">
<TABLE cellSpacing=1 cellPadding=0 width="100%" border=1 bordercolorlight="#000000" bordercolordark="#000000">
<FORM name=frmDene>
<TBODY>
<TR>
<%
set odalar = Server.CreateObject("ADODB.RecordSet")
SQL="select * from ODALAR"
odalar.open SQL,connect,1,3
Session("odac")=6
%>
<%
For l = 1 To odalar.RecordCount %>
<% if odalar("Misafir")=0 then%>
<TD>
<p align="center">
<INPUT class=bir onclick="javascript:mychat.ReconnectClient(<%=odalar("Odano")%>); degistir(<%=Session("odac")%>);" type=button value="<%=odalar("Odaadi")%>" style="font-weight: 700"></TD>
<% end if %>
<% if odalar("Misafir")=1 then%>
<% if Session("Uyemi")=1 then %>
<TD>
<p align="center">
<INPUT class=bir onclick="javascript:mychat.ReconnectClient(<%=odalar("Odano")%>); degistir(<%=Session("odac")%>);" type=button value="<%=odalar("Odaadi")%>" style="font-weight: 700"></TD>
<% end if %>
<% if Session("Uyemi")=0 then %>
<TD>
<p align="center">
<INPUT target="yasakoda" class=bir type=button value="<%=odalar("Odaadi")%>" onclick="MM_openBrWindow('yasakoda.asp','','status=yes,scrollbars=yes,width=1,height=1'); degistir(<%=odalar("Odasira")%>);" style="font-weight: 700"></TD>
<% end if %>
<% end if %>
<%
Session("odac")=Session("odac")+2
%>
<% odalar.MoveNext
NEXT
odalar.close
set odalar = Nothing
%>
</TR>
</TBODY>
</form>
</TABLE></div>