%@ Language=VBScript %> <% Set dbRecipes = Server.CreateObject("ADODB.Connection") dbRecipes.Open "PROVIDER=SQLOLEDB;DATA SOURCE=billsqldb.db.5146409.hostedresource.com;DB=billsqldb;UID=billsqldb;PWD=God1ddydb" SQLStatement = "SELECT * FROM LQRecipeTypes ORDER BY Type" set rsTypes = dbRecipes.Execute(SQLStatement) SQLStatement = "SELECT * FROM LQRecipeEthnicity ORDER BY EthCode" set rsEth = dbRecipes.Execute(SQLStatement) SQLStatement = "SELECT DISTINCT AddedBy FROM LQRecipes ORDER BY AddedBy" set rsAddedBy = dbRecipes.Execute(SQLStatement) SQLStatement = "SELECT DISTINCT Description FROM LQRecipes ORDER BY Description" set rsDesc = dbRecipes.Execute(SQLStatement) %>
|
|
|
|