<% dim x_id_01, x_id_02 x_id_01=Request.Form("x_id_01") x_id_02=Request.Form("x_id_02") %> <% dim xx_kayit xx_kayit=Request.Form("xx_kayit") IF xx_kayit="X_KAYIT" 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, 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 Bag = Server.CreateObject("ADODB.Connection") Bag.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\RDX2945738264\db\RDX2945738264.mdb")) SQL = "INSERT INTO tbl_company_9874563870 (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, x_cmp_11, x_cmp_12, x_cmp_13) VALUES ('"&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&"','"&x_cmp_11&"','"&x_cmp_12&"','"&x_cmp_13&"')" on error resume next Bag.Execute sql,recaffected if err<>0 then Response.Write("
DID NOT RECORDED!!
") else Response.Write("
TOTAL " & recaffected & " RECORD IS DONE!
") end if Bag.close END IF %>
<%=x_id_01%>
<%=x_id_02%>
CHOOSE COMPANY NAME
<% 'ŞİFRE KONTROLÜ 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 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&"' ORDER BY x_cmp_03" set ky = Bag.Execute(SQL) %> <%do while not ky.eof%>
<%=ky("x_cmp_03")%>
<% ky.movenext loop ky.close set ky = Nothing Bag.close set bag = Nothing %> <% END IF ' ŞİFRE DOĞRULAMA KISMI BURADA BİTİYOR%>
<%=x_id_01%>
<%=x_id_02%>
NEW COMPANY RECORDING FORM
<%=x_id_01%>
<%=x_id_02%>
X_KAYIT
<%=x_id_01%>
<%=x_id_02%>
Company Name
Website :
Address
Region:
Country:
Responsable Person
Title :
Tel :
Mail:
Notes
Interested Products