copying from table 1 inserting in table 2

gilgalbiblewheel · September 15th, 2004, 03:40 PM

I have the following code but this is inserting manually. I want to make a query from table 1 and automatically enter the records into table 2. What needs to be modified?

Code:

<%@ LANGUAGE="VBSCRIPT" %>



<%
if isAdmin then

   set rs = Server.CreateObject("ADODB.Connection")
    rs.Open "kjv"

    set linkSet = Server.CreateObject("ADODB.RecordSet")
    linkSet.Open "select * from results order by id desc", rs, adOpenStatic, adLockOptimistic, adCmdText
    linkSet.MoveFirst
    if linkSet.EOF then
        p_link_id = 1
    else
        p_id = linkSet("id") + 1
    end if

    p_link_id_in = Request.querystring("p_id")
    if p_link_id_in <> "" then
        linkSet.Find "id = " & p_link_id_in
    end if
    if p_link_id_in = "" or linkSet.EOF then
        p_book = ""
        p_link_desc = ""
        p_link_url = ""
    else
        p_book = linkSet("book")
        p_link_desc = linkSet("book_title")
        p_link_url = linkSet("book_spoke")
        p_link_id = p_link_id_in
        p_existing = p_link_id_in
    end if

    linkSet.Close
    set linkSet = Nothing
%>
    <CENTER>
    <FORM ACTION="edit_links_rec_action.asp" METHOD="post">
    <INPUT TYPE="hidden" NAME="p_existing" "
        VALUE="<%=p_existing%>">
    <h2>Edit Link</h2>
    <TABLE>
    <TR>
        <TD>Link ID</TD>
        <TD>
            <INPUT TYPE="hidden" NAME="p_link_id" VALUE="<%= p_link_id %>">
            <%= p_link_id %>
        </TD>
    </TR>
    <TR>
        <TD>Book #</TD>
        <TD><INPUT TYPE="text" NAME="p_name" SIZE="25" 
               VALUE="<%=p_book%>">
    </TR>
    <TR>
        <TD>Link Description</TD>
        <TD><INPUT TYPE="text" NAME="p_desc" SIZE="50" 
               VALUE="<%=p_link_desc%>" maxlength=MAXLENGTH="255">
    </TR>
    <TR>
        <TD>Link URL:  http://</TD>
        <TD><INPUT TYPE="text" NAME="p_url" SIZE="50" 
                VALUE="<%=p_link_url%>" maxlength=MAXLENGTH="100">
    </TR>

    </TABLE>

    <INPUT TYPE="submit">

    </form>
    </CENTER>
<%
    rs.Close
    set rs = Nothing
else

    Response.Write "You do not have access to this page."

end if
%>
</BODY>
</HTML>