<%@ LANGUAGE="VBSCRIPT" %>
<%
Option Explicit
%>
<%
dim con
dim rst
dim i
dim sqlText
set con = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.Recordset")
con.Open "Driver={MySQL};Server=sql.megasqlservers.com;Db=primary_goodpet_com;UID=dbm.goodpet.com;pwd=goo2002;"
sqlText = "SELECT Products.ProductID, ProductCateogries.ProductCategoryName, Products.ProductDescription, Products.ProductSize, Products.ProductPrice, Products.ProductDiscontinued, Products.ProductWeight FROM ProductCateogries INNER JOIN Products ON ProductCateogries.ProductCategoryID = Products.ProductCategoryID WHERE (((Products.ProductDiscontinued)=0))"
rst.CursorType = adOpenForwardOnly
rst.LockType = adLockReadOnly
rst.Open sqlText, con
%>
Dr. Goodpet - Ordering
Secure Order Form
Any information you
submit will be secured by 128 bit encryption
Qty
Homeopathics
Size
Price
<%
rst.Close
con.Close
set con = nothing
set rst = nothing
%>
