<% 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














GEBELİK YAŞI HESAPLAMA

<% tsqlANASAYFA = "SELECT * FROM TBL_STANDARTICERIK WHERE sayfaID=6" 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) %>

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")) txtSAT = CDate(txtSAT) if txtSAT="" Or Not IsDate(txtSAT) Then Response.Write("

Tarih formatını yanlış yazdınız. Örnek olarak 15.12.2006 şeklinde aralarına nokta koyarak yazmalısınız.

") Else toplamgun = Date-txtSAT hafta = Int(toplamgun/7) gun = toplamgun 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İ.