Single 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%> <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> <%end if%> </body> </html>
dbinsert.asp:
Highlight
<%@ Language=VBScript %> <%option explicit%> <!--#include file="_includes/db.asp"--> <% Dim cmd Dim conn 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 INSERT INTO TableName (FieldName1, FieldName2, FieldName3) VALUES (@FieldName1, @FieldName2, @FieldName3)