<% 'on error resume next ' ' dim mySQL, Cnn, RS, SQL, RS1, RS2 ' ' call openDb() ' ' SQL = "SELECT TOP 1 * FROM Pages WHERE ID=333 ORDER BY Pref ASC" ' Set RS = Cnn.Execute(SQL) ' If Not RS.EOF Then ' sName = rs("Name") ' sText = rs("Text1") ' pMetaD = rs("MetaD") ' pMetaK = rs("MetaK") ' Else ' sName = "Page is being updated" ' sText = "The page rsource you are trying to reach is unavavilable or is being updated. Please try again later. " ' End if %>