asp bilen varmı arkadaşlar 2

[yozgatlı]

slm

kwok
atay
123mp3

yukarıdakı arkadaşlara teşekkür ediyorum sayalerinde birinci sorunumuzu çaresini bulduk

eğer izin verisen ek bir sorum olacak

şimdi yazdırma olayını hallettik yardımlarınızla çok soğolun şöyle bir şey yapabilirmiyiz mesala

bir ziyaretci asp kelimesini aradı bu bir
başka bir ziyaretci asp kelimesini aradı bu iki
bu kelimeleri şu şekilde gösterebilirmiyiz asp 2 asp kelimesinin 2 kez arandıgını göstermek istiyorum

[symbiantech]

tabiki gösterebilirsin yavaş olurnu bilmiyorum ama şöyle yapabilirsin başka yolu varsa arkadaslarda yazabilir aranan kelimeyle datebasedeki kelimeleri karşılaştırırsın aynı ise aranma sayısını bir arttırırsı olay çözülür.

[atay]

<%
kelime = request.form ("ara")

Set atay1 = Server.CreateObject("ADODB.Connection")
atay1.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("kelime.mdb")

Set ara1 = Server.CreateObject("ADODB.Recordset")
sorgu = "Select * from kelimeler where kelime="&kelime
ara1.Open sorgu,atay1,1,3

if ara1.EOF then
  ara1.addnew
  ara1("kelime")=kelime
  ara1("kackezarandi")="1"
  ara1.Update
else
  simdiki = ara1("kackezarandi")
  yenisayi = simdiki+1
  ara1("kackezarandi")=yenisayi
  ara1.Update
end if
%>

kullandığım değişken adlarını (kelime,kelimeler,kazkezarandi vs.) kendine göre düzenledikten sonra çalışacaktır.