<% if Session("uye")="" then Response.Write("Üye olmak istiyorum") Else Response.Write("" & Session("uye") & "") End if %> <% if Session("uye")="" then Response.Write("Üye girişi") Else Response.Write("Çıkış") End If%>   <%=Date%>  
      
ANASAYFA          HAKKIMIZDA         HABERLER         SANAL TUR          KARİYER          İLETİŞİM          SSS          SİTE HARİTASI














BEBEĞİNİZİN YAŞINI HESAPLAMA
<% tsqlANASAYFA = "SELECT * FROM TBL_STANDARTICERIK WHERE sayfaID=10" Set VeriGetirRS = Server.CreateObject("ADODB.RecordSet") VeriGetirRS.Open tsqlANASAYFA,DataConn,1,1 VeriGetirRS.MoveFirst Icerik = VeriGetirRS("icerik") VeriGetirRS.Close Set VeriGetirRS = Nothing Response.Write(Icerik) %>

Yaşının hesaplanacağı tarihi yazınız.
(Örneğin: 3 ay sonraki yaşını merak ediyorsanız 3 ay sonrasının tarihini yazınız)

Son gördüğünüz adetin ilk gününün tarihini yazınız.
(Örneğin: 15.12.2006)

<% if Request("hfPOST")="ok" Then txtSAT = Trim(Request("txtSAT")) if txtSAT<>"" then txtSAT = CDate(txtSAT) txtSECILENTARIH = Trim(Request("txtSECILENTARIH")) if txtSECILENTARIH<>"" then txtSECILENTARIH = CDate(txtSECILENTARIH) if txtSAT="" Or Not IsDate(txtSAT) or txtSECILENTARIH="" Or Not IsDate(txtSECILENTARIH) Then Response.Write("

Tarih formatlarından bir veya bir kaçını yanlış yazdınız. Örnek olarak 15.12.2006 şeklinde aralarına nokta koyarak yazmalısınız.

") Else hafta = Int((txtSECILENTARIH-txtSAT)/7) gun = (txtSECILENTARIH-txtSAT) mod 7 Response.Write("

Sonuç : " & hafta & " hafta " & gun & " gün

") End If End If %>
Gizlilik ve Güvenlik              Yasal Kullanım             Tavsiye Et              Internete Giriş Sayfası Yap              Sık Kullanılanlara Ekle              Geri              İleri
© MAYAKLİNİK SAĞLIK HİZMETLERİ LTD.ŞTİ.