<%@ Language=VBScript %> <% Response.Buffer = True %> <% ' create db connection and query string Set connTemp = Server.CreateObject ("Adodb.Connection") connTemp.Open strConn strSQL = "SELECT title,greeting FROM Greeting WHERE ID = 1" Set RS = connTemp.Execute (strSQL) If Not RS.eof then m_title = RS("title") m_Greeting = RS("Greeting") end if %>