<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%Response.CodePage = 65001%> KTS Kaya Turnery Spiral Industry::::Ostim::Ankara
PUSH-PULL CABLES & CONTROL SYSTEMS
+90 312 385 6 188
TR

Products > Spirals > Spirals For Heavy Machinery

BACK

<% response.buffer=true PRODUCT_TYPE=request.querystring("TIP") Set DBcon = Server.CreateObject("ADODB.Connection") DBcon.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("products.mdb")) SQLQuery = "SELECT * FROM Table1 WHERE PType='" & PRODUCT_TYPE & "'" Set RecSet = DBcon.Execute(SQLQuery) %>

<% Do While Not RecSet.EOF Dim Renk Dim SAYI Renk="#FFFFCC" SAYI=0 for each y in Session.Contents if y=RecSet("PID") then Renk="#FFE6E6" SAYI=Session(y) exit for end if next %> <% RecSet.MoveNext Loop %>
  <% =PRODUCT_TYPE %>

PRODUCT CODE

PRODUCT DESCRIPTION

 ORIGINAL PRODUCT NUMBER POSSIBLE ORDER AMOUNT
<% =RecSet("PID") %> <% =RecSet("PName") %> <% =RecSet("PNumber") %> " size="4" value=<% =SAYI %> style="font-family: Tahoma; font-size: 10pt; font-weight: bold; text-align: center">

<% DBcon.close set DBcon = nothing %>