Veritabanından (Access) Bilgileri Sayfaya Dökmenin En Yalın ve Kurallı Örneği - Sayfa 2 - Webmaster Forumu | web Teknik |

**HayaL** · 31-07-2008, 11:43

Konu : Anket
Seviye : Basit
Kaynak Dosyalar : http://rapidshare.com/files/6153939/anket.rar.html

Anlaşılmasının kolay olması için çok basit mantık kullanılarak oluşturuldu.

Oy verme sayfası

Sonuç sayfası

Kod:
<%
dim strConn
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("anket.mdb")

set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn

set objRs = Server.CreateObject("ADODB.Recordset")
strSql = "SELECT TOP 1 * FROM tblAnket ORDER BY anket_tarihi DESC"
objRs.open strSql, objConn, 3, 3

intAnketID = objRs("anket_id")
strAnketSorusu = objRs("anket_sorusu")

If Request.QueryString("islem") = "true" then

strSql = "UPDATE tblSecenek SET secenek_oy = secenek_oy + 1 WHERE secenek_id= " & Request.QueryString("id") & ";"

If Int(Request.Cookies("anket")("id")) <> intAnketID then
objConn.Execute strSql
Response.Cookies("anket").Expires = Now() + 7
Response.Cookies("anket")("id") = intAnketID
Response.write "Teşekkürler"
End if
End if

strSql = "SELECT * FROM tblSecenek WHERE anket_id = " & intAnketID
set objRsSecenek = Server.CreateObject("ADODB.Recordset")
objRsSecenek.Open strSql, objConn, 3, 3
intToplam = 0

While Not objRsSecenek.EOF
intToplam = intToplam + objRsSecenek("secenek_oy")
objRsSecenek.MoveNext
Wend

objRsSecenek.MoveFirst

If Request.QueryString("sonuc") = "true" OR Request.QueryString("islem") = "true" OR cInt(Request.Cookies("anket")("id")) = intAnketID then
If intToplam = 0 then
Response.write "sonuçlar"
Else
%>
<table width="250">
<tr>
<td colspan="3"><%=strAnketSorusu%></td>
</tr>
<%
while not objRsSecenek.EOF
intToplamOy = (objRsSecenek("secenek_oy") / intToplam) * 100
%>
<tr>
<td><%=objRsSecenek("secenek")%></td>
<td width='100'><img src='resimler/anket.gif' height='5' width='<%=Round(intToplamOy,0)%>'></td>
<td><%=Round(intToplamOy,1)%> %</td>
</tr>
<%
objRsSecenek.movenext
wend
%>
</table>
<br>
<%
Response.write intToplam & " oy"
End If
Else
%>
<table width="250">
<form name="poll" action="anket.asp?sonuc=true" method="get">
<input type="hidden" name="islem" value="true">
<tr>
<td colspan="3"><%=strAnketSorusu%></td>
</tr>
<%
while not objRsSecenek.EOF
%>
<tr>
<td><%=objRsSecenek("secenek")%></td>
<td><input type="radio" name="id" value="<%=objRsSecenek("secenek_id")%>"></td>
</tr>
<%
objRsSecenek.movenext
wend
%>
<tr>
<td colspan="2"><input type="submit" value="Gönder"><br><a href="anket.asp?sonuc=true">Sonuçlar</a></td>
</tr>
</form>
</table>
<%
End if
%>

**HayaL** · 31-07-2008, 11:43

Konu : Sayfa Çözünürlüğü (Html)
Seviye : Basit
Kaynak Dosyalar : Yok

Çok güzel sayfalar yapabilirsiniz, Elinizde çok güzel içerikler bulunabilir ancak bunları sağa sola kayan ya da sayfa ve tablo düzeni olmayan bir halde sunmak etkiyi azaltır. Göze hoş gelmez.

Burada yapmak istediğimiz kısaca şu;

Üst ve sol tarafta default olarak verilen boşlukları css margin:0px ve padding:0px kodları ile sıfırlayacağız. Böylelikle sayfa alanımız genişlemiş olacak
%100 uzunlukta bir tablo açacağız. Böylece her çözünürlüğe göre bu tablo şekil alacak.
%100 değerli tablonun içerisine 779 pixel uzunluğunda/genişliğinde sabit bir tablo oluşturacağız.
Sabit tabloyu (779px) dinamik tablo(%100) içerisinde ortada ya da isteğe göre sol ya da sağa doğru yaslayıp içerisine sitemizi oluşturacağız.

Şimdi merhale merhale html kodlarımızı oluşturalım. Notpad dışında editör kullanmamanızı şiddetle öneririm.

En basit hali ile html kodlarımız. Bu iskeleti oluşturuyor.

Kod:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>
<head>
<title></title>
</head>
<body>

</body>
</html>
kullandığımız html kodlarının versiyonunu belirtiyoruz. HTML 4.01
Kod:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
Bir Html sayfası bu iki kod arasında yazılan diğer html tagları ile oluşturulur.
Kod:
<html>
</html>

<head></head> arasına sayfa ile ilgili ayar kodlamaları yazılır. Örneğin <title>Deneme Sayfası</title> sayfanın başlığını gösterir. Bu yazı "Deneme Sayfası" açılan sayfamızın durum çubuğunda (Status bar) görünmesini sağlar. Sayfayı farklı kaydettiğimizde sayfanın adının oluşturulmasında kullanılır....
Kod:
<head>
<title></title>
</head>
<body></body> bu iki tag arasına yazılanlar sayfa içeriğini oluşturur.
Kod:
<body>

</body>

Kod:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9">
</head>
<body>

</body>
</html>
Sayfamızda Türkçe Karakterlerin doğru bir şekilde görünmesini sağlar. Mutlaka her sayfada <head></head> tagları arasında yazılmalıdır.
Kod:
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9">

şimdi <body></body> tagları arasında sayfamızı ve sayfamızın-sitenin iskeletini oluşturmaya başlayalım.

