%@ Language=VBScript %> <% Set dbRecipes = Server.CreateObject("ADODB.Connection") dbRecipes.Open "PROVIDER=SQLOLEDB;DATA SOURCE=mssql09.1and1.com;UID=dbo207713389;PWD=vz8Q5q76;DATABASE=db207713389" 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) %>
|
|
|
|