<% dim x_id_01, x_id_02, x_cmp_03 x_id_01=Request.Form("x_id_01") x_id_02=Request.Form("x_id_02") %>
<% ' Şİ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 %> <% 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_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 %> <% dim xx_company_code, xx_company ' ŞİRKET ADINI COMPANY LİSTESİNDEN BULDURUYORUZ xx_company_code=ky2("x_vst_04") Set BagC = Server.CreateObject("ADODB.Connection") BagC.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\RDX2945738264\db\RDX2945738264.mdb")) SQL = "SELECT * FROM tbl_company_9874563870 WHERE x_cmp_id="&xx_company_code&"" set kyC = BagC.Execute(SQL) xx_company=kyC("x_cmp_03") 'ŞİRKET ADI BU DEĞİŞKENE ATANDI kyC.close set kyC = Nothing BagC.close set bagC = Nothing %>

COMPANY	<%=xx_company%>
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("x_vst_id")%> <%=x_id_02%>

<% ky2.movenext loop ky2.close set ky2 = Nothing Bag2.close set bag2 = Nothing %> <% END IF ' ŞİFRE DOĞRULAMA KISMI BURADA ABİTİYOR %>