<% dim xx_guncelle, x_id_01, x_id_02, x_cmp_id
xx_guncelle=Request.Form("xx_guncelle")
x_cmp_id=Request.Form("x_cmp_id")
x_id_01=Request.Form("x_id_01")
x_id_02=Request.Form("x_id_02")
IF xx_guncelle="X_GUNCELLE" THEN
dim x_cmp_01, x_cmp_02, x_cmp_03, x_cmp_04, x_cmp_05, x_cmp_06, x_cmp_07, x_cmp_08, x_cmp_09, x_cmp_10
dim x_cmp_11, x_cmp_12, x_cmp_13
x_cmp_01=Request.Form("x_cmp_01")
x_cmp_02=Request.Form("x_cmp_02")
x_cmp_03=Request.Form("x_cmp_03")
x_cmp_04=Request.Form("x_cmp_04")
x_cmp_05=Request.Form("x_cmp_05")
x_cmp_06=Request.Form("x_cmp_06")
x_cmp_07=Request.Form("x_cmp_07")
x_cmp_08=Request.Form("x_cmp_08")
x_cmp_09=Request.Form("x_cmp_09")
x_cmp_10=Request.Form("x_cmp_10")
x_cmp_11=Request.Form("x_cmp_11")
x_cmp_12=Request.Form("x_cmp_12")
x_cmp_13=Request.Form("x_cmp_13")
Set Bag0 = Server.CreateObject("ADODB.Connection")
Bag0.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\RDX2945738264\db\RDX2945738264.mdb"))
SQL ="UPDATE tbl_company_9874563870 SET x_cmp_01='"&x_cmp_01&"', x_cmp_02='"&x_cmp_02&"', x_cmp_03='"&x_cmp_03&"', x_cmp_04='"&x_cmp_04&"', x_cmp_05='"&x_cmp_05&"', x_cmp_06='"&x_cmp_06&"', x_cmp_07='"&x_cmp_07&"', x_cmp_08='"&x_cmp_08&"', x_cmp_09='"&x_cmp_09&"', x_cmp_10='"&x_cmp_10&"', x_cmp_11='"&x_cmp_11&"', x_cmp_12='"&x_cmp_12&"', x_cmp_13='"&x_cmp_13&"' WHERE x_cmp_id="&x_cmp_id&""
on error resume next
Bag0.Execute sql,recaffected
if err<>0 then
Response.Write("
Update is FAILED ! ! ! ! ! ! ! ! ! ! ! ! !
")
else
Response.Write("
Update is DONE.
")
end if
Bag0.close
END IF
%>
<% ' ŞİFRE DOĞRULAMA KISMI BURADA BAŞLIYOR
Set BagS = Server.CreateObject("ADODB.Connection")
BagS.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\RDX2945738264\db\RDX2945738264.mdb"))
SQL = "SELECT * FROM tbl_id_79480495 WHERE x_id_01='"&x_id_01&"' AND x_id_02='"&x_id_02&"'"
set kyS = BagS.Execute(SQL)
XX_CODE=kyS("x_id_03")
kyS.close
set kyS = Nothing
BagS.close
set bagS = Nothing
IF XX_CODE="CORRECT" THEN
%>
<% END IF ' ŞİFRE DOĞRULAMA KISMI BURADA ABİTİYOR%>
<%
Set Bag = Server.CreateObject("ADODB.Connection")
Bag.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\RDX2945738264\db\RDX2945738264.mdb"))
SQL = "SELECT * FROM tbl_company_9874563870 WHERE x_cmp_id="&x_cmp_id&""
set ky = Bag.Execute(SQL)
%>
<%
ky.close
set ky = Nothing
Bag.close
set bag = Nothing
%>
<%
Set Bag3 = Server.CreateObject("ADODB.Connection")
Bag3.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\RDX2945738264\db\RDX2945738264.mdb"))
SQL = "SELECT * FROM tbl_company_9874563870 WHERE x_cmp_id="&x_cmp_id&""
set ky3 = Bag3.Execute(SQL)
%>
<%
ky3.close
set ky3 = Nothing
Bag3.close
set bag3 = Nothing
%>