-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathguncelle2.asp
38 lines (30 loc) · 949 Bytes
/
guncelle2.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
<html>
<body>
<h2>Update Record</h2>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open Server.MapPath("proje_database.mdb")
kod = Request.Form("id")
sql="UPDATE role_listesi SET "
sql=sql & "Il='" & Request.Form("Il") & "',"
sql=sql & "Guc='" & Request.Form("Guc") & "',"
sql=sql & "Yer='" & Request.Form("Yer") & "' ,"
sql=sql & "Yukseklik='" & Request.Form("Yukseklik") & "' ,"
sql=sql & "Turu='" & Request.Form("Turu") & "' ,"
sql=sql & "Frekans='" & Request.Form("Frekans") & "' ,"
sql=sql & "Ton='" & Request.Form("Ton") & "' ,"
sql=sql & "Squelch='" & Request.Form("Squelch") & "' "
sql=sql & " WHERE id='" & kod & "'"
on error resume next
conn.Execute sql
if err<>0 then
response.write(sql)
response.write("Guncelleme yapilamadi!")
else
response.write("Kayit No = " & Request.Form("id") & " guncellendi!")
end if
conn.close
%>
</body>
</html>