<% 'on error resume next dim mySQL, Cnn, RS, SQL, RS1, RS2 call openDb() SQL = "SELECT TOP 1 * FROM Pages WHERE ID=365 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 %>