<% 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%>

<%=strPageTitle%>

<%=strErr%>
<%=PageMenu%>