Sayfa uzunluğu/genişliği %100 değeri ile verilmiş dinamik bir tablo
Kod:
<table border="1" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td></td>
</tr>
</table>
kısaca açıklayayım
border="1" tabloya 1px lik çerçeve verir. Normalde bunu border="0" olarak yapacağız. Ancak sayfada yaptıklarımızı görebilmemiz açısından 1 değerini veriyoruz.
cellpadding="0" cellspacing="0" ile çerçevelerin kenarlarında boşluk vermeyeceğimizi belirtiyoruz siz bu değerleri oynayarak ne ğibi değişiklikler yaptığını deneyebilirsiniz..
width="100%" uzunluk sayfayı açan kişinin ekran çözünürlüğüne eşit demektir.
Kod:
<table border="1" cellpadding="0" cellspacing="0" width="100%">
</table>

Satır oluşturur
Kod:
<tr>

</tr>

Sutun/hücre oluşturur.
Kod:
<td></td>

şimdi de 779px genişliğinde sabit bir tablo oluşturalım.

Kod:
<table border="1" cellpadding="0" cellspacing="0" width="779">
<tr>
<td></td>
</tr>
</table>
Tablolama mantığı konusunda da biraz bilgi verirsek ilk yaptığınız tablo hücresi içine diğer tabloyu yazacaksınız. Editörlerin doldurduğu bir sürü anlamsız kodlardanda kurtulmuş ve sadece gerekli olan kodların olduğu tertemiz bir kodlamaya sahip olmuş olacaksınız.
Mantığı şu
her zaman <table> tagından sonra <tr> gelir. <tr> tagından sonra her zaman <td> gelir. <td> tagından sonra bir tablo daha eklemek istiyorsanız <table> tagı sonrada <tr> ve <td> gelir. Elbette açılma sırasına göre bunları kapatmamızda gerekiyor.

Kod:
<table>
<tr>
<td>
<table>
<tr>
<td></td>
</tr>
</table>
</td>
</tr>
</table>

Dinamik tablomuz ile sabit tablomuzu iç içe yazabiliriz.
Kod:
<table border="1" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td>
<table border="1" cellpadding="0" cellspacing="0" width="779">
<tr>
<td> </td>
</tr>
</table>
</td>
</tr>
</table>
bundan sonra sitemizi inşa edeceğimiz alanın sol, orta ya da sağa dayalı mı yapacağımıza karar vereceğiz. Sola dayalı yapacaksanız hiç bir şey yapmanıza gerek yok ancak ortada ya da sağda olmasını istiyorsanız sabit 779px lik tabloyu içine alan hücre <td> de bunu belirtmemiz gerekecek. <td align="center"> gibi..
left : sola hizalı yapar
center : ortaya hizalar.
right : sağa hizalar.

son hali şu şekilde ancak her şey bitmiş değil.

Orjinal Boyutunda Açmak İçin ( 1024x738 ve 193KB ) Buraya Tıklayın

iskeleti oluşturmaya devam edelim.

bir sayfada genel olarak üst orta ve alt bölümler olmak üzere 3 satırdan oluşur.

Üst bölüm banner alanı olarak kullanılabilir.
Orta bölümde kendi içinde iki bölüm/sütundan oluşur. Sol tarafta linkler ve sağ tarafta da sayfa içeriği bulunur.
Alt Bölümde ise linkler ve copyrigth kısmı bulunur.

3 ana satırı ekleyelim.
Kod:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>
<head>
<title></title>
<style type="text/css">

</style>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9">
</head>
<body>

<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td align="center">
<table border="1" cellpadding="0" cellspacing="0" width="779">
<tr>
<td>üst</td>
</tr>
<tr>
<td>orta</td>
</tr>
<tr>
<td>alt</td>
</tr>
</table>
</td>
</tr>
</table>

</body>
</html>
görünüm

Orjinal Boyutunda Açmak İçin ( 1024x738 ve 164KB ) Buraya Tıklayın

2. Satır yani orta bölüm iki sutundan oluşuyordu. Bu sütunların sağda olanı genelde menü/link alanı sağ tarafta ise içerik bölümü yer alır. Kodumuza bunu ekliyorum.

Kod:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>
<head>
<title></title>
<style type="text/css">

</style>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9">
</head>
<body>

<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td align="center">
<table border="1" cellpadding="0" cellspacing="0" width="779">
<tr>
<td height="170">Üst Bölüm</td>
</tr>
<tr>
<td>
<table border="1" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="179" valign="top">Sol Menü Bölümü</td>
<td width="600" valign="top" height="400">Orta İçerik Bölümü</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="25">Alt Bölüm</td>
</tr>
</table>
</td>
</tr>
</table>

</body>
</html>
Görünümü,

Orjinal Boyutunda Açmak İçin ( 1024x738 ve 191KB ) Buraya Tıklayın

Html bölümü bitti artık orta içerik kısmının içine yeni tablolar açarak istediğiniz içeriği yazabilirsiniz. Çözünürlük bozulmayacaktır.
Ancak konunun asp ile ilgisi bundan sonra başlıyor. Hemen bir alt konuda asp include yöntemi ile bunu nasıl düzenleyeceğinizi anlatacağım.

**HayaL** · 31-07-2008, 11:43

Konu : İclude Yöntemi
Seviye : Basit
Kaynak Dosyalar : http://rapidshare.com/files/6194416/include.rar.html

Genel olarak sayfanın 3 satırdan oluştuğunu (1. satır : Üst Bölüm, 2. satır : Orta Bölüm, 3. satır : Alt Bölüm) ve 2.satır'ın yani Orta bölümünde kendi içinde 2 sütundan (1. sütun : Menü/Link Bölümü, 2. sütun : Sayfa İçerik Bölümü) oluştuğunu söylemiştik.

