<%@ Language=VBScript %> <% Dim mySessionID mySessionID = Session.SessionID Dim sql,rs,rs1,rs2,rs3,rs4,rs5,i dtbs = Server.MapPath(".") & "\Data\Flowers.mdb" set con = Server.CreateObject("Adodb.connection") con.Provider= "Microsoft.Jet.OLEDB.4.0;Data Source=" &dtbs& " " con.Open Set rs = Server.CreateObject("ADODB.Recordset") Set rs1 = Server.CreateObject("ADODB.Recordset") Set rs2 = Server.CreateObject("ADODB.Recordset") Set rs3 = Server.CreateObject("ADODB.Recordset") Set rs4 = Server.CreateObject("ADODB.Recordset") Set rs5 = Server.CreateObject("ADODB.Recordset") Session("User")="" %> send flowers,send flowers india,send online flowers,flowers to india,send flowers online
send flowers,send flowers india,send online flowers,flowers to india,send flowers online
HOME      SERVICES      REGISTERATION      MY ACCOUNT      TRACK YOUR ORDER      ENQUIRY      CONTACT US     
send fresh flowers
  Search By Catagory
Category
Budget
 
send fresh flowers Online Payment
  Amount (USD)  
<%if Request.Form("tlogin")="" then %>
  Sign In Vendors
Login
Password
  <%else Login = Request.Form("tlogin") Password = Request.Form("tpass") flag = Request("flag") If Trim(Login) <> "" Then dtbs = Server.MapPath(".") & "\Data\Flowers.mdb" set con = Server.CreateObject("Adodb.connection") con.Provider= "Microsoft.Jet.OLEDB.4.0;Data Source=" &dtbs& " " '";Jet OLEDB:Database Password=" &pass& " " con.Open '"server="& serv &";database="& Set Session("HMConn") = con Set rs = Server.CreateObject("ADODB.Recordset") sql = "Select * from register where loginname = '" & Trim(Login) & "' and [password1] = '" & Trim(Password) & "'" 'Response.Write sql If rs.State=1 then rs.Close rs.Open sql, con If not (rs.BOF and rs.EOF) Then Session("User")=Trim(Login) Response.Redirect "./vendorhome.asp?c= "& Login Else Response.Redirect "./default.asp" End If End If end if %>
 

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.movenext rs1.movenext Response.Write"" rs1.movenext Response.Write"" rs1.movenext Response.Write"" rs1.movenext Response.Write"" Response.Write "" Response.Write "" Response.Write "" Response.Write"" rs1.movenext Response.Write"" rs1.movenext Response.Write"" rs1.movenext Response.Write"" rs1.movenext Response.Write"" rs1.movenext Response.Write"" Response.Write "" Response.Write "" Response.Write "" Response.Write "" 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.Fields("P_Name") & "
Code: "& rs1.fields("p_code") &"
Price: USD " & rs1.Fields("Price") & "
Rs. "&Round(rs1.fields("Price")*prd)&"

" & rs1.Fields("P_Name") & "
Code: "& rs1.fields("p_code") &"
Price: USD " & rs1.Fields("Price") & "
Rs. "&Round(rs1.fields("Price")*prd)&"

" & rs1.Fields("P_Name") & "
Code: "& rs1.fields("p_code") &"
Price: USD " & rs1.Fields("Price") & "
Rs. "&Round(rs1.fields("Price")*prd)&"
 

" & rs1.Fields("P_Name") & "
Code: "& rs1.fields("p_code") &"
Price: USD " & rs1.Fields("Price") & "
Rs. "&Round(rs1.fields("Price")*prd)&"

" & rs1.Fields("P_Name") & "
Code: "& rs1.fields("p_code") &"
Price: USD " & rs1.Fields("Price") & "
Rs. "&Round(rs1.fields("Price")*prd)&"

" & rs1.Fields("P_Name") & "
Code: "& rs1.fields("p_code") &"
Price: USD " & rs1.Fields("Price") & "
Rs. "&Round(rs1.fields("Price")*prd)&"

" & rs1.Fields("P_Name") & "
Code: "& rs1.fields("p_code") &"
Price: USD " & rs1.Fields("Price") & "
Rs. "&Round(rs1.fields("Price")*prd)&"
 
 
" 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 "
No Category Found
" 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.movenext wend response.Write"
" & rs.fields("C_Name") & "("& b &")
" end if %>
   

 

send flowers,send flowers india,send online flowers,flowers to india,send flowers online

     
send flowers
send flowers india
send online flowers
flowers to india
send flowers online
send fresh flowers
online flower shop
same day flower delivery
flower delivery india
sending flowers online
local florist
ordering flowers
online florist
gifts flowers
buy flowers
indian florist
florist mumbai
florist delhi
flowers gifts online
all india florist
   
Disclaimer    |    Temrs of Use    |    Privacy Policy    |    Site Map |    Links
Copyright © www.getfreshflower.com