<%
Dim adoCon
Dim rsjanglhr
Dim strSQL
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("jangdb.mdb")
Set rsjanglhr = Server.CreateObject("ADODB.Recordset")
strSQL ="SELECT J_img.sno, J_img.name, J_img.img, J_img.category FROM J_img where J_img.sno LIKE '1';"
rsjanglhr.Open strSQL, adoCon
%>
<%Response.Write (rsjanglhr("name"))%>
, jobs>
jobs>
