%
function getvalue()
'x="driver={sql server};server=www.nasteksol.com;UID=nasteksol;PWD=nasteksol"
'x="driver={sql server};server=www.ambujaindia.com;UID=ambujaindia;PWD=ambujaindia;DATABASE=ambujaindia"
x="Provider=SQLOLEDB.1;Password=ambujaindia;Persist Security Info=True;User ID=ambuja;Initial Catalog=ambujaindia;Data Source=www.ambujaindia.com"
getvalue=x
end function
%>
<% 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
%>
|
|
|
|
|