<%
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_01, x_vst_02, x_vst_03, x_vst_04, x_vst_05, x_vst_06, x_vst_07, x_vst_08, x_vst_09, x_vst_10
dim x_vst_11, x_vst_12, x_vst_13, x_vst_14, x_vst_15, x_vst_16, x_vst_17, x_vst_18, x_vst_19, x_vst_20, x_vst_22
x_vst_01=Request.Form("x_vst_01")
x_vst_02=Request.Form("x_vst_02")
x_vst_03=Request.Form("x_vst_03")
x_vst_04=Request.Form("x_vst_04")
x_vst_05=Request.Form("x_vst_05")
x_vst_06=Request.Form("x_vst_06")
x_vst_07=Request.Form("x_vst_07")
x_vst_08=Request.Form("x_vst_08")
x_vst_09=Request.Form("x_vst_09")
x_vst_10=Request.Form("x_vst_10")
x_vst_11=Request.Form("x_vst_11")
x_vst_12=Request.Form("x_vst_12")
x_vst_13=Request.Form("x_vst_13")
x_vst_14=Request.Form("x_vst_14")
x_vst_15=Request.Form("x_vst_15")
x_vst_16=Request.Form("x_vst_16")
x_vst_17=Request.Form("x_vst_17")
x_vst_18=Request.Form("x_vst_18")
x_vst_19=Request.Form("x_vst_19")
x_vst_20=Request.Form("x_vst_20")
x_vst_22=Request.Form("x_vst_22")
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_01='"&x_vst_01&"', x_vst_02='"&x_vst_02&"', x_vst_03='"&x_vst_03&"', x_vst_04="&x_vst_04&", x_vst_05='"&x_vst_05&"', x_vst_06='"&x_vst_06&"', x_vst_07='"&x_vst_07&"', x_vst_08='"&x_vst_08&"', x_vst_09='"&x_vst_09&"', x_vst_10='"&x_vst_10&"', x_vst_11='"&x_vst_11&"', x_vst_12='"&x_vst_12&"', x_vst_13='"&x_vst_13&"', x_vst_14='"&x_vst_14&"', x_vst_15='"&x_vst_15&"', x_vst_16='"&x_vst_16&"', x_vst_17='"&x_vst_17&"', x_vst_18='"&x_vst_18&"', x_vst_19='"&x_vst_19&"', x_vst_20='"&x_vst_20&"', x_vst_22='"&x_vst_22&"' WHERE x_vst_id="&x_vst_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
%>
<%
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&""
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
%>