<%
Url = request.querystring
Degisken = request.querystring
If Instr(Degisken,"?gclid") > 0 And Instr(degisken,"?Filtre") > 0 Then
Toplam = Split(Degisken,"?gclid")
KalanToplam = Split(Degisken,"?Filtre")
Url = Toplam(0)
Kalan = KalanToplam(1)
Url = Degisken & "?Filtre" & Kalan
End If
If Instr(Degisken,"?gclid") > 0 And Instr(degisken,"?Filtre") = 0 Then
Toplam = Split(Degisken,"?gclid")
Url = Toplam(0)
End If
If Instr(Degisken,"?utm_source") > 0 And Instr(degisken,"?Filtre") = 0 Then
Toplam = Split(Degisken,"?utm_source")
Url = Toplam(0)
End If
If Instr(Degisken,"OM.exVisitorID") > 0 Then
Toplam = Split(Degisken,"?OM.exVisitorID")
Url = Toplam(0)
End If
UrlParcala = Split(Url,"/")
KalanUrl = UrlParcala(3)
If KalanUrl = "Hakkimizda" Then
Session("Title") = "Hakkımızda - Royaltech"
Server.Execute("/about.asp")
ElseIf KalanUrl = "Iletisim" Then
Server.Execute("/contact.Asp")
End If
%>
Yukarıdaki örneği kullanabilirsiniz.
Örnek
www.siteadiniz.com/Hakkimizda linkinde ftpnizde bulunan about.asp yi kullanmakta
www.siteadiniz.com/Iletisim linkinde ftpnizde bulunan contact.asp yi kullanmakta
Yukarıdaki iflerle reklam google arama sonuçları gibi utm parametresi olan linklerde de düzgün çalışmasını sağlamakta.
Umarım işinizi görür.