Asp'de giriş sorunum

[growlix]

Merhaba arkadaşlar,
Bir sözlük scripti geliştiriyorum. Şöyle bir sorunum var. Localhost'ta tıkır tıkır. Arkadaşımın hostuba atmıştım, orada da iyi. Ancak kendi hostumda bir arıza var. İlk hata alışımda şunu alıyordum:

Microsoft JET Database Engine error '80004005'
Could not use ''; file already in use.
/sozluk/db.asp, line 10

DB'yi iki kere kullanmışım sanırım. Düzelttim, entryler gözüküyor, iyi, güzel. Ancak bu sefer de giriş sorunu geldi. Hata şu:

ADODB.Recordset error '800a0e7d'The connection cannot be used to perform this operation. It is either closed or invalid in this context./sozluk/login.asp, line 77

login.asp line 77:

giris.Open girisSQL, con, 1, 3

login.asp'nin tamamı ise şurada: http://www.ozgurlukicin.com/yapistir/902/

sorun nerede?

Teşekkürler.

[burajan]

login.asp dosyasında olan hata da bir yöntem yanlışlığı var gibi. Örneğin; veritabanında tablolar açılmış ancak kapatılmamış. giris.open 2 tane var giris.close hiç yok mesela. Bunlar hata verdirebilir. Bunları kontrol edip, olması gereken yerlere ekleme yaparsanız problemin çözüleceğini düşünüyorum.

[growlix]

giris.close gibi kodları tam olarak nerelere koymam gerekiyor? giris.close yazan yerlerin altına mı? O sayfayı düzenleyip bana atabilirseniz sevinirim.
sayfa buradaydı: http://www.ozgurlukicin.com/yapistir/902/

[burajan]

Şu kodu bir deneyin, çalışıp çalışmayacağından emin değilim. Kodlar çok karmaşık geldi.

Kod: [Seç]

<!--#include file="db.asp"-->
<!--#include file="db5.asp"-->
<link rel=stylesheet href=sozluk.css>
<% islem = request("a")
if islem = "giris" then call login
if islem = "cikis" then call cikis
if islem = "login" then call login2
if islem = "logout" then call cikis2 %>
<p align="center"><font color="#FFCEE7" size="5">Hata bulundu!</font> </p>
<% if request("hata") = 1 then response.write "<center>Hataly kullanycy ady ve ?ifre!</center>"
if request("hata") = 2 then response.write "<center>Hataly kullanycy ady ve ?ifre!</center>"
if request("hata") = 3 then response.write "<center>Sistemde oturumu kapatyp, tekrar girmen gerekiyor.</center>" %><% sub login %>
<%
k_adi = request("k_adi")
sifre = request("sifre")
ip = Request.ServerVariables("REMOTE_ADDR")

Set giris = Server.CreateObject("Adodb.Recordset")
girisSQL = "Select * from uyeler where k_adi='" & k_adi &"' and sifre='" & sifre & "'"
giris.Open girisSQL, con, 1, 3

If giris.EOF And giris.BOF Then
response.redirect "login.asp?hata=2"
end if

if giris("sifre") = request("sifre") then
bitis = time() + #01:00#
giris("giris_sayisi") = giris("giris_sayisi") + 1
giris("son_ip") = ip
giris("son_giris") = date()
giris("session_baslangic") = date() + time()
giris("session_bitis") = date() + bitis
giris.update
session("oturum") = "acik"
session("k_adi") = giris("k_adi")
session("uye_id") = giris("uye_id")
session("ciddiyet") = giris("ciddiyet")
session("yetki") = giris("yetki")
session.timeout = time() + #12:00#
response.cookies("zibidi")("oturum") = "acik"
response.cookies("zibidi")("k_adi") = giris("k_adi")
response.cookies("zibidi")("uye_id") = giris("uye_id")
response.cookies("zibidi")("ciddiyet") = giris("ciddiyet")
response.cookies("zibidi")("yetki") = giris("yetki")
response.cookies("zibidi").expires = date() + 1

member_id = giris("uye_id")
Set k_kontrol = Server.CreateObject("Adodb.Recordset")
kSQL = "Select * from memberlar where member_id = '"& member_id &"'"
k_kontrol.Open kSQL, baglanti, 1, 3

if k_kontrol.EOF or k_kontrol.BOF then
response.redirect "apply.asp?x=2"
else response.redirect "apply.asp?hata=1"
end if
 
else session("oturum") = "kapali"
response.redirect "login.asp?hata=1"
end if

