<% 'declare 2 variables of type string dim sConnString, connection, sSQL set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open "D:\Sites\Pungo8\dadmin2\database\core.mdb" set rs = Server.CreateObject("ADODB.recordset") rs.open "SELECT * FROM v3i1_tbl", conn, 2,2 %>

<% 'Looping through the records until the end of the records Do while Not rs.eof %> <% 'move on to the next record rs.MoveNext loop 'Now close the recordset and the connection object rs.Close Set rs = Nothing conn.Close Set conn = Nothing %>
Volume 3, Issue 1, April 2011

" target="blank">View Abstracts

" target="blank">Editorial

<%=rs("papernum")%>) <%=rs("papertitle")%>
To view the full paper please click here to register

Book Reviews
  • To access the Book reviews please click here to register
<% if session("Security") = "" then%> <%End if%> <% if session("Security") = 1 then%> <%End if%> <% if session("Security") = 2 then%> <%End if%>