<% @Language="VBScript" %> <% Option Explicit %> <% '------------------------------------------------------------- ' Scripts Configuration '------------------------------------------------------------- SetNotCache() 'LoginAuth '------------------------------------------------------------- ' Object Declaration '------------------------------------------------------------- '------------------------------------------------------------- ' Procedure Declaration '------------------------------------------------------------- Sub Dispose() If RecordSet.State = adStateOpen Then RecordSet.Close If Connection.State = adStateOpen Then Connection.Close End Sub '------------------------------------------------------------- ' Request Variables '------------------------------------------------------------- '------------------------------------------------------------- ' Local Variables '------------------------------------------------------------- Dim i '------------------------------------------------------------- ' TableField Variables '------------------------------------------------------------- Dim CONTENTS '------------------------------------------------------------- ' SQL String '------------------------------------------------------------- Dim strSql '------------------------------------------------------------- ' 처리문 '------------------------------------------------------------- strSql = "SELECT P3 FROM T_CONTENTS WHERE IDX = 8" Retrieve RecordSet, strSql, Connection If Not RecordSet.Eof Then CONTENTS = RecordSet("P3") RecordSet.Close %> DTR홈페이지 방문을 환영합니다.
  <%= CONTENTS %>