<% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open "C:\Inetpub\wwwroot\data1.mdb" sql_str = "SELECT n_Contents.ContentID, n_Contents.Titel, n_Contents.PaperDetail, n_Contents.PaperAbstract, n_Contents.ContentTypeID, n_Contents.ColumnID, n_Contents.CategoryID, n_Contents.Number, n_Contents.JournalistID" sql_str = sql_str + " FROM n_Contents" sql_str = sql_str + " WHERE (((n_Contents.Number)>462))" set rs=Server.CreateObject("ADODB.recordset") rs.Open sql_str , conn %> <% do until rs.EOF %> <%for each x in rs.Fields%> <% next rs.MoveNext Response.Write "INSERT INTO server ( ContentID, Titel, PaperDetail, PaperAbstract, ContentTypeID, ColumnID, CategoryID, [Number], JournalistID )" Response.Write "VALUES ('ContentID', 'Titel', 'PaperDetail', 'PaperAbstract', 'ContentTypeID', 'ColumnID', 'CategoryID', 'Number', 'JournalistID')" loop %> <% rs.close %>

<%Response.Write(x.value)%>