<% strconn = Application("Cal_MySQLConnectionString") Set conn = Server.CreateObject("ADODB.Connection") conn.open strconn datakod= "a2" Set birs = conn.Execute("SELECT * FROM "&datakod&"firma") %> <% do while not birs.eof firma = birs("adi") kullan = birs("soyadi") adres = birs("adres") sehir = birs("sehir") pkodu = birs("pkodu") tel1 = birs("tel1") tel2 = birs("tel2") tel3 = birs("ceptel") slogan = birs("slogan") domain = birs("domain") hak = birs("hak") birs.movenext loop birs.close Set birs= Nothing %> <% hgun= weekday(date)%>
 

<% dim gg(10), ss ss=0 ss= weekday(date) gg(1)="Pazar" gg(2)="Pazartesi" gg(3)="Salı" gg(4)="Çarşamba" gg(5)="Perşembe" gg(6)="Cuma" gg(7)="Cumartesi" %> Balıkesir Bugün <% if ss=7 then ss=0 %><% ss=ss+1%><%'=ss%> <%=gg(ss)%> <% if ss=7 then ss=0 %><% ss=ss+1%><%'=ss%> <%=gg(ss)%> <% if ss=8 then ss=1 %><% if ss=7 then ss=0 %><% ss=ss+1%><%'='ss%> <%=gg(ss)%>
.
.
.
.
.

Dikkat:Sayfalarımız en iyi İE.9.x ve 1024x768 ekran çözünürlüğünde izlenebilir.


<%'url2="http://10.1.1.21/FUGA-DATA/"%> <%url2="HTTP://www.karesitv.com/FUGA-DATA/"%> KRT. .

 WebMaster

 İnternetteki ev sahibiniz.
 FUGA Medya Web Tasarım Grubu

.
<% conn.close set conn = Nothing %>