Asp Script Hatası

mestan18

New member
Katılım
3 Ağu 2007
Mesajlar
3
Reaction score
0
Puanları
0
Arkadaşlar bir yerde takıldım yardımcı olursanız sevinirim

kısaca anlatıyorum
kodlar şunlar

baglanti.asp
Kod:
<% 
'-------------------------------------- 
VeritabaniYolu="VeriTabani.mdb" 
'--------------------------------------- 

Set adoCon=Server.CreateObject("AdoDb.Connection") 
adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\") & "\gencnet\db\uye.mdb "
%>

oturum kontrol.asp
Kod:
<% 
'Eğer Kullanıcı Girişi Yapılmamışsa hata.asp ye yönlendireceğiz 
IF NOT Session("Uyegirisi")="Tamamdir" THEN Response.Redirect("hata.asp") 
%>

yukleniyorum.asp
Kod:
'Bu sayfa üyelere açık bir sayfadır 
'Eğer Kullanıcı Girişi Yapılmamışsa Login.asp ye yönlendireceğiz 
%> 
<!--#include file="OturumKontrol.asp" --> 
<!--#include file="Baglanti.asp" --> 

<% 
UyeNUMARASI=Session("Uyenumarasi") 
'Giriş yaparken üyenin numarasını oturum bilgisine atamıştık 

Set Uyebilgi = adoCon.Execute ("SELECT * FROM tbl_users WHERE idno="&UyeNUMARASI&";") 
    If Uyebilgi.EOF Then Response.Redirect("parola.asp") 
        'Oturumu açtıktan sonra kullanıcı oturumu kapatana kadar üyelere açık bölümlere girebilecektir 
        'Fakat diyelim Biz kullanıcıyı üye oturum açtığı sırada sildik yada banladık hala üyelere açık yerlere girebilir 
        'Onun için hersayfada veritanından kontrol edelimki banlamamiz yada silmemiz işe yarasın 

KullanicinADISOYADI=Uyebilgi("AdSoyad") 

Uyebilgi.Close 
Set Uyebilgi = NOTHING 
%>

parola.asp
Kod:
<% 
'include yöntemi ile lazım olan dosyaları sayfada çalıştıralım 
'include etmek sayfalarda tekrar tekrar aynı şeyleri yazacağımıza bir defa yazıp gerekli yerlerde kullanmamız için iyi olur 
%> 
<!--#include file="Baglanti.asp" --> 
<!--#include file="Koruma.asp" --> 
<!--#include file="Md5.asp" -->
<% 

IF REQUEST.ServerVariables("REQUEST_METHOD")="POST" THEN 
'Giriş Butonuna basılıp Post edlince Çalışacaktır 

Dim KullaniciADI 
Dim Parolasi 

KullaniciADI=(Request.Form("user")) 
Parolasi=(Request.Form("pass")) 
'Kullanıcı adını ve parolasını tanımladık inputların name lerinden alır değerleri 
'Sql injection lara karşı önlemimizide aldık 
'Parola için MD5 şifremele yöntemini kullandık 

    Set Login = adoCon.Execute ("SELECT idno,Username,Password FROM tbl_users WHERE Username='"&KullaniciADI&"' AND Password='"&Parolasi&"';") 
         
        If Login.EOF Then 
             
                response.redirect  "yanlis.asp"  'Kulanıcı Adı Ve Bilgileri Yanlış İse Hata.asp yönledniriyoruz 
                
                Else
                
                Session("Uyegirisi")="Tamamdir" 'İstemciye oturum açtık Uyegirisi=Tamamdir dedik 
                Session("Uyenumarasi")=Login("idno") 'Üyeyi tanımak için idnumarasını alacağız 
                Response.Redirect("yukleniyorum.asp") 'Kullanıcı Adı Ve Bilgileri Doğru İse index.asp ye yonlendiriyoruz 
                 
                End If 
'Veritabanına bağlanıp tbl_users tablosuna girdik ve KullaniciADI&Parolasi sını sorgulattık eğer böyle bir bilgi varsa 
'İstemciye oturum açtık ve Panel.asp ye yönlendirdik 

END IF 

%>

localhost ta hiçbir hata almıyorum
ama hosta verdiğim zaman aldığım hata şu

PHP:
Script error detected at line 29. 
Source line: UyeNUMARASI=Session("Uyenumarasi") 
Description: Nesne artık geçerli değil.


YARDIMCI OLURSANIZ SEVİNİRİM !
 
Geri
Üst