<%
MySection = "Dogs"
MyTitle = "Dogs"
DogID = Request("DogID")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Session("ConnectionString")
SQL = "SELECT TBL_DogTitles.DogTitleID, TBL_DogTitles.DogID, TBL_DogTitles.TitleID, TBL_DogTitles.DefaultTitle, TBL_Titles.Title, TBL_Titles.Descript " &_
"FROM TBL_DogTitles LEFT OUTER JOIN " &_
"TBL_Titles ON TBL_DogTitles.TitleID = TBL_Titles.TitleID " &_
"WHERE (TBL_DogTitles.DogID = " & DogID & ") ORDER BY TBL_Titles.Title;"
Set RS_DogTitle = Conn.Execute(SQL)
%>
Dogs
"Dupree"
|
<%
Conn.Close
%>