shopping cart  | account

Shopping Cart     

<% ' Get Current Category cat = TRIM( Request( "cat" ) ) IF cat = "" THEN cat = "Home" ' Open Database Connection 'Set Con = Server.CreateObject( "ADODB.Connection" ) 'con.provider = "Microsoft.Jet.OLEDB.4.0" 'con.connectionstring = "\\SERVER\Vidshiv\shoppingCart\database\storeDB.mdb" 'con.open 'Con.Open "Data Source=//nawinfs03/home/users/web/b1013/rh.asthmacure/database/asthmaDatabase.mdb;Provider=Microsoft.Jet.OLEDB.4.0;" %>
 
 
If you want to display your  products or services, please contact us.
<% Set Con = Server.CreateObject( "ADODB.Connection" ) 'Con.Open "Data Source=//nawinfs03/home/users/web/b1013/rh.asthmacure/database/asthmaDatabase.mdb;Provider=Microsoft.Jet.OLEDB.4.0;" ' strconn = "provider=Microsoft.Jet.OLEDB.4.0; data source=" & server.mappath("\database/asthmadatabase.mdb") ' con.open strconn set con = server.createobject("ADODB.Connection") con.connectiontimeout=60 con.open "Data Source=//nawinfs03/home/users/web/b1013/rh.asthmacure/database/asthmaDatabase.mdb;Provider=Microsoft.Jet.OLEDB.4.0;" prod = request.form("product") comp = request.form("company") if prod <> "" then Set prodRS = Server.CreateObject( "ADODB.Recordset" ) 'prodRS.ActiveConnection = Con sqlString = "SELECT product_id, product_picture, product_name, product_briefDesc, product_company, product_price " &_ "FROM Products WHERE product_category='" & prod & "' " &_ "AND product_status=1 " &_ "ORDER BY product_name " prodRS.Open sqlString, con %> <% WHILE NOT prodRS.EOF %> <% prodRS.MoveNext WEND %>
<% IF prodRS( "product_picture" ) <> "?????" THEN %> " HSPACE=4 VSPACE=4 height="150" width="150" BORDER=0 align="center"> <% END IF %> "> <%=prodRS( "product_name" )%>
Price : <%=formatcurrency(prodrs("product_price"))%>
Manufacturer : <%=prodrs("product_company")%>
<%=prodRS( "product_briefDesc" )%>
"> get more information
">
 
<% elseif comp <> "" then Set prodRS = Server.CreateObject( "ADODB.Recordset" ) 'prodRS.ActiveConnection = Con sqlString = "SELECT product_id, product_picture, product_name, product_briefDesc, product_company, product_price " &_ "FROM Products WHERE product_company='" & comp & "' " &_ "AND product_status=1 " &_ "ORDER BY product_name " prodRS.Open sqlString, con %> <% WHILE NOT prodRS.EOF %> <% prodRS.MoveNext WEND %>
<% IF prodRS( "product_picture" ) <> "?????" THEN %> " HSPACE=4 VSPACE=4 BORDER=0 height="150" width="150" align="center"> <% END IF %> "> <%=prodRS( "product_name" )%>
Price : <%=formatcurrency(prodrs("product_price"))%>
Manufacturer : <%=prodrs("product_company")%>
<%=prodRS( "product_briefDesc" )%>
"> get more information
">
 
<%elseIF cat = "Home" THEN %> <% ELSE%> <% END IF %>

| Expert's View | Do and Learn | How I Cured | How to Consult a Doctor | Understanding Asthma |  Diagnosis | Triggers |
| Therapy | Special Issues | Asthma and Allergy | Discussion Forum | Books | Articles | Drugs | Shopping Cart |
 | Medline | Online Consultation | Chat |  News | Disclaimer | About Us | Advertise |
| FAQ | Contact Us | Feedback | Site Map |Asthma Glossary|

E-mail webmaster

© Copyright 2001-2002 Asthmacure.com - All rights reserved
®  Asthmacure.com is a registered trademark