ACTIVITY RECORD

<% dim x_cmp_01, x_cmp_02, x_cmp_03 x_id_01=Request.Form("x_id_01") x_id_02=Request.Form("x_id_02") x_cmp_03=Request.Form("x_cmp_03") %>

<% 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_01='"&x_id_01&"' AND x_cmp_03='"&x_cmp_03&"'" set ky = Bag.Execute(SQL) dim x_cmp_id x_cmp_id=ky("x_cmp_id") %> <% xx_title=ky("x_cmp_13") xx_ilgili_kisi=ky("x_cmp_07") xx_telefon=ky("x_cmp_08") xx_mail=ky("x_cmp_09") ky.close set ky = Nothing Bag.close set bag = Nothing %>

		COMPANY INFORMATION AND UPDATING FORM
	Company Name	"> Website :">
	Address	"> Region:"> Country:">
	Responsable Person	"> Title :"> Tel :"> Mail:">
	Notes	<%=ky("x_cmp_10")%>
	Interested Products	<%=ky("x_cmp_11")%>

	ACTIVITY REPORT
Date - Time	Time : Activity Type : First Contact : Activity is :
Subject of Visiting	Purpose :
Met With - Mr / Mrs		Title : Mail : Mobile :
Talking for
Interested Items
	Informed about ISO16949 certificated of HD Company
	Informed about HD items; AIR SPRINGS, SLACK ADJUSTER, ENGIN MOUNTINGS, BUSHINGS...
	Informed about AYFAR and MARSTECH LITHINGS
	Informed about FOMAR BRAKE PADS

<% dim xx_visit_kayit xx_visit_kayit=Request.Form("xx_visit_kayit") IF xx_visit_kayit="VISIT_KAYIT" 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 dim x_vst_21, 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_21=Request.Form("x_vst_21") x_vst_22=Request.Form("x_vst_22") Set Bag1 = Server.CreateObject("ADODB.Connection") Bag1.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\RDX2945738264\db\RDX2945738264.mdb")) SQL = "INSERT INTO tbl_visits (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, 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_21, x_vst_22) VALUES ('"&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&"','"&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_21&"','"&x_vst_22&"')" on error resume next Bag1.Execute sql,recaffected if err<>0 then Response.Write("

DID NOT RECORDED!!

") else Response.Write("

TOTAL " & recaffected & " RECORD IS DONE!

") end if Bag1.close set bag1 = Nothing END IF %>
<% Set Bag2 = Server.CreateObject("ADODB.Connection") Bag2.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\RDX2945738264\db\RDX2945738264.mdb")) SQL = "SELECT * FROM tbl_visits WHERE x_vst_01='"&x_id_01&"' AND x_vst_03='"&x_cmp_03&"' AND x_vst_21='ACTIVE' ORDER BY x_vst_08 DESC" set ky2 = Bag2.Execute(SQL) do while not ky2.eof dim xx_zaman, xx_renk, xx_bugun, xx_done xx_done=ky2("x_vst_10") xx_zaman=ky2("x_vst_08") xx_bugun=date() if xx_zaman>xx_bugun then xx_renk="FFFF00" elseif xx_done="PLANED" then xx_renk="FF9966" else xx_renk="99FF66" end if %>

Time and Progress	<%=ky2("x_vst_08")%> - <%=ky2("x_vst_09")%>	First Visit : <%=ky2("x_vst_06")%> Activity Type :<%=ky2("x_vst_22")%> Visiting is : <%=ky2("x_vst_10")%>
Contact Person	<%=ky2("x_vst_11")%>	<%=ky2("x_vst_20")%> <%=ky2("x_vst_13")%>	<%=ky2("x_vst_12")%>
Visiting Subject	<%=ky2("x_vst_05")%>		Purpose : <%=ky2("x_vst_07")%>
Talking For	<%=ky2("x_vst_14")%>
Items For	<%=ky2("x_vst_15")%>
Briefings	ISO16949 :<%=ky2("x_vst_16")%> HD ITEMS :<%=ky2("x_vst_17")%> AYFAR :<%=ky2("x_vst_18")%> FOMAR :<%=ky2("x_vst_19")%>

<% ky2.movenext loop ky2.close set ky2 = Nothing Bag2.close set bag2 = Nothing %>