Sayfa İçerik Bölümü dışında kalan bölümler pek değişmez sabit alanlardır. Bunları HTML ile her sayfada yapmak zorundayız. Ancak Asp de bu sayfaları ayrı sayfalar olarak yapar ve bunları kullanılacağı alanlarda include file yöntemi (bunun dışında include virtual ve server.execute yöntemleri var ancak biz burada onlara değinmeyeceğiz.) ile çağırırız.
Bu bize ne kazandırır.
Örneğin Üst bölümde bir banner var ve sitemizde toplam 50 sayfa olsun ve biz bu banneri değiştirecek olalım ozaman tüm bu 50 sayfayı tekrar tekrar düzenlememiz gerekir. Oysa bu sayfayı asp ile bir defa yapıp tüm sayfaların üstüne include ile eklersek bir sayfayı değiştirmekle tüm sitede bu değişikliği kazandırmış oluruz. Zaten sunucu taraflı (asp/php vb.) gibi dillerin önemide buradan kaynaklanmaktadır. Bu bize işlem yoğunluğunu azaltmamıza ve interaktif bir yapıya sahip olmamıza olanak sağlar.

Kullanacağımız kod "" çift tırnak içine çağıracağımız asp dosyasını yazıyoruz.
Kod:

kodlamayı bir önceki derste anlatılan son html kod üzerinden devam ederek geliştireceğim.

bir önceki derste ki kodumuzun sayfa içeriği kısmına bir tablo daha ekleyerek devam edelim.

Kod:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>
<head>
<title></title>
<style type="text/css">

</style>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9">
</head>
<body>

<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td align="center">
<table border="1" cellpadding="0" cellspacing="0" width="779">
<tr>
<td height="170">Üst Bölüm</td>
</tr>
<tr>
<td>
<table border="1" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="179" valign="top">Sol Menü Bölümü</td>
<td width="600" valign="top">
<table border="1" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td height="400">Sayfa İçeriği Bölümü</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="25">Alt Bölüm</td>
</tr>
</table>
</td>
</tr>
</table>

</body>
</html>
Sayfamız 3 satırdan oluşuyordu ve 2. satır 2 sütundan oluşuyordu.
Şimdi bu kodu ben yine 3 parçaya böleceğim ve üç ayrı asp sayfası olarak kaydedeceğim.

include edilen sayfalar olduğunu belirtmek için inc ekleyeceğim başına.

1. asp sayfamız
inc_ust.asp (üst bölümü ve menü/link bölümünü içerecek)
2. asp sayfamız
default.asp (sayfa içerik bölümünü içerecek ve inc_ust.asp ile inc_alt.asp sayfaları include edilecek)
3. asp sayfamız
inc_alt.asp (alt bölümü içerecek)
edecek...

inc_ust.asp
Kod:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>
<head>
<title></title>
<style type="text/css">

</style>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9">
</head>
<body>

<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td align="center">
<table border="1" cellpadding="0" cellspacing="0" width="779">
<tr>
<td height="170">Üst Bölüm</td>
</tr>
<tr>
<td>
<table border="1" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="179" valign="top">Sol Menü Bölümü</td>
<td width="600" valign="top">

default.asp
Kod:

<table border="1" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td height="400">Sayfa İçeriği Bölümü</td>
</tr>
</table>


inc_alt.asp
Kod:
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="25">Alt Bölüm</td>
</tr>
</table>
</td>
</tr>
</table>

</body>
</html>

Sayfaları localhost a koyup default.asp i cağırın.

**HayaL** · 31-07-2008, 11:44

Konu : Her Mail Bileşeninden Html Mail Göndermek
Seviye : Orta
Kaynak Dosyalar : http://rapidshare.com/files/6203306/html_mail.rar.html

3 adet sayfamız olacak.

Bilgileri alacak olan form sayfası (mail.html)
Formdan gelen bilgileri işleyecek sayfa (mail.asp)
Mail bileşenlerini kullanan fonksiyon sayfamız (inc_mail.asp)

mail.html
Kod:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>
<head>
<title></title>
<style type="text/css">

</style>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9">
</head>
<body>

<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td align="center">
<table border="1" cellpadding="0" cellspacing="0" width="779">
<tr>
<td width="179"> <td>
<td width="600">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td height="25" valign="top"><span class="hata">* Doldurulması Gerekli Alanlar</span></td>
</tr>
<tr>
<td>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<form action="mail.asp" method="post">
<input type="hidden" name="islem" value="gonder">
<tr>
<td width="145" class="baslik_01">Adınız <font class="hata"><b>*</b></font> : </td>
<td><input type="text" name="ad" size="37" maxlength="30" value=""></td>
</tr>
<tr>
<td width="145" class="baslik_01">Soyadınız <font class="hata"><b>*</b></font> : </td>
<td><input type="text" name="soyad" size="37" maxlength="30" value=""></td>
</tr>
<tr>
<td width="145" class="baslik_01">E-Mail : </td>
<td><input type="text" name="mail" size="37" maxlength="30" value=""></td>
</tr>
<tr>
<td width="145" class="baslik_01">Konu <font class="hata"><b>*</b></font> : </td>
<td><input type="text" name="konu" size="37" maxlength="30" value=""></td>
</tr>
<tr>
<td width="145" valign="top" class="baslik_01">Mesajınız <font class="hata"><b>*</b></font> : </td>
<td><textarea rows="10" cols="50" name="mesaj"></textarea></td>
</tr>
<tr>
<td width="145"><img src="resimler/bosluk.gif" alt="" width="1" height="1" border="0" /></td>
<td><input type="image" src="resimler/dugme_gonder.jpg" /></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>

</body>
</html>

mail.asp
Kod:
<% @ Language=VBScript CodePage="1254" %>

<%
'///////////////////////////////////////////////////////////////////////////////////////////////////////
'/////////////////////////////////// DEĞİŞTİRECEĞİNİZ ALANLAR //////////////////////////////////////////
'///////////////////////////////////////////////////////////////////////////////////////////////////////
dim strSiteAdres
'mutlaka domainin sonuna / ekleyiniz.
strSiteAdres = "http://www.domain.com/"
'///////////////////////////////////////////////////////////////////////////////////////////////////////
dim strSiteResimDizin
'mail sayfasında kullanılan jpg ve gif dosyalarının bulunduğu klasörün adı
strSiteResimDizin = "resimler"
'///////////////////////////////////////////////////////////////////////////////////////////////////////
dim strMailBilesen
'CDOSYS
'CDONTS
'Jmail
'AspEmail
'AspMail
'Yukarıdaki bileşenlerden birini aşağıya yazınız.
strMailBilesen = "Jmail"
'///////////////////////////////////////////////////////////////////////////////////////////////////////
dim strMailSmtp
strMailSmtp = "mail.domain.com"
'///////////////////////////////////////////////////////////////////////////////////////////////////////
dim strMail
strMail = "mail@domain.com"
'///////////////////////////////////////////////////////////////////////////////////////////////////////
dim blnHtmlMail
'True = Html Mail Formatı
'False = Text Mail Formatı
blnHtmlMail = True
'///////////////////////////////////////////////////////////////////////////////////////////////////////
dim strAliciAd
strAliciAd = "Alıcı Ad ya da Kurum Adı"
'///////////////////////////////////////////////////////////////////////////////////////////////////////
dim strDonusSayfasi
'mail gönderildikten sonra gidilecek sayfa.
strDonusSayfasi = "default.asp"
'///////////////////////////////////////////////////////////////////////////////////////////////////////
'///////////////////////////////////////////////////////////////////////////////////////////////////////

if Request.form("islem") = "gonder" then
dim strAd, strSoyad, strIsim, strGonderenMail, strKonu, strMesaj

strAd = Request.Form("ad")
strSoyad = Request.Form("soyad")
strIsim = strAd & " " & strSoyad
strGonderenMail = Request.Form("mail")
strKonu = Request.Form("konu")
strMesaj = Request.Form("mesaj")

dim strHtml
strHtml = strHtml & "<html>" & vbNewLine
strHtml = strHtml & "<head>" & vbNewLine
strHtml = strHtml & "<title>Html Mail</title>" & vbNewLine
strHtml = strHtml & "<meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-9"">" & vbNewLine
strHtml = strHtml & "</head>" & vbNewLine
strHtml = strHtml & "<body leftmargin=""0"">" & vbNewLine
strHtml = strHtml & "<table align=""center"" border=""0"" cellspacing=""0"" cellpadding=""0"" width=""100%"">" & vbNewLine
strHtml = strHtml & " <tr> " & vbNewLine
strHtml = strHtml & " <td> " & vbNewLine
strHtml = strHtml & " <table align=""center"" border=""0"" cellspacing=""0"" cellpadding=""0"" width=""779"">" & vbNewLine
strHtml = strHtml & " <tr> " & vbNewLine
strHtml = strHtml & " <td><a href=""" & strSiteAdres & "default.asp""><img src=""" & strSiteAdres & strSiteResimDizin & "/banner.jpg"" border=""0"" alt="""" height=""175"" width=""779""></a></td>" & vbNewLine
strHtml = strHtml & " </tr>" & vbNewLine
strHtml = strHtml & " <tr> " & vbNewLine
strHtml = strHtml & " <td> " & vbNewLine
strHtml = strHtml & " <table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%""> " & vbNewLine
strHtml = strHtml & " <tr>" & vbNewLine
strHtml = strHtml & " <td><img src=""" & strSiteAdres & strSiteResimDizin & "/bosluk.gif"" alt="""" width=""1"" height=""5"" border=""0"" /></td>" & vbNewLine
strHtml = strHtml & " </tr>" & vbNewLine
strHtml = strHtml & " <tr>" & vbNewLine
strHtml = strHtml & " <td>" & vbNewLine
strHtml = strHtml & " <table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%""> " & vbNewLine
strHtml = strHtml & " <tr>" & vbNewLine
strHtml = strHtml & " <td background=""" & strSiteAdres & strSiteResimDizin & "/tablo_ust_sol.gif"" width=""35"" height=""20""></td>" & vbNewLine
strHtml = strHtml & " <td background=""" & strSiteAdres & strSiteResimDizin & "/tablo_ust_orta.gif"" width=""100%"" height=""20""></td>" & vbNewLine
strHtml = strHtml & " <td background=""" & strSiteAdres & strSiteResimDizin & "/tablo_ust_sag.gif"" width=""15"" height=""20""></td>" & vbNewLine
strHtml = strHtml & " </tr>" & vbNewLine
strHtml = strHtml & " <tr>" & vbNewLine
strHtml = strHtml & " <td background=""" & strSiteAdres & strSiteResimDizin & "/tablo_sol.gif"" width=""35""><img src=""" & strSiteAdres & strSiteResimDizin & "/bosluk.gif"" alt="""" width=""35"" height=""1"" border=""0"" /></td>" & vbNewLine
strHtml = strHtml & " <td>" & vbNewLine
strHtml = strHtml & " <table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%""> " & vbNewLine
strHtml = strHtml & " <tr> " & vbNewLine
strHtml = strHtml & " <td><img src=""" & strSiteAdres & strSiteResimDizin & "/bosluk.gif"" alt="""" width=""1"" height=""20"" border=""0"" /></td> " & vbNewLine
strHtml = strHtml & " </tr> " & vbNewLine
strHtml = strHtml & " <tr>" & vbNewLine
strHtml = strHtml & " <td align=""center""><font style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; font-weight:bold; color: #ffcc66;"">" & strKonu & "</font></td>" & vbNewLine
strHtml = strHtml & " </tr>" & vbNewLine
strHtml = strHtml & " <tr> " & vbNewLine
strHtml = strHtml & " <td><img src=""" & strSiteAdres & strSiteResimDizin & "/bosluk.gif"" alt="""" width=""1"" height=""20"" border=""0"" /></td> " & vbNewLine
strHtml = strHtml & " </tr> " & vbNewLine
strHtml = strHtml & " <tr>" & vbNewLine
strHtml = strHtml & " <td>" & vbNewLine
strHtml = strHtml & " <table align=""center"" border=""0"" cellpadding=""0"" cellspacing=""0"" width=""90%""> " & vbNewLine
strHtml = strHtml & " <tr>" & vbNewLine
strHtml = strHtml & " <td>" & vbNewLine
strHtml = strHtml & " <table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%""> " & vbNewLine
strHtml = strHtml & " <tr>" & vbNewLine
strHtml = strHtml & " <td width=""50%"" style=""text-indent:30px""><font style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; font-weight:notmal; color: #000000;"">" & strIsim & "</font></td>" & vbNewLine
strHtml = strHtml & " <td align=""right"" width=""50%""><font style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; font-weight:notmal; color: #000000;"">" & Day(Now) & " " & Month(Now) & " " & Year(Now) & "</font></td>" & vbNewLine
strHtml = strHtml & " </tr>" & vbNewLine
strHtml = strHtml & " </table>" & vbNewLine
strHtml = strHtml & " </td>" & vbNewLine
strHtml = strHtml & " </tr>" & vbNewLine
strHtml = strHtml & " <tr> " & vbNewLine
strHtml = strHtml & " <td><img src=""" & strSiteAdres & strSiteResimDizin & "/bosluk.gif"" alt="""" width=""1"" height=""20"" border=""0"" /></td> " & vbNewLine
strHtml = strHtml & " </tr> " & vbNewLine
strHtml = strHtml & " <tr>" & vbNewLine
strHtml = strHtml & " <td>" & vbNewLine
strHtml = strHtml & " <table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%""> " & vbNewLine
strHtml = strHtml & " <tr>" & vbNewLine
strHtml = strHtml & " <td style=""text-align:justify; text-indent:30px""><font style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; font-weight:normal; color: #000000;"">" & strMesaj & "</font></td></td>" & vbNewLine
strHtml = strHtml & " </tr>" & vbNewLine
strHtml = strHtml & " </table>" & vbNewLine
strHtml = strHtml & " </td>" & vbNewLine
strHtml = strHtml & " </tr>" & vbNewLine
strHtml = strHtml & " <tr> " & vbNewLine
strHtml = strHtml & " <td><img src=""" & strSiteAdres & strSiteResimDizin & "/bosluk.gif"" alt="""" width=""1"" height=""20"" border=""0"" /></td> " & vbNewLine
strHtml = strHtml & " </tr> " & vbNewLine
strHtml = strHtml & " <tr>" & vbNewLine
strHtml = strHtml & " <td>" & vbNewLine
strHtml = strHtml & " <table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%""> " & vbNewLine
strHtml = strHtml & " <tr>" & vbNewLine
strHtml = strHtml & " <td width=""50%""><font style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; font-weight:notmal; color: #000000;"">" & Request.ServerVariables("REMOTE_ADDR") & "</font></td>" & vbNewLine
strHtml = strHtml & " <td align=""right"" width=""50%""><font style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; font-weight:bold; color: #ffcc66;""></font><font style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; font-weight:notmal; color: #000000;"">" & strMail & "</font></td>" & vbNewLine
strHtml = strHtml & " </tr>" & vbNewLine
strHtml = strHtml & " </table>" & vbNewLine
strHtml = strHtml & " </td>" & vbNewLine
strHtml = strHtml & " </tr>" & vbNewLine
strHtml = strHtml & " <tr> " & vbNewLine
strHtml = strHtml & " <td><img src=""" & strSiteAdres & strSiteResimDizin & "/bosluk.gif"" alt="""" width=""1"" height=""20"" border=""0"" /></td> " & vbNewLine
strHtml = strHtml & " </tr> " & vbNewLine
strHtml = strHtml & " </table>" & vbNewLine
strHtml = strHtml & " </td>" & vbNewLine
strHtml = strHtml & " </tr>" & vbNewLine
strHtml = strHtml & " </table>" & vbNewLine
strHtml = strHtml & " </td>" & vbNewLine
strHtml = strHtml & " <td background=""" & strSiteAdres & strSiteResimDizin & "/tablo_sag.gif"" width=""15""><img src=""" & strSiteAdres & strSiteResimDizin & "/bosluk.gif"" alt="""" width=""15"" height=""1"" border=""0"" /></td>" & vbNewLine
strHtml = strHtml & " </tr>" & vbNewLine
strHtml = strHtml & " <tr>" & vbNewLine
strHtml = strHtml & " <td background=""" & strSiteAdres & strSiteResimDizin & "/tablo_alt_sol.gif"" width=""35"" height=""20""></td>" & vbNewLine
strHtml = strHtml & " <td background=""" & strSiteAdres & strSiteResimDizin & "/tablo_alt_orta.gif"" width=""100%"" height=""20""></td>" & vbNewLine
strHtml = strHtml & " <td background=""" & strSiteAdres & strSiteResimDizin & "/tablo_alt_sag.gif"" width=""15"" height=""20""></td>" & vbNewLine
strHtml = strHtml & " </tr>" & vbNewLine
strHtml = strHtml & " </table>" & vbNewLine
strHtml = strHtml & " </td>" & vbNewLine
strHtml = strHtml & " </tr>" & vbNewLine
strHtml = strHtml & " <tr>" & vbNewLine
strHtml = strHtml & " <td><img src=""" & strSiteAdres & strSiteResimDizin & "/bosluk.gif"" alt="""" width=""1"" height=""5"" border=""0"" /></td>" & vbNewLine
strHtml = strHtml & " </tr>" & vbNewLine
strHtml = strHtml & " </table>" & vbNewLine
strHtml = strHtml & " </td>" & vbNewLine
strHtml = strHtml & " </tr>" & vbNewLine
strHtml = strHtml & " <tr> " & vbNewLine
strHtml = strHtml & " <td> " & vbNewLine
strHtml = strHtml & " <table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%""> " & vbNewLine
strHtml = strHtml & " <tr> " & vbNewLine
strHtml = strHtml & " <td bgcolor=""#ff9900"" height=""24"" style=""FILTER: progid

XImageTransform.Microsoft.Gradient(gradien tType=0,startColorStr=#ffcc00,endColorStr=#ff9900) ;""> " & vbNewLine
strHtml = strHtml & " <table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%""> " & vbNewLine
strHtml = strHtml & " <tr> " & vbNewLine
strHtml = strHtml & " <td width=""220""><span style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight:normal; color: #ffffff;""> Domain.Com © 2006</span></td> " & vbNewLine
strHtml = strHtml & " <td align=""center""><a href=""" & strSiteAdres & "default.asp"" target=""_blank"" style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight:normal; color: #ffffff; text-decoration: none;"">Ana Sayfa</a> <font style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight:normal; color: #ffffff;"">|</font> <a href=""" & strSiteAdres & "hakkimizda.asp"" target=""_blank"" style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight:normal; color: #ffffff; text-decoration: none;"">Hakkımızda</a> <font style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight:normal; color: #ffffff;"">|</font> <a href=""" & strSiteAdres & "linkler.asp"" target=""_blank"" style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight:normal; color: #ffffff; text-decoration: none;"">Linkler</a> <font style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight:normal; color: #ffffff;"">|</font> <a href=""" & strSiteAdres & "konuk.asp"" target=""_blank"" style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight:normal; color: #ffffff; text-decoration: none;"">Konuk Defteri</a> <font style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight:normal; color: #ffffff;"">|</font> <a href=""" & strSiteAdres & "iletisim.asp"" target=""_blank"" style=""font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; font-weight:normal; color: #ffffff; text-decoration: none;"">İletişim</a></td> " & vbNewLine
strHtml = strHtml & " </tr>" & vbNewLine
strHtml = strHtml & " </table>" & vbNewLine
strHtml = strHtml & " </td>" & vbNewLine
strHtml = strHtml & " </tr>" & vbNewLine
strHtml = strHtml & " <tr>" & vbNewLine
strHtml = strHtml & " <td><img src=""" & strSiteAdres & strSiteResimDizin & "/bosluk.gif"" alt="""" width=""1"" height=""10"" border=""0"" /></td>" & vbNewLine
strHtml = strHtml & " </tr>" & vbNewLine
strHtml = strHtml & " </table>" & vbNewLine
strHtml = strHtml & " </td>" & vbNewLine
strHtml = strHtml & " </tr>" & vbNewLine
strHtml = strHtml & " </table>" & vbNewLine
strHtml = strHtml & " </td>" & vbNewLine
strHtml = strHtml & " </tr>" & vbNewLine
strHtml = strHtml & "</table>" & vbNewLine
strHtml = strHtml & "</body>" & vbNewLine
strHtml = strHtml & "</html>" & vbNewLine

call SendMail(strHtml, strAliciAd, strMail, strIsim, strGonderenMail, strKonu, strMailBilesen, strMailSmtp, blnHtmlMail)
end if

Response.Redirect strDonusSayfasi
%>

inc_mail.asp
Kod:
<%
function SendMail(strMailIcerik, strAliciAd, strAliciMail, strGonderenAd, strGonderenMail, strKonu, strMailKomponent, strSmtpAdres, blnHtmlMail)
Dim objCDOSYSMail
Dim objCDOMail
Dim objJMail
Dim objAspEmail
Dim objAspMail

'if blnHtmlMail = True then
'else
'end if

select case strMailKomponent

case "CDOSYS"

set objCDOSYSMail = server.createobject("CDO.Message")
objCDOSYSMail.From = strGonderenAd & " <" & strGonderenMail & ">"
objCDOSYSMail.To = strAliciAd & " <" & strAliciMail & ">"
'objCDOSYSMail.Cc = ""
'objCDOSYSMail.BCC = ""
objCDOSYSMail.Subject = strKonu
if blnHtmlMail = True then
objCDOSYSMail.HTMLBody = strMailIcerik
else
objCDOSYSMail.TextBody = strMailIcerik
end if

dim objConfig
Set objConfig = Server.CreateObject("CDO.Configuration")

'objCDOSYSMail.Importance = 1 '(0=Low, 1=Normal, 2=High)
'objCDOSYSMail.AddAttachment = "file://G:\_DDDDDD\_binboga\ftp\stil.css"
'objCDOSYSMail.AttachFile "G:\_DDDDDD\_binboga\ftp\stil.css", "stil.css"
'objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "C:\inetpub\mailroot\pickup"
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 '1=SendUsingPickupDirectory
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmtpAdres
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 '1=cdoBasic
objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
'objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mail@domain.com"
'objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "123456"
objConfig.Fields.Update
Set objCDOSYSMail.Configuration = objConfig

objCDOSYSMail.Send
Set objConfig = Nothing
set objCDOSYSMail = Nothing

case "CDONTS"
set objCDOMail = Server.CreateObject("CDONTS.NewMail")
with objCDOMail
.From = strGonderenAd & " <" & strGonderenMail & ">"
.To = strAliciAd & " <" & strAliciMail & ">"
.Subject = strKonu
.Body = strMailIcerik
if blnHtmlMail = True then
.BodyFormat = 0
else
.BodyFormat = 1
end if
.MailFormat = 0
.Importance = 1
.Send
end with
set objCDOMail = Nothing

case "Jmail"
set objJMail = Server.CreateObject("JMail.SMTPMail")
with objJMail
.ServerAddress = strSmtpAdres
.Sender = strGonderenMail
.SenderName = strGonderenAd
.AddRecipient strAliciMail
.Subject = strKonu
if blnHtmlMail = True then
.HTMLBody = strMailIcerik
else
.Body = strMailIcerik
end if
.Priority = 3
if NOT strSmtpAdres = "" then .Execute
end with
set objJMail = Nothing

case "AspEmail"
set objAspEmail = Server.CreateObject("Persits.MailSender")
with objAspEmail
.Host = strSmtpAdres
.From = strGonderenMail
.FromName = strGonderenAd
.AddAddress strAliciMail
.Subject = strKonu
if blnHtmlMail = True then
.IsHTML = True
end if
.Body = strMailIcerik
if NOT strSmtpAdres = "" then .Send
end with
set objAspEmail = Nothing

case "AspMail"
set objAspMail = Server.CreateObject("SMTPsvg.Mailer")
with objAspMail
.RemoteHost = strSmtpAdres
.FromAddress = strGonderenMail
.FromName = strGonderenAd
.AddRecipient " ", strAliciMail
.Subject = strKonu
if blnHtmlMail = True then
.ContentType = "text/HTML"
end if
.BodyText = strMailIcerik
if NOT strSmtpAdres = "" then .SendMail
end with
set objAspMail = Nothing
end Select
SendMail = True
end Function
%>

**HayaL** · 31-07-2008, 11:44

Konu : Türkçe Karakter Problemi(Asp+JavaScript)
Seviye : Basit
Kaynak Dosyalar : yok

Ajax ile ilgili google i arattığımda asp-php ya da diğer programlama dillerinde Türkçe karakterlerin sorun çıkartmasından yakınılmış ve çözüm aranmış herkes bir şeyler önermiş ancak genelde kesin çözüm ve net çözüm bulana rastlamadım. Genelde Replace ile kodları çevirme yoluna gitmişlerki bu da hantal bir metot...

Yapacağımız 3 işlem var.

1 - Tüm asp sayfalarınızı notpad ile açın en üst kısmına
Kod:
<%Response.charset="utf-8"%>
i ekleyiniz.

Orjinal Boyutunda Açmak İçin ( 659x244 ve 11KB ) Buraya Tıklayın

php konusunda çok fazla bilgim olmasada sanırım yukarıdaki asp nin eşdeğeri şu olsa gerek...
Kod:
<?php
header("Content-Type: text/xml; charset=utf-8");
?>

2 - Asp sayfalarını kapatmadan önce notpatd'in sol üst köşesinde bulunan Dosya menüsünden Farklı Kaydet Komutunu veriniz. Açılan sihirbazda dosya adının yazıldığı alanın altında bulunan Kodlama bölümünden UTF-8 i seçip kaydet komutunu veriniz.

3 - Html Tagları içinde karakter setini belirten tag olarak aşağıda verilen dışında başka bir şey eklemeyiniz...
Kod:
<meta http-equiv="content-type" content="text/html; charset=UTF-8">

artık Türkçe karakterleriniz tüm tarayıcılarda doğru bir şekilde çıkacaktır.

**HayaL** · 31-07-2008, 11:44

Konu : Access içerisindeki verileri xml formatına çevirmek
Seviye : Basit
Kaynak Dosyalar : http://rapidshare.com/files/25457614/merakli_xml.rar

Orjinal Boyutunda Açmak İçin ( 667x240 ve 135KB ) Buraya Tıklayın

Orjinal Boyutunda Açmak İçin ( 654x225 ve 77KB ) Buraya Tıklayın

Kod:
<%
'Kodlar merakli tarafından yazılmıştır.
'merrrakli@hotmail.com

dim strConn
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("veritabani.mdb")

dim objConn
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn

dim objRs
set objRs = Server.CreateObject("ADODB.Recordset")
objRs.CursorType = 0
objRs.CursorLocation = 2
objRs.LockType = 1

dim strSql
strSql = "SELECT * FROM tblHaber"
objRs.Open strSql, objConn, , , &H0001

if Not objRs.EOF then
Response.ContentType = "text/xml"
Response.Write "<?xml version=""1.0"" encoding=""windows-1254""?>" & vbNewLine
Response.Write "<haberler>" & vbNewLine
do while Not objRs.EOF
Response.Write "<haber>" & vbNewLine & _
"<haber_id>" & objRs("haber_id") & "</haber_id>" & vbNewLine & _
"<haber_baslik>" & objRs("haber_baslik") & "</haber_baslik>" & vbNewLine & _
"<haber_detay><![CDATA[" & objRs("haber_detay") & "]]></haber_detay>" & vbNewLine & _
"<haber_tarih>" & objRs("haber_tarih") & "</haber_tarih>" & vbNewLine & _
"</haber>" & vbNewLine & _
objRs.MoveNext
loop
Response.Write "</haberler>" & vbNewLine
end if

objRs.Close
set objRs = Nothing

objConn.Close
set objConn = Nothing
%>

**HayaL** · 31-07-2008, 11:45

Konu : Veritabanına Birden Fazla Veriyi Kaydetmek
Seviye : Basit
Kaynak Dosyalar : http://rapidshare.com/files/25795993...oklu_kayit.rar

Kod:
<%
dim intID
intID = Trim(Request.Form("id"))

dim arrID
arrID = Split(intID, ",")

dim objConn
set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn

dim intSayac, strSql
for intSayac = LBound(arrID) to UBound(arrID)
strSql = "INSERT INTO tblSecim(secim_uye_id) VALUES(" & arrID(intSayac) & ")"
objConn.Execute(strSql),,adCmdText + adExecuteNoRecords
next

objConn.Close
set objConn = Nothing
%>

**HayaL** · 31-07-2008, 11:45

id numarasını değiştirerek deneyiniz.

combobox.asp?id=3

Konu : Combobox Menü
Seviye : Basit
Kaynak Dosyalar : http://rapidshare.com/files/26311217...i_combobox.rar

Formlarda pulldown menülerin içeriğini dinamik olarak kullanmak istediğimizde combobox işlemi yapan bir fonksiyon işimize çok yarayacaktır.

Kod:
<%
function fonkSelect(strTabloAdi, strSelectAdi, intSeciliID)

dim objRs
set objRs = Server.CreateObject("ADODB.Recordset")
objRs.CursorType = 0
objRs.CursorLocation = 2
objRs.LockType = 1

dim strSql
strSql = "SELECT * FROM " & strTabloAdi
objRs.Open strSql, objConn, , , &H0001

if Not objRs.EOF then
Response.Write " <select name=""" & strSelectAdi & """>" & vbNewLine &_
" <option value="""">seçiniz</option>" & vbNewLine
do while Not objRs.EOF
Response.Write " <option value=""" & objRs("durum_id") & """"
if intSeciliID <> "" then
if objRs("durum_id") = Int(intSeciliID) then Response.Write " selected"
end if
Response.Write ">" & objRs("durum_ad") & "</option>" & vbNewLine
objRs.MoveNext
loop
Response.Write " </select>" & vbNewLine
end if

objRs.Close
set objRs = Nothing

end function
%>

**HayaL** · 31-07-2008, 11:45

Konu : Kategorilerin Gösterimi
Seviye : Basit
Kaynak Dosyalar : http://rapidshare.com/files/10053474/kategori.rar.html

Resimde veritabanındaki tabloları, adres subuğundaki url i ve kategorilerin sayfa üzerinde görüntüsünü verdim. Sanırım içeriği anlamanız için yeterlidir.

**HayaL** · 31-07-2008, 11:46

Konu : Access te Tarihleri String olarak Kaydetmek ve Okumak
Seviye : Basit
Kaynak Dosyalar : http://rapidshare.com/files/10188924/tarih.rar.html

Access veritabanında tarih alanı her zaman sorun çıkartır. Çünkü tarih istemcinin bilgisayar tarih-dil ayarları ile yakından alakalıdır. Veritabanına kaydederken tarihin farklı formatlarda olması bazı sorgulama ve okuma hatalarına sebep olabilir.
Bunun en kısa ve mantıklı kurtuluş yolu tarih alanını tarih-saat veri türü şeklinde değilde fonksiyon yardımı ile normal veri türüne çevirerek kaydetmek gerektiğinde yine tersine bir fonksiyon ile bu string i date-time türüne çevirmekten geçer.
İşte size bununla ilgili gerekli fonksiyonlar..

Kod:
function fonkTarihFormatKontrol(dtTarihSaat)
fonkTarihFormatKontrol = isdate("" & Mid(dtTarihSaat, 1,2) & "/" & Mid(dtTarihSaat, 3,2) & "/" & Mid(dtTarihSaat, 5,4) & " " & Mid(dtTarihSaat, 9,2) & ":" & Mid(dtTarihSaat, 11,2) & ":" & Mid(dtTarihSaat, 13,2) & "")
end function
Kod:
function fonkStrindenTarihFormatina(dtTarihSaat, blnSaat)
if fonkTarihFormatKontrol(dtTarihSaat) then
if strComp(Month("04/05/2002"),"4") = 0 then
if blnSaat then
fonkStrindenTarihFormatina = cdate("" & Mid(dtTarihSaat, 3,2) & "/" & Mid(dtTarihSaat, 1,2) & "/" & Mid(dtTarihSaat, 5,4) & "")
else
fonkStrindenTarihFormatina = cdate("" & Mid(dtTarihSaat, 3,2) & "/" & Mid(dtTarihSaat, 1,2) & "/" & Mid(dtTarihSaat, 5,4) & " " & Mid(dtTarihSaat, 9,2) & ":" & Mid(dtTarihSaat, 11,2) & ":" & Mid(dtTarihSaat, 13,2) & "")
end if
else
if blnSaat then
fonkStrindenTarihFormatina = cdate("" & Mid(dtTarihSaat, 1,2) & "/" & Mid(dtTarihSaat, 3,2) & "/" & Mid(dtTarihSaat, 5,4) & "")
else
fonkStrindenTarihFormatina = cdate("" & Mid(dtTarihSaat, 1,2) & "/" & Mid(dtTarihSaat, 3,2) & "/" & Mid(dtTarihSaat, 5,4) & " " & Mid(dtTarihSaat, 9,2) & ":" & Mid(dtTarihSaat, 11,2) & ":" & Mid(dtTarihSaat, 13,2) & "")
end if
end if
else
if strComp(Month("04/05/2002"),"4") = 0 then
if blnSaat then
dtGecici = DatePart("m",strTarihTR) & "/" & DatePart("d",strTarihTR) & "/" & DatePart("yyyy",strTarihTR)
else
dtGecici = DatePart("m",strTarihTR) & "/" & DatePart("d",strTarihTR) & "/" & DatePart("yyyy",strTarihTR) & " " & DatePart("h",strTarihTR) & ":" & DatePart("n",strTarihTR) & ":" & DatePart("s",strTarihTR)
end if
else
if blnSaat then
dtGecici = DatePart("d",strTarihTR) & "/" & DatePart("m",strTarihTR) & "/" & DatePart("yyyy",strTarihTR)
else
dtGecici = DatePart("d",strTarihTR) & "/" & DatePart("m",strTarihTR) & "/" & DatePart("yyyy",strTarihTR) & " " & DatePart("h",strTarihTR) & ":" & DatePart("n",strTarihTR) & ":" & DatePart("s",strTarihTR)
end if
end if
fonkStrindenTarihFormatina = dtGecici
end if
end function
Kod:
function fonkSifirEkle(intVeri)
if intVeri > 9 then
fonkSifirEkle = intVeri
else
fonkSifirEkle = "0" & intVeri
end if
end function
Kod:
function fonkTarihtenStringFormatina(dtTarihSaat)
if not isDate(dtTarihSaat) then
dtTarihSaat = fonkStrindenTarihFormatina(dtTarihSaat, false)
end if
fonkTarihtenStringFormatina = fonkSifirEkle(Day(dtTarihSaat)) & fonkSifirEkle(Month(dtTarihSaat)) & Year(dtTarihSaat) & fonkSifirEkle(Hour(dtTarihSaat)) & fonkSifirEkle(Minute(dtTarihSaat)) & fonkSifirEkle(Second(dtTarihSaat)) & ""
end function
Kod:
function fonkGun(dtVeri)
select case DatePart("w", dtVeri)
case 1 : fonkGun = "Pazar"
case 2 : fonkGun = "Pazartesi"
case 3 : fonkGun = "Salı"
case 4 : fonkGun = "Çarşamba"
case 5 : fonkGun = "Perşembe"
case 6 : fonkGun = "Cuma"
case 7 : fonkGun = "Cumartesi"
end select
end function

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç