-
Notifications
You must be signed in to change notification settings - Fork 0
/
admin_cagri_sorgu_query.asp
60 lines (54 loc) · 1.59 KB
/
admin_cagri_sorgu_query.asp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
<!DOCTYPE html>
<html lang="TR">
<head>
<meta charset="utf-8">
<title>Anasayfa - Türkiye Amatör Telsiz Opearatörleri Rehberi</title>
<meta name="viewport" content="width=device-width, initial-scale=1.0">
<link rel="stylesheet" href="./css_klasörü/bilgi.css">
</head>
<body>
<header>
<body>
<div class="tema">
<div class="logo">
<img src="./gorsel_icerik/logo.png">
</div>
<ul class="menu">
<li><a href="./admin_anasayfa.asp"><b>Anasayfa</b></a></li>
<li><a href="./admin_bilgi.asp"><b>Amatör Telsizcilik Nedir?</b></a></li>
<li><a href="./admin_cagriisareti_sorgu.asp"><b>Çağrı İşareti Sorgulama</b></a></li>
<li><a href="./admin_role_listesi.asp"><b>Röle Listesi</b></a></li>
<li><a href="./admin_uye_listesi.asp"><b>Üye Listesi</b></a></li>
<li><a href="./anasayfa.asp"><b>Çıkış Yap</b></a></li>
</ul>
</div>
<div class="anasayfa-icerik">
<br>
<center><h2>Çağrı İşareti Sorgulama</h2></center>
<br>
<%
test= "" & Request.Form("form_cagri_isareti") & ""
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open Server.MapPath("proje_database.mdb")
set rs=Server.CreateObject("ADODB.recordset")
SQL = "select * from Rehber where Cagri_Isareti like '%" & test & "%'"
on error resume next
Set RS = conn.Execute(SQL)
if err<>0 then
response.write("Aranan Çağrı İşareti Veri Tabanımızda Kayıtlı Değil")
else
response.write("Arama Sonucu :")
end if
%>
<br>
<%
Response.Write RS.getString()
RS.Close
Conn.Close
Response.End
%>
</div>
</header>
</body>
</html>