Multiple Table Add/Insert in SQL Server:
Code:
add.asp:
Highlight
<%@ Language=VBScript %> <%option explicit%> <html> <body> <%if (request.querystring ("Submitted")) = "True" then%> <b>The Record has been Submitted</b> <%else%> <!--#include file="db.asp"--> <% dim conn dim rs dim sSQL Set conn = ConnectSQLNT("DataBaseName", "ServerName") %> <form action=dbinsert.asp method=post> FieldName1: <input type=text name=cboFieldName1 size=10><br> FieldName2: <input type=text name=cboFieldName2 size=10><br> FieldName3: <input type=text name=cboFieldName3 size=10><br> </form> <% conn.Close: set conn=nothing %> <%end if%> </body> </html>
dbinsert.asp:
Highlight
<%@ Language=VBScript %> <%option explicit%> <!--#include file="_includes/db.asp"--> <% Dim cmd Dim conn Dim strTemp Set conn = ConnectSQLNT("DataBaseName", "ServerName") Set cmd = Server.CreateObject("ADODB.Command") Set cmd.ActiveConnection = conn cmd.CommandType = adCmdStoredProc cmd.CommandText = "sp_InsertTableName" cmd.Parameters.Append(cmd.CreateParameter("@FieldName1", adInteger, adParamInput, , Request.form("cboFieldName1"))) cmd.Parameters.Append(cmd.CreateParameter("@FieldName2", adBoolean, adParamInput, , Request.form("cboFieldName2"))) cmd.Parameters.Append(cmd.CreateParameter("@FieldName3", adVarChar, adParamInput, 255, Request.form("cboFieldName3"))) cmd.execute Set cmd=nothing set Conn=nothing response.redirect "add.asp?Submitted=True" %>
sp_InsertTableName:
Highlight
CREATE PROCEDURE dbo.sp_InsertTableName @FieldName1 int, @FieldName2 bit, @FieldName3 varchar(255) AS DECLARE @PrimaryKeyField int INSERT INTO Table1 (FieldName1, FieldName2) VALUES (@FieldName1, @FieldName2) SET @PrimaryKeyField = @@IDENTITY INSERT INTO Table2 (FieldName3) VALUES (@FieldName3)