<%
DIM sqlString
DIM strLastName, strFirstName
DIM strMajor, strYear
oConn.Open(sConnString) 'This opens the database.
Set rConn = oConn.Execute("SELECT * FROM Table1")
%>
Record Insert
<%Do While Not rConn.EOF%>
<%=rConn.Fields("Site").Value%>
<%=rConn.Fields("Header").Value%>
<%=rConn.Fields("SubTitle").Value%>
<%=rConn.Fields("Body").Value%>
<%=rConn.Fields("Links").Value%>
<%rConn.MoveNext
Loop %>
<%
'Destroy the connections
oConn.Close
set oConn = Nothing
%>