hocam 4-5 sayfalık bölüm 1-2 saatte bitti ama sadece bu satırlarla 4. günüm nerde hata anlamadım gene hata aldım acaba çelişen bu durummu var.. tüm kodlar asagıda..
<%
ID=Request.QueryString("ID")
RsBayi.Open "SELECT * FROM Bayi Where BayiID="&ID&"",Conn, 1, 3
if request.form("func") = "Giris" then
strkullanici = Temizle(Trim(request.form("Bayikullanici")))
strsifre = Temizle(Trim(request.form("Bayisifre")))
Set Conn = Server.CreateObject ("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(""&DbYolu&"")
Set Rec = Server.CreateObject ("ADODB.Recordset")
sql = "Select Bayikullanici, Bayisifre from Bayi WHERE Bayikullanici = '"& strkullanici & "' AND Bayisifre = '"& strsifre & "'"
Rec.Open sql,Conn,1,3
if Rec.eof then
response.write "<center><br><br><b><em>Hatalı Giriş Yaptınız.</em></b><br></center>"
Else
Session("site_username") = Temizle(Trim(Rec("Bayikullanici")))
Session("site_password") = Temizle(Trim(Rec("Bayisifre")))
response.redirect "bayi.asp?islem=duzenle&ID=" & RsBayi("BayiID")
end if
end if
%>
kodların eski halini koydum...