<%
dim cnn
dim rs
dim DBPath
Dim SQL
dim Email
set cnn=server.CreateObject("ADODB.Connection")
set rs=server.CreateObject("ADODB.Recordset")
DBPath=Server.MapPath("admin888\Sulthaniyadb.mdb")
cnn.Provider="Microsoft.jet.oledb.4.0"
cnn.Open DBPath
set rs=cnn.Execute("Select MSG from MSG")
%>
