Şu kodlarda hata varmı...

cortes · 2006-09-16T18:58:12.0000000+03:00

Arkadaşlar iki saattir kodları artık farklı şekillerde deneyerek yazıyorum.Yine hata alıyorum.Kafayı yiyeceğim.Şu kodlara bir bakın hata varmı...PWS de çalışıyor.Hostta çalışmıyor yaa.... function tech(data) data = Replace (data ,"`","",1,-1,1) data = Replace (data ,"=","",1,-1,1) data = Replace (data ,"","",1,-1,1) data = Replace (data ,"%","",1,-1,1) data = Replace (data ,"!","",1,-1,1) data = Replace (data ,"#","",1,-1,1) data = Replace (data ," data = Replace (data ,">","",1,-1,1) data = Replace (data ,"*","",1,-1,1) data = Replace (data ,"/","",1,-1,1) data = Replace (data ,"\","",1,-1,1) data = Replace (data ,"And","",1,-1,1) data = Replace (data ,"'","",1,-1,1) data = Replace (data ,"Chr(34)","",1,-1,1) data = Replace (data ,"Chr(39)","",1,-1,1) tech=data end function %> mail=tech(request.form("mail")) sifre=tech(request.form("sifre")) set igiris=Server.CreateObject("Adodb.Recordset") sql ="select * from editor where mail='" mail "'" igiris.open sql,baglanti,1,3 if not igiris.eof then if igiris("sifre")=sifre then if igiris("onay")="1" then session("kekle") = igiris("kekle") session("kduzenle") = igiris("kduzenle") session("ksil") = igiris("ksil") session("sekle") = igiris("sekle") session("sduzenle") = igiris("sduzenle") session("ssil") = igiris("ssil") session("id") = igiris("id") session("girdimi") = "evet" response.redirect "default.asp" else response.write "Editörlüğünüz henüz onaylanmamış.Üye olduktan en geç 24 saat içinde size bilgi e-postası gelecek.Eğer e-posta gelmediyse lütfen bizimle iletişime geçiniz." end if else response.write "Hatalı şifre" end if else response.write "Hatalı Kullanıcı Adı" end if %>