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