% response.buffer=true%>
<%
set Cn=server.CreateObject("adodb.connection")
Ambuja =getvalue
Cn.Open Ambuja
set rsel =server.CreateObject("adodb.Recordset")
sql="Select * from AMBUJA_DYESTUFF_TRANS WHERE DT_D_ID=6"
rsel.Open sql,cn,1,3
%>
-::Willkommen zu den Vermittlern Ambuja begrenzte::-
 |
 |
<%SQL="SELECT D_NAME FROM AMBUJA_DYESTUFF WHERE D_ID =6"
SET RS1=CN.Execute(SQL)
SS=RS1(0)
%>
<%=SS%> |
BLACK |
BROWN |
BLUE |
GREEN |
RED |
ORANGE |
YELLOW |
VOILET |
<%while not rsel.EOF %>
<%=rsel("DT_BLACK")%> |
<%=rsel("DT_BROWN")%> |
<%=rsel("DT_BLUE")%> |
<%=rsel("DT_GREEN")%> |
<%=rsel("DT_RED")%> |
<%=rsel("DT_ORANGE")%> |
<%=rsel("DT_YELLOW")%> |
<%=rsel("DT_VOILET")%> |
<%
rsel.MoveNext
wend
%>
|
|
|
|
|