<% Dim oConn Dim RS Dim filePath Dim Index ' Map authors database to physical path filePath = Server.MapPath("svtp.mdb") ' Create ADO Connection Component to connect ' with sample database Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath Set RS = oConn.Execute("SELECT * FROM Table1 WHERE PageID ='Home page'") %>

Home | Forum

span volunteer tutor program

real people - REAL LEARNING

<%Response.Write" " & rs("Para5") & " "%>

<%Response.Write" " & rs("Heading") & " "%>

<%Response.Write" " & rs("Para1") & " "%>

<%Response.Write" " & rs("Para2") & " "%>

<%Response.Write" " & rs("Para3") & " "%>

<%Response.Write" " & rs("Para4") & " "%>

<%Response.Write" " & rs("Para6") & " "%>

<% 'close the recordset rs.close set rs = nothing 'close the connection oConn.close set oConn = nothing %>