%
Dim intErrNo
Dim strErr
Dim ErrTitle
Dim ErrImage:ErrImage = "../files/images/layout/alert_64.png"
intErrNo = Trim(Request.QueryString("Err"))
If Len(intErrNo) = 0 or Not IsNumeric(intErrNo) Then Response.Redirect("default.asp")
Select Case intErrNo
Case 404
ErrTitle = "Sayfa Bulunamadı"
strErr = "Ulaşmaya çalıştığınız sayfa bulunamadı. Bu sayfa yapım aşamasında ya da güncelleniyor da olabilir. Lütfen daha sonra tekrar ziyaret ediniz."
Case 403
ErrTitle = "Sayfaya Erişimi İzniniz Bulunmuyor"
'strErr = "Bu bölüm sadece site üyelerine özel bir alandır.
Eğer şifrenizi bilmiyorsanız ya da giriş bilgilerinizi unuttuysanız buraya tıklayın.
Site üyelik koşulları hakkında bilgi almak için bizimle iletişime geçiniz. uyelik@alanadi.org
Üye Girişi"
'strErr = "Bu alan sadece site üyelerinin erişimine açıktır.
Üye iseniz aşağıdaki bağlantıya tıklayarak kullanıcı adınız ve şifreniz ile giriş yapabilirsiniz.
Üye Girişi"
strErr = "Bu alan sadece site üyelerinin erişimine açıktır."
Case 110
ErrTitle = "Email Gönderilemedi"
strErr = "E-mail sunucumuzda bir sorun olustu. Email gönderilemedi. Lütfen daha sonra tekrar deneyiniz."
Case 101
ErrTitle = "Hatalı Kullanıcı Bilgileri"
strErr = "Giriş için kullandığınız kullanıcı adı, email ya da şifreniz hatalı olabilir. Lütfen kontrol edip tekrar deneyiniz."
Case Else
ErrTitle = "Bir Hata Oluştu"
strErr = "Bilinmeyen Bir Hata Olustu."
End Select
Dim relatedPageId:relatedPageId = ""
Dim strPageTitle:strPageTitle = intErrNo & " - " & ErrTitle
Dim strBreadCrumbMenu:strBreadCrumbMenu = CreateBreadCrumbMenu(relatedPageId,"Ana Sayfa")
Dim PageMenu:PageMenu = CreatePageMenu(relatedPageId,MenuTemplatesFolder & "PageMenu.html","
",10)
%>
PAYLAŞ
<%=strBreadCrumbMenu%>