<% 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 İÇİN UYGUN GÜNLERİ HESAPLAMA
<% tsqlANASAYFA = "SELECT * FROM TBL_STANDARTICERIK WHERE sayfaID=7" 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 uygunbaslangictarihi = txtSAT+11 uygunbitistarihi = txtSAT+16 ilkgun = Left(uygunbaslangictarihi,2) songun = Left(uygunbitistarihi,2) Response.Write("

Sonuç : Düzenli adet görüyorsanız gebe kalmanız için bir sonraki en uygun tarih " & uygunbaslangictarihi & " ile " & uygunbitistarihi & " tarihleri arasındadır. Gebe kalmanız için en uygun zaman dilimi her ayın " & ilkgun & ". günü ile " & songun & ". günü arasıdır.

") 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İ.