emlak sitesinide böyle bir sorun yaşıyorum ayrıca düzelttim koda eklemeler yaptım fakat bir türlü çözülmüyor
bu şekilde olduğu zaman Microsoft JET Database Engine (0x80040E14) 'file_id=' sorgu ifadesi içindeki Sözdizimi hatası (eksik işleç) /burak/emlak/emlak.asp, line 155 155. satır rs.Open nere, conn, 1,
<% emlak = Request.QueryString("emlak") Set ii = Server.CreateObject("ADODB.Recordset") nere = "Select * From files order by hit desc;" ii.Open nere, conn, 1, 3 toplamscript = ii.Recordcount Set yn = Server.CreateObject("ADODB.Recordset") nere = "Select * From files order by file_id desc;" yn.Open nere, conn, 1, 3 Set ed = Server.CreateObject("ADODB.Recordset") nere = "Select * from files where tavsiyeli = True" ed.Open nere, conn, 1, 3 if not ed.EOF then edx = ed.Recordcount Randomize id = (Int(edx * rnd)+0) ed.Move(id) end if Set rs = Server.CreateObject("ADODB.Recordset") nere = "Select * From files where file_id= "&emlak rs.Open nere, conn, 1, 3 rs("hit") = rs("hit") + 1
id=Request.QueryString("id")
Set son= Server.CreateObject("ADODB.Recordset") SQL = " Select * from yazili where id="& id son.Open SQL , Baglanti,1,3
%>
üzerinde id = (Int(edx * rnd)+0) bunu değiştirdikten sonra yerine id = CInt(edx * rnd)+1) bu kodu yazıyorum daha sonra verdiği hata
Microsoft VBScript derleme hatası (0x800A0401) Deyim sonu gerekli /burak/emlak/emlak.asp, line 150, column 22 id = CInt(edx * rnd)+1) bunu veriyor kod da mı hata var nedir anlayamadım
ii de hem request.querysting i hem emlak hem de id olarak kullanmışsın? veritabanında files tablosuna gir ve file_id nin aldığı değerlerden birini
nere = "Select * From files where file_id= "&emlak
yerine
nere = "Select * From files where file_id= 90"
gibi kullan.(90 yerine file_id nin aldığı değerlerden birini yaz.o zman çıkan hatayı söle.olmadı hemenp-aylaşa veritabanını at.
emlak ile aldığın değer sayı mı string(yazı) mı?
id = CInt(edx * rnd)+1) bı kodda ise parantez hatan var.