Yeni Kayıt
Konudaki Resimler
|
|
_____________________________
|
Hızlı 
Bildirim
ADODB.Recordset error '800a0e7d' hatası..?
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
3 Misafir (1 Mobil) - 2 Masaüstü, 
1 Mobil
1 Mobil
Giriş
Mesaj
-
-
bağlantı kodlarını tam olarak yazar mısınız?
bu hata genelde aynı bağlantı değişkenlerini içiçe kullanmaktan kaynaklanır veya kapatılmış bir bağlantı tekrar kapatıldığında yaşanır_____________________________ Şenel AKSOY - 0 535 470 37 74 - [email protected] -www.senelaksoy.com -
yukarıdaki hatayı aldığım giriş.asp dosyamın kodları aşağıdaki gibi...
hata veren satırı kalın harflerle işaretledim..
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
</head>
<body>
<form method="POST" action="uye_girdi.asp" target="_top">
<table width="500" border="0" align="center" cellpadding="0" cellspacing="0" >
<tr>
<td style="border:1px solid #242424;"><table width="500" border="0" align="center" cellpadding="3" cellspacing="3">
<tr>
<td height="25" colspan="2" style="background-image:url(images/ustmenubg2.jpg)" cellpadding="0" cellspacing="0" ><div align="center" class="style1">..:: YÖNETİCİ GİRİŞİ::.. </div></td>
</tr>
<tr>
<td align="center" valign="top"><p><img src="images/family-icon.png" width="400" height="128" /></p>
<p> </p></td>
</tr>
<tr>
<td height="25" cellpadding="0" cellspacing="0" align="center" >
<%
'Dimension variables
Dim adoCon 'Holds the Database Connection Object
Dim rsCheckUser 'Holds the recordset for the records in the database
Dim strSQL 'Holds the SQL query to query the database
Dim strUserName 'Holds the user name
dim passx, rsUye
'Initalise the strUserName variable
strUserName = Request.Form("txtUserName")
'Create an ADO connection object
Set adoCon = Server.CreateObject("ADODB.Connection")
'Set an active connection to the Connection object using a DSN-less connection
mysql_server = "******"
mysql_user = "********"
mysql_pass = "*******"
mysql_db = "*********"
Set condb = Server.createObject("Adodb.Connection")
condb.Open "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=" & mysql_server & "; UID=" & mysql_user & "; pwd=" & mysql_pass & "; db=" & mysql_db & ";"
'Set an active connection to the Connection object using DSN connection
'adoCon.Open "DSN=guestbook"
'Create an ADO recordset object
Set rsCheckUser = Server.CreateObject("ADODB.Recordset")
'Initialise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT password, ID, username FROM tblUsers WHERE username ='" & strUserName & "'"
'Open the recordset with the SQL query
rsCheckUser.Open strSQL, adoCon
session("member")=""
txtUserName=request.form("txtUserName")
if txtUserName="" or txtUserName=" " then
response.Write("<img src='images/hata.gif' /><br><br>Kullanıcı Adınızı Yazmadınız..!<br><br>")
response.Write("<img src='images/ok.gif' /> <a href=JavaScript:history.go(-1)>Geri dönün ve gerekli verileri doldurun</a><br><br><br><br>")
else
txtUserPass=request.form("txtUserPass")
if txtUserPass="" or txtUserPass=" " then
response.Write("<img src='images/hata.gif' /><br><br>Parola Yazmadınız..!<br><br>")
response.Write("<img src='images/ok.gif' /> <a href=JavaScript:history.go(-1)>Geri dönün ve gerekli verileri doldurun</a><br><br><br><br>")
else
strSQL = "SELECT * FROM tblusers WHERE username LIKE '" & txtUserName &"'"
'& " and UYE_PAROLA=" & passx & ""
set rsUye = server.CreateObject("adodb.recordset")
rsUye.Open strSQL, my_Conn
if rsUye.BOF or rsUye.EOF then
response.Write("<img src='images/hata.gif'/><br><br>Böyle Bir Kullanıcı Yok..!<br><br>")
response.Write("<img src='images/ok.gif' /> <a href=JavaScript:history.go(-1)>Geri dönün ve gerekli verileri doldurun</a><br><br><br><br>")
else
IF not txtUserPass = password THEN
response.Write("<img src='images/hata.gif'/><br><br>Şifrenizi Hatalı Girdiniz..!<br><br>")
response.Write("<img src='images/ok.gif' /> <a href=JavaScript:history.go(-1)>Geri dönün ve gerekli verileri doldurun.</a><br><br><br><br>")
end if
end if
end if
end if
'If the recordset finds a record for the username entered then read in the password for the user
If NOT rsCheckUser.EOF Then
'Read in the password for the user from the database
If (Request.Form("txtUserPass")) = rsCheckUser("password") Then
'Write the HTML to display the current record in the recordset
Session("userGood") = True
Session("userID") = rsCheckUser("ID")
Session("userName") = rsCheckUser("username")
Session("seviye")= seviye
'Reset server objects
rsCheckUser.Close
Set rsCheckUser = Nothing
Set adoCon = Nothing
'Redirect to the authorised user page and send the users name
Response.Redirect"anasayfa.asp"
End If
End If
'Reset server objects
rsCheckUser.Close
Set rsCheckUser = Nothing
Set adoCon = Nothing
'If the script is still running then the user must not be authorised
Session("userGood") = False
'Redirect to the unautorised user page
%>
</td>
</tr>
<tr>
<td height="25" cellpadding="0" cellspacing="0" style="background-image:url(images/ustmenubg2.jpg)" > </td>
</tr>
</table></td>
</tr>
</table>
</form>
</body>
</html>
< Bu mesaj bu kişi tarafından değiştirildi edihav -- 11 Şubat 2015; 14:46:01 >_____________________________
-
strUserName değerinin gelip gelmediğini kontrol edin geliyorsa veritabanında o değere dair kayıt olup olmadığını kontrol edin _____________________________ Şenel AKSOY - 0 535 470 37 74 - [email protected] -www.senelaksoy.com -
Henüz açılmamış bir bağlantı (connection) kullanarak sorgu yapıyorsun.
Aslında bağlantı olarak adoCon değil, condb'yi kullanıyorsun.
"rsCheckUser.Open strSQL, condb" dener misin?_____________________________ Oyun bitince şah da piyon da aynı kutuya konur...
Sayfa:
1
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
