<% 'Check if user is valid if session("uservalid") = "" then response.Redirect("register.asp") end if %>
 
<% '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 %>

Contents
<% '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">Table of Contents

" target="blank">Editorial

<%=rs("papernum")%>) <%=rs("papertitle")%>
<%=rs("authors")%> pp. <%=rs("spage")%> - <%=rs("epage")%>
<%=rs("abstract")%>
" target="blank">Download Full Paper

Book Reviews
<% if session("Security") = 1 then%> <%End if%> <% if session("Security") = 2 then%> <%End if%> <% if session("Security") = 9 then%> <%End if%>
Books