|
|
send
flowers,send flowers india,send online flowers,flowers to india,send
flowers online
|
<%
sql1="select * from Product where cname='Flowers in Basket'"
If rs1.State=1 then rs1.Close
rs1.Open sql1, con
sql="select * from dollarrate"
if rs.state=1 then rs.close
rs.open sql,con
dim prd
prd=rs.fields("rate")
'con.Execute (sql1)
If not (rs1.BOF and rs1.EOF) Then
Response.Write ""
Response.Write""
Response.Write" " & rs1.Fields("P_Name") & "Code: "& rs1.fields("p_code") &"Price: USD " & rs1.Fields("Price") & " Rs. "&Round(rs1.fields("Price")*prd)&"  | "
rs1.movenext
rs1.movenext
Response.Write" " & rs1.Fields("P_Name") & "Code: "& rs1.fields("p_code") &"Price: USD " & rs1.Fields("Price") & " Rs. "&Round(rs1.fields("Price")*prd)&"  | "
rs1.movenext
Response.Write" " & rs1.Fields("P_Name") & "Code: "& rs1.fields("p_code") &"Price: USD " & rs1.Fields("Price") & " Rs. "&Round(rs1.fields("Price")*prd)&"  | "
rs1.movenext
Response.Write" " & rs1.Fields("P_Name") & "Code: "& rs1.fields("p_code") &"Price: USD " & rs1.Fields("Price") & " Rs. "&Round(rs1.fields("Price")*prd)&"  | "
rs1.movenext
Response.Write" "
Response.Write ""
Response.Write "| | "
Response.Write " "
Response.Write""
rs1.movenext
Response.Write" " & rs1.Fields("P_Name") & "Code: "& rs1.fields("p_code") &"Price: USD " & rs1.Fields("Price") & " Rs. "&Round(rs1.fields("Price")*prd)&"  | "
rs1.movenext
Response.Write" " & rs1.Fields("P_Name") & "Code: "& rs1.fields("p_code") &"Price: USD " & rs1.Fields("Price") & " Rs. "&Round(rs1.fields("Price")*prd)&"  | "
rs1.movenext
Response.Write" " & rs1.Fields("P_Name") & "Code: "& rs1.fields("p_code") &"Price: USD " & rs1.Fields("Price") & " Rs. "&Round(rs1.fields("Price")*prd)&"  | "
rs1.movenext
Response.Write" " & rs1.Fields("P_Name") & "Code: "& rs1.fields("p_code") &"Price: USD " & rs1.Fields("Price") & " Rs. "&Round(rs1.fields("Price")*prd)&"  | "
rs1.movenext
Response.Write" "
Response.Write ""
Response.Write "| | "
Response.Write " "
Response.Write ""
Response.Write "| | "
Response.Write " "
Response.Write " "
end if
%> Disclaimer |
This presentation is for information only, does not take into account any
future changes. Some of the products and services referred to in this
presentation may not be available in certain geographical locations.
Clients with any questions regarding the availability of any of the
products or services referred to in this presentation in their desired
destination should consult their relationship manager. Nothing in this
presentation should be construed as agreement binding on either parties.
There shall be a separate agreement entered into between the contracting
parties to that effect.
Changes in exchange rates may have an adverse affect on the value of
products and services offered. The price of products can go down as well
as up, and could rise of fall dramatically depending upon the availability
and other market factors. Past performance is not indicative of comparable
future results and no projection, representation or warranty is made
regarding future performance. However statistics reveals that there has
been continuous upgradation of performance and client satisfaction.
International corporate entities are responsible to ensure the compliance
of their local regulations in respect of any restriction applicable in
their countries and are liable to inform fresh flower services about the
same.
Not all of the products and services referred to in this presentation are
available in all countries nor in all geographical locations within parent
country.
Clients should carefully read the terms and conditions of any agreement
entered for the rights and obligations binding between the two parties.
Clients with questions relating to any other services which it might
intend to process via our network and company shall get in touch with
their relationship manager.
|
|
| Category |
<%
sql="select * from Category"
If rs.State=1 then rs.Close
rs.Open sql, con
con.Execute (sql)
if (rs.eof and rs.bof) then
Response.Write ""
else
Response.Write ""
rs.movefirst
while not rs.EOF
a=rs.fields("C_Name")
Set rs5 = Server.CreateObject("ADODB.Recordset")
sql1="select * from Product where cname='"& a &"'"
If rs5.State=1 then rs5.Close
rs5.CursorLocation = 3
rs5.Open sql1, con
b=rs5.recordcount
response.Write "| " & rs.fields("C_Name") & "("& b &") | "
rs.movenext
wend
response.Write" "
end if
%>
|
|
|