giris.Close
Set giris=Nothing
%>
<% end sub %>
<% sub cikis %>
<% k_adi = request.cookies("sozluk")("k_adi")
response.cookies("sozluk").expires = date() - 365
session("oturum") = "kapali"
Session.Abandon
response.redirect "default.asp" %>
<% end sub %>
<% sub login2 %>
<%
k_adi = request("nick")
sifre = request("sifre")
ip = Request.ServerVariables("REMOTE_ADDR")

Set giris = Server.CreateObject("Adodb.Recordset")
girisSQL = "Select * from uyeler where k_adi='" & k_adi &"' and sifre='" & sifre & "'"
giris.Open girisSQL, con, 1, 3

If giris.EOF And giris.BOF Then
response.redirect "top.asp?hata=2"
end if

mem_id = giris("uye_id")

Set giris2 = Server.CreateObject("Adodb.Recordset")
giris2SQL = "Select * from memberlar where member_id='"& mem_id &"'"
giris2.Open giris2SQL, baglanti, 1, 3

If giris2.EOF And giris2.BOF Then
response.redirect "top.asp?hata=4"
end if

if giris("sifre") = request("sifre") then
bitis = time() + #01:00#
response.cookies("zm")("oturum") = "acik"
response.cookies("zm").expires = now() + #01:00:00#
giris("giris_sayisi") = giris("giris_sayisi") + 1
giris("son_ip") = ip
giris("son_giris") = date()
giris("session_baslangic") = date() + time()
giris("session_bitis") = date() + bitis
giris.update
giris2("giris_sayisi") = giris2("giris_sayisi") + 1
giris2.update
session("oturum") = "acik"
session("k_adi") = giris("k_adi")
session("uye_id") = giris("uye_id")
session("ciddiyet") = giris("ciddiyet")
session("yetki") = giris("yetki")
session.timeout = time() + #12:00#

if giris2("seviye") = 2 and giris2("entry") = 3 then response.redirect "top.asp?hata=5" end if
if giris2("seviye") = 1 then response.redirect "top.asp?hata=6" end if

response.cookies("sozluk")("oturum") = "acik"
response.cookies("sozluk")("k_adi") = giris("k_adi")
response.cookies("sozluk")("member_id") = giris("uye_id")
response.cookies("sozluk")("yetki") = giris2("yetki")
response.cookies("sozluk")("seviye") = giris2("seviye")
response.cookies("sozluk").expires = date() + 1

tk_adi = request("nick")

Set talctrl = Server.CreateObject("Adodb.Recordset")
talctrlSQL = "Select * from kullananlar where k_adi='"& tk_adi &"'"
talctrl.Open talctrlSQL, thm, 1, 3

If talctrl.EOF And talctrl.BOF Then
response.redirect "top.asp"
else

thmuser = talctrl("theme_id")

Set tal = Server.CreateObject("Adodb.Recordset")
talSQL = "Select * from themeler where theme_id="& thmuser &""
tal.Open talSQL, thm, 1, 3

response.cookies("sozluktheme")("durum") = "aktif"
response.cookies("sozluktheme")("bg") = ""&tal("bg")&""
response.cookies("sozluktheme")("last_bg") = ""&tal("last_bg")&""
response.cookies("sozluktheme")("sozluk_bg") = ""&tal("sozluk_bg")&""
response.cookies("sozluktheme")("top_bg") = ""&tal("top_bg")&""
response.cookies("sozluktheme")("messenger_bg") = ""&tal("messenger_bg")&""
response.cookies("sozluktheme")("font") = ""&tal("font")&""
response.cookies("sozluktheme")("entry_baslik_font") = ""&tal("entry_baslik_font")&""
response.cookies("sozluktheme")("baslik_font") = ""&tal("baslik_font")&""
response.cookies("sozluktheme")("last_font") = ""&tal("last_font")&""
response.cookies("sozluktheme")("entry_font") = ""&tal("entry_font")&""
response.cookies("sozluktheme")("top_font") = ""&tal("top_font")&""
response.cookies("sozluktheme")("messenger_font") = ""&tal("messenger_font")&""
response.cookies("sozluktheme")("font_size") = ""&tal("font_size")&""
response.cookies("sozluktheme")("baslik_font_size") = ""&tal("baslik_font_size")&""
response.cookies("sozluktheme")("entry_baslik_font_size") = ""&tal("entry_baslik_font_size")&""
response.cookies("sozluktheme")("last_font_size") = ""&tal("last_font_size")&""
response.cookies("sozluktheme")("entry_font_size") = ""&tal("entry_font_size")&""
response.cookies("sozluktheme")("top_font_size") = ""&tal("top_font_size")&""
response.cookies("sozluktheme")("messenger_font_size") = ""&tal("messenger_font_size")&""
response.cookies("sozluktheme")("text") = ""&tal("text")&""
response.cookies("sozluktheme")("link") = ""&tal("link")&""
response.cookies("sozluktheme")("alink") = ""&tal("alink")&""
response.cookies("sozluktheme")("vlink") = ""&tal("vlink")&""
response.cookies("sozluktheme")("alink_font") = ""&tal("alink_font")&""
response.cookies("sozluktheme")("alink_font_style") = ""&tal("alink_font_style")&""
response.cookies("sozluktheme")("alink_bg") = ""&tal("alink_bg")&""
response.cookies("sozluktheme")("scrollbar_face") = ""&tal("scrollbar_face")&""
response.cookies("sozluktheme")("scrollbar_highlight") = ""&tal("scrollbar_highlight")&""
response.cookies("sozluktheme")("scrollbar_shadow") = ""&tal("scrollbar_shadow")&""
response.cookies("sozluktheme")("scrollbar_arrow") = ""&tal("scrollbar_arrow")&""
response.cookies("sozluktheme")("scrollbar_base") = ""&tal("scrollbar_base")&""
response.cookies("sozluktheme")("scrollbar_3d_light") = ""&tal("scrollbar_3d_light")&""
response.cookies("sozluktheme")("scrollbar_dark_shadow") = ""&tal("scrollbar_dark_shadow")&""
response.cookies("sozluktheme")("table_bg") = ""&tal("table_bg")&""
response.cookies("sozluktheme")("table_border") = ""&tal("table_border")&""
response.cookies("sozluktheme")("copyright_font") = ""&tal("copyright_font")&""
response.cookies("sozluktheme")("copyright_font_size") = ""&tal("copyright_font_size")&""
response.cookies("sozluktheme")("copyright_color") = ""&tal("copyright_color")&""
response.cookies("sozluktheme")("copyright_alt") = ""&tal("copyright_alt")&""
response.cookies("sozluktheme")("form_field_bg") = ""&tal("form_field_bg")&""
response.cookies("sozluktheme")("form_field_font") = ""&tal("form_field_font")&""
response.cookies("sozluktheme")("form_field_font_color") = ""&tal("form_field_font_color")&""
response.cookies("sozluktheme")("form_field_font_size") = ""&tal("form_field_font_size")&""
response.cookies("sozluktheme")("form_button_bg") = ""&tal("form_button_bg")&""
response.cookies("sozluktheme")("form_button_font") = ""&tal("form_button_font")&""
response.cookies("sozluktheme")("form_button_font_color") = ""&tal("form_button_font_color")&""
response.cookies("sozluktheme")("form_button_font_size") = ""&tal("form_button_font_size")&""
response.cookies("sozluktheme").expires = date() + 365

thm.close
set thm = nothing

response.redirect "top.asp"
end if

giris2.Close
Set giris2=Nothing

giris.Close
Set giris=Nothing

con.close
set con = nothing
 
else session("oturum") = "kapali"
response.redirect "top.asp?hata=1"
end if
%>
<% end sub %>
<% sub cikis2 %>
<% 'k_adi = request.cookies("sozluk")("k_adi")
'Set cikisyap = Server.CreateObject("Adodb.Recordset")
'cikisSQL = "Select * from uyeler where k_adi='" & k_adi &"'"
'cikisyap.Open cikisSQL, baglanti, 1, 3

'If cikisyap.EOF And cikisyap.BOF Then
'response.redirect "sponsor.asp"
'end if

'a = 11/11/2000

'cikisyap("session_baslangic") = a
'cikisyap("session_bitis") = a
'cikisyap.update

response.cookies("sozluk").expires = date() - 365
response.cookies("zm").expires = date() - 365
response.cookies("sozluktheme").expires = date() - 365
session("oturum") = "kapali"
Session.Abandon
response.redirect "top.asp" %>
<% end sub %>

[growlix]

Malesef olmadı. Yine aynı hatayı veriyor.

[xalpay]

sorun basit hata kodundaki line:10  hangi satırda hata olduğunu gösteriyor

1. açılan iflerin end if tagını göremiyorum ifler kapatılmamış gibi duruyor
2. if sayıtında hata=1 derken böyle yazmayın o hata değerine değer atayamazsanız boş gelirse burası patlayabillir o yüzden oralarıda if hata="1"  gibi yazmakta fayda vardır