var ConnDB=Server.CreateObject("ADODB.Connection");
var strpath=Server.MapPath("select.mdb");
var strconn="provider=microsoft.jet.oledb.4.0;data source="+strpath;
var rst=Server.CreateObject("ADODB.recordset");
rst.CursorLocation=2;
rst.CursorType=3;
rst.CacheSize=intpagesize;
strsql="Select * From message Order By id ASC";
rst.Open(strsql,strconn,1,3);
1.len(str)
2.
for j = 1 to len(str)
letter=mid(str,j,1)
next
3.
for j = 1 to len(str)
letter=mid(str,j,1)
if (letter>'0' and letter<'9') or (...)
msgbox "!"
end if
next