kod sorunu

Aradığınız içerik sitemizde mevcut durumdadır buradan sitemize dönebilirsiniz !

Forum Başlıklarına gitmek için tıklayınız

Kod sorunu

site ile forum u birbirine bağlıycam yani siteden forum a üye girişi ile geçilebilsin istiyorum.fakat şu sorun geliyor.

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Driver Manager] Veri kaynağı adı bulunamadı ve varsayılan sürücü belirtilmemiş
/webariza/webwizlogin/default.asp, line 20

Baglanti.open "DRIVER={Microsoft Access Driver(forum/admin/database/wwwforum.mdb)};" & _

20.satır da yukarıdaki gibi..

db nin yazma izni var.. db nin yoluda doğru bi yanlışlık yok.. sorun ne olabilir.

Kod Alanı:

<%
%>

<% if request.cookies("WWF")("UID") = "" then %>
<%
form = request.form("form")
kadi = request.form("kadi")
ksifre = request.form("ksifre")
mesaj = "Lütfen Giriş Yapınız"

if form = "ok" then

if kadi<>"" and ksifre<>"" then

%>
 <% 'Foruma göre ayarla %>

<%
set Baglanti = server.createobject("adodb.connection")
Baglanti.open "DRIVER={Microsoft Access Driver (forum/admin/database/wwwforum.mdb)};" & _
"DBQ=" & server.mappath("forum/admin/database/wwwforum.mdb") 'strDbPathAndName

set User_Kontrol = server.createobject("adodb.recordset")

login = "select * from tblAuthor where UserName='"&kadi&"'"

User_Kontrol.Open login, Baglanti, 1,3

if User_Kontrol.Eof then

%>
<script language="JavaScript">alert('Kullanıcı adınız hatalı.\n\nLütfen Tekrar Deneyin.');</script>
<%
else %>
<%
Tuz = User_Kontrol("Salt")
Ksifre = Ksifre & Tuz
Ksifre = HashEncode(Ksifre)

if Ksifre <> User_Kontrol("Password") then
%>
<script language="JavaScript">alert('Şifreniz Yanlış.\n\nLütfen Tekrar Deneyin.');</script>
<% else %>
<% Response.Cookies("WWF")("UID") = User_Kontrol("User_Code") %>
<% response.redirect("default.asp") %>
<% end if %>
<% end if %>
<%

else

mesaj = "Lütfen formu doldurunuz"

end if
end if

%>
     <form method="post">
<%=mesaj%><br>
<font size="2">Kullanıcı Adı :</font>
<input type="text" name="kadi" value="<%=kadi%>" size="11"> <br>
<font size="2">Parola        :</font>
<input type="password" name="ksifre" size="11"> <input type="submit" value="Giriş">
<input type="hidden" name="form" value="ok">

<a target="_self" href="forum/registration_rules.asp?FID=0">Kayıt ol!!</a>
</form>
<%
else
%>
<font color="#FF0000">Bugün</font>: <%response.write(date)%>

<%
dim temp, ip
temp = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If temp<>"" Then
ip = temp
else
ip = Request.ServerVariables("REMOTE_ADDR")
end if
%>
<br>
<b><font color="#FF0000">IP Numaranız</font>:</b> <%=ip%>

<br>
<a href="forum/active_topics.asp">Aktif Konular</a>
<br>
<a href="forum/members.asp">Üye Listesi</a>
<br>
<a href="forum/pm_welcome.asp">Özel Mesaj</a>
<br>
<a href="forum/help.asp">Yardım</a>
<br>
<a href="forum/member_control_panel.asp">Ayarlar</a>
<br>
<a href="forum/remove_cookies.asp">ÇIKIŞ</a><br><p></p>
     <% end if %>

hepsi bu kodların da.

Hosting Sponsorumuz - Noktahost internet hizmetleri