A
| B | C
| D | E
| F | G
| H | I
| J | K
| L | M
| N | O
| P | Q
| R | S
| T |
U | V | W
| X | Y
| Z
| Terim |
Aciklama |
<%
if strID <> "" then
'Connection Database
strSQL="Select * from DICTIONARY where TERM LIKE '" & strID & "%'"
Set objRs=Server.CreateObject("AdoDB.RecordSet")
objRs.Open strSQL, objConDB, 3
if objRs.RecordCount <> 0 then
do until objRs.EOF
response.write "| " & objRs("TERM") & " | " & objRs("DESCRIPTION") & " |
"
objRs.MoveNext
loop
else
response.write "
Bu kategori altında bir kelime yok... |
"
end if
objRs.Close
set objRs = Nothing
else
response.write "
Lütfen index'ten bir harf seçin |
"
end if
%>
