<%
dim x_vst_id, x_id_02
x_vst_id=Request.Form("x_vst_id")
x_id_02=Request.Form("x_id_02")
dim xx_guncelle_kayit
xx_guncelle_kayit=Request.Form("xx_guncelle_kayit")
IF xx_guncelle_kayit="VISIT_GUNCELLE" THEN
dim x_vst_21
x_vst_21=Request.Form("x_vst_21")
Set Bag0 = Server.CreateObject("ADODB.Connection")
Bag0.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\RDX2945738264\db\RDX2945738264.mdb"))
SQL ="UPDATE tbl_visits SET x_vst_21='"&x_vst_21&"' WHERE x_vst_id="&x_vst_id&""
on error resume next
Bag0.Execute sql,recaffected
if err<>0 then
Response.Write("
DELETE is FAILED ! ! ! ! ! ! ! ! ! ! ! ! !
")
else
Response.Write("
DELETE is DONE.
")
end if
Bag0.close
END IF
%>
<%
Set Bag = Server.CreateObject("ADODB.Connection")
Bag.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\RDX2945738264\db\RDX2945738264.mdb"))
SQL = "SELECT * FROM tbl_visits WHERE x_vst_id="&x_vst_id&" AND x_vst_21='ACTIVE'"
set ky = Bag.Execute(SQL)
%>
<%
Set Bag3 = Server.CreateObject("ADODB.Connection")
Bag3.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\RDX2945738264\db\RDX2945738264.mdb"))
SQL = "SELECT * FROM tbl_visits WHERE x_vst_id="&x_vst_id&""
set ky3 = Bag3.Execute(SQL)
%>
<%
ky3.close
set ky3 = Nothing
Bag3.close
set bag3 = Nothing
%>