<% '*********************************************************************** '* DİNAMİK SİTEMAP '* ================ '* Tüm sayfaların SEO dostu SiteMap'ini oluşturur '* Arama motorlarının siteyi daha iyi keşfetmesini sağlar '*********************************************************************** Response.ContentType = "application/xml" Response.Charset = "UTF-8" Response.CacheControl = "no-cache, must-revalidate" Response.AddHeader "Pragma", "no-cache" Response.Expires = -1 ' XML başlığı Response.Write "" Response.Write "" '*********************************************************************** '* STATİK SAYFALAR '*********************************************************************** Response.Write "" Response.Write "" Response.Write " https://www.siteadi.com/" Response.Write " " & FormatDateTime(Now(), "yyyy-mm-dd") & "" Response.Write " daily" Response.Write " 1.0" Response.Write " " Response.Write " " Response.Write " " Response.Write " " Response.Write "" '*********************************************************************** '* DİNAMİK SAYFALAR - OURTEAM '*********************************************************************** Set rsTeam = conn.Execute("SELECT projectID, teamFullname, createDate FROM team_members WHERE status=1 ORDER BY createDate DESC") Do While Not rsTeam.EOF teamSlug = ConvertToSEOUrl(rsTeam("teamFullname")) Response.Write "" Response.Write " https://www.siteadi.com/tr/ourteam/" & teamSlug & "" Response.Write " " & FormatDateTime(rsTeam("createDate"), "yyyy-mm-dd") & "" Response.Write " weekly" Response.Write " 0.7" Response.Write " " Response.Write " " Response.Write " " Response.Write " " Response.Write "" rsTeam.MoveNext Loop '*********************************************************************** '* DİNAMİK SAYFALAR - PRODUCTS '*********************************************************************** Set rsProducts = conn.Execute("SELECT projectID, projectTitle, createDate FROM product_records WHERE status=1 ORDER BY createDate DESC") Do While Not rsProducts.EOF productSlug = ConvertToSEOUrl(rsProducts("projectTitle")) Response.Write "" Response.Write " https://www.siteadi.com/tr/products/" & productSlug & "" Response.Write " " & FormatDateTime(rsProducts("createDate"), "yyyy-mm-dd") & "" Response.Write " weekly" Response.Write " 0.8" Response.Write " " Response.Write " " Response.Write " " Response.Write " " Response.Write "" rsProducts.MoveNext Loop '*********************************************************************** '* DİNAMİK SAYFALAR - CORPORATE '*********************************************************************** Set rsCorporate = conn.Execute("SELECT projectID, projectTitle, createDate FROM corporate WHERE status=1 ORDER BY createDate DESC") Do While Not rsCorporate.EOF corporateSlug = ConvertToSEOUrl(rsCorporate("projectTitle")) Response.Write "" Response.Write " https://www.siteadi.com/tr/corporate/" & corporateSlug & "" Response.Write " " & FormatDateTime(rsCorporate("createDate"), "yyyy-mm-dd") & "" Response.Write " monthly" Response.Write " 0.6" Response.Write " " Response.Write " " Response.Write " " Response.Write " " Response.Write "" rsCorporate.MoveNext Loop '*********************************************************************** '* DİNAMİK SAYFALAR - SERVICES '*********************************************************************** Set rsServices = conn.Execute("SELECT projectID, projectTitle, createDate FROM services WHERE status=1 ORDER BY createDate DESC") Do While Not rsServices.EOF servicesSlug = ConvertToSEOUrl(rsServices("projectTitle")) Response.Write "" Response.Write " https://www.siteadi.com/tr/services/" & servicesSlug & "" Response.Write " " & FormatDateTime(rsServices("createDate"), "yyyy-mm-dd") & "" Response.Write " monthly" Response.Write " 0.6" Response.Write " " Response.Write " " Response.Write " " Response.Write " " Response.Write "" rsServices.MoveNext Loop ' Diğer sayfalar için benzer mantık... ' certificates, humanresources, solutionpartners, editorials, promovideos, newsroom '*********************************************************************** '* SİTEMAP KAPAT '*********************************************************************** Response.Write "" ' Recordset'leri temizle If Not rsTeam Is Nothing Then rsTeam.Close Set rsTeam = Nothing End If If Not rsProducts Is Nothing Then rsProducts.Close Set rsProducts = Nothing End If If Not rsCorporate Is Nothing Then rsCorporate.Close Set rsCorporate = Nothing End If If Not rsServices Is Nothing Then rsServices.Close Set rsServices = Nothing End If ' FormatDateTime fonksiyonu (eğer yoksa eklemelidir) Function FormatDateTime(dt, format) If IsDate(dt) Then FormatDateTime = Year(dt) & "-" & Right("0" & Month(dt), 2) & "-" & Right("0" & Day(dt), 2) Else FormatDateTime = "2024-01-01" End If End Function %>