Single Table Update in SQL Server:

Code:

update.asp:

Highlight

<%@ Language=VBScript %>
<%option explicit%>

<%if (request.querystring ("Updated")) = "True" then%>

<b>The Record has been Updated</b>

<%else%>

<% 
	Dim conn
	Dim rs
	Dim strSQL
	Dim sSQL
	Dim PrimaryKeyField

PrimaryKeyField = request.querystring("PrimaryKeyField")

strSQL = "exec sp_getTableNameData_byPrimaryKeyField " & PrimaryKeyField
	Set conn = ConnectSQLNT("DataBaseName", "ServerName")
	Set rs = server.createobject("adodb.recordset")

rs.open strSQL, conn

if rs.eof then
		rs.close:  set rs = nothing
		conn.close:  set conn = nothing
		response.redirect "list.asp?Error=True"
	end ifs
	%>

<%do while NOT rs.eof%>

<form action=dbupdate.asp method=post>
    <input type=hidden name=cboPrimaryKeyField Value="<%=rs("PrimaryKeyField")%>">
	FieldName1: <input type=text name=cboFieldName1 value=<%rs("FieldName1")%> size=10><br>
	FieldName2: <input type=text name=cboFieldName2 value=<%rs("FieldName2")%> size=10><br>
	FieldName3: <input type=text name=cboFieldName3 value=<%rs("FieldName3")%> size=10><br>
	</form>

<%
	rs.moveNext
	loop

rs.close:  set rs = nothing
	conn.close:  set conn = nothing
	%>

<%end if%>

</body>
</html>

dbupdate.asp:

Highlight

sp_getTableNameData_byPrimaryKeyField: sp_UpdateTableName: