Google'nin sayfalarin title'larini çok fazla dikkate aldigini biliyor ve biz hala title'i dinamik yapmamissak orda bir sikinti var demektir.Artik haber bilgi makale ne olursa olsun detaylarini okuturken dinamik olarak title'i güncellememiz gerekir.Nasil yapicaz ? Söyle ki;

Detay okutacagimiz sayfaya id'sini yolladigimiz bilginin id'sini Request.QueryString ile aliyoruz ve meta tag olusturuyoruz...

Private Sub metaTagOlustur()

Dim baglanti As String = ConfigurationManager.ConnectionStrings("baglanti").ToString()

Dim conn As New OleDbConnection(baglanti)

conn.Open()

Dim cmd As New OleDbCommand("select * from tblBilgi where bilgiID=@bilgiID", conn)

cmd.Parameters.AddWithValue("@bilgiID", Request.QueryString("bilgiID").ToString())

Dim dr As OleDbDataReader = Nothing

dr = cmd.ExecuteReader()

If dr.Read() Then

Dim basligaEkliycem As [String] = dr("bilgiBaslik").ToString()

Dim EncodedString As [String] = Server.HtmlEncode(basligaEkliycem)

Dim aciklamaEkleyeyim As [String] = dr("bilgiOzet").ToString()

Dim EncodedDescString As [String] = Server.HtmlEncode(aciklamaEkleyeyim)

Dim Keywords As String = EncodedString

Dim Description As String = EncodedDescString

Dim Title As String = dr("bilgiBaslik").ToString() + " | alierbey.com"

Dim Meta As New HtmlMeta()

Meta.Attributes.Add("name", "keywords")

' kelimelerimizi ekliyoruz

Meta.Attributes.Add("content", Keywords)

Page.Header.Controls.Add(Meta)

Meta = New HtmlMeta()

Meta.Attributes.Add("name", "description")

'açiklama ekliyoruz

Meta.Attributes.Add("content", Description)

Page.Header.Controls.Add(Meta)

Page.Title = Title

End If

conn.Close()

conn.Dispose()

End Sub