<% Dim Subdomain, CatDomain, Category Subdomain = Request.ServerVariables("SERVER_NAME") CatDomain = Split(Subdomain, ".") Category = CatDomain(0) Dim oConn Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open CString SQLGetCat = "SELECT ID, CatTitle, CatDescription, CatHeader, CatKeywords FROM categories WHERE Domain = '" & Category & "'" Set oRSGetCat = Server.CreateObject("ADOR.Recordset") oRSGetCat.Open SQLGetCat, oConn oRSGetCat.MoveFirst Dim CatID, CatTitle, CatDescription, CatHeader, CatKeywords CatID = oRSGetCat("ID") CatTitle = oRSGetCat("CatTitle") CatDescription = oRSGetCat("CatDescription") CatHeader = oRSGetCat("CatHeader") CatKeywords = oRSGetCat("CatKeywords") oRSGetCat.Close Set oRSGetCat = Nothing %> Television: Archives