Indsæt x antal poster på en gang

værsgo:

<%

if request(\"Description_1\")<>\"\" THEN
response.write(\"GEM\")
For Each element in Request.form

    if left(element, 5) = \"Name_\" THEN
    sDescription = \"Description_\" & Right(element, len(element)-5)
        SQL = \" INSERT INTO dintabel VALUES (\'\" & Request(element) & \"\',\'\" & Request(sDescription) & \"\')\"
        response.write(\"<br>\" & SQL )
    end if
next

end if

%>





<table>
    <tr>               
        <form action=\"\" method=post name=ny_menu>
            <INPUT type=\"hidden\" name=mode value=new_member>
            <td>Antal medlemmer du vil oprette</td>
            <td><INPUT type=\"text\" name=numbers size=5></td>
            <td><INPUT type=\"submit\" value=\"Go!\"></td>
        </form>
    </tr>
</table>


Formular 2

    <%
    f=Request.Form(\"numbers\")
    %>

    <table width=500 border=0 cellPadding=0 cellSpacing=0>
    <form action=\"\" method=post name=myform>
    <input type=hidden name=mode value=generer>
    <%
    for i=1 to f
    %>           
        <tr>       
            <td>Navn&nbsp;</td>
            <td><INPUT type=\"text\" name=\"Name_<%=i%>\"></td>
            <td>Beskrivelse&nbsp;</td>
            <td><INPUT type=\"text\"  name=\"Description_<%=i%>\" value=Description<%Response.Write i%>></td>                       
        </tr>
    <%
    next
    %>
        <tr>
            <td colspan=6 align=right>
            <INPUT type=\"submit\" value=\"generer\" id=submit1 name=submit1>
            </td>
        </tr>
    </form>
    </table>

Jeg skriver godt nok kun SQL-sætningern ud:

response.write(\"<br>\" & SQL )

Det ka du bare ændre til at du udfører dem.

Skrive sql-sætning fint

men får flg. fejl ved forsøg på indsæt:

Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access-driver] Antallet af forespørgselsværdier og destinationsfelter er ikke det samme.
/_adm/test2.asp, line 20

Har hitte fejlen

- Mig selv :-)

Tak for den hurtige hjælp