Hello All,

Hopefully some of the Dreamweaver CS3 and MSSQL gurus can help me out here.. <img src=../images/dmxzone/forum/icon_smile.gif border=0 align=middle>

I'm using IIS 6.0, MSSQL 2000, ASP and Dreamweaver CS3

I have a site that I'm using to track inventory. The site allows users to enter inventory, view the details, delete and update specs on the inventory.

I have an add inventory page where they're allowed to enter all the specs on a piece of inventory. There is also a hidden "history" which adds the data and "server added to the database" to the history field.

When I click on the page to show all, it lists out the servers, and hyperlinks the name to a details page which shows all the details of that server. It also has two other links, edit and delete (again both hyperlinked by the "ID" column).

When I click on the edit page, I want it show all the server details as editable fields, however I want to show history as a read only field, and whatever changes on that page (i.e. status changes from available to deployed, or amount of memory, ram, etc, is updated) I want those things to update and also write to the history field, time stamping and stating what changed.

I don't know how to update the record and append to what's already there. Dreamweaver CS3 writes everything differently than what I'm used to. Here's the code from the existing page update page:

<pre id=code><font face=courier size=2 id=code>
&lt;%@LANGUAGE="VBSCRIPT"%&gt;
&lt;!--#include file="Connections/srvInventory.asp" --&gt;
&lt;%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")
If (Request.QueryString &lt;&gt; "" Then
MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%&gt;
&lt;%
' IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
If condition = "" Then
MM_IIf = ifFalse
Else
MM_IIf = ifTrue
End If
End Function
%&gt;
&lt;%
If (CStr(Request("MM_update") = "form1" Then
If (Not MM_abortEdit) Then
' execute the update
Dim MM_editCmd

Set MM_editCmd = Server.CreateObject ("ADODB.Command"
MM_editCmd.ActiveConnection = MM_srvInventory_STRING
MM_editCmd.CommandText = "UPDATE dbo.srvInventory SET status = ?, redeploy_reason = ?, serial = ?, server_name = ?, model = ?, cpu = ?, cpu_speed = ?, ram = ?, disk_type = ?, disk_total_num = ?, disk_size = ?, power_sup_num = ?, store_only = ?, history = ? WHERE id = ?"
MM_editCmd.Prepared = true
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 201, 1, 10, Request.Form("status") ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 201, 1, 75, Request.Form("reason") ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 201, 1, 30, Request.Form("serial") ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 201, 1, 30, Request.Form("server_name") ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 201, 1, 30, Request.Form("model") ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 201, 1, 5, Request.Form("cpu") ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 201, 1, 10, Request.Form("cpu_speed") ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 201, 1, 10, Request.Form("ram") ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 201, 1, 10, Request.Form("disk_type") ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param10", 201, 1, 10, Request.Form("disk_total_num") ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param11", 201, 1, 10, Request.Form("disk_size") ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param12", 201, 1, 10, Request.Form("power_sup_num") ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param13", 201, 1, 10, MM_IIF(Request.Form("store_only", "Y", "N") ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param14", 201, 1, -1, Request.Form("history") ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param15", 5, 1, -1, MM_IIF(Request.Form("MM_recordId", Request.Form("MM_recordId", null)) ' adDouble
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

' append the query string to the redirect URL
Dim MM_editRedirectUrl
MM_editRedirectUrl = "srv_showall.asp"
If (Request.QueryString &lt;&gt; "" Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
Response.Redirect(MM_editRedirectUrl)
End If
End If
%&gt;
&lt;%
Dim srvInventory__MMColParam
srvInventory__MMColParam = "1"
If (Request.QueryString("recordID" &lt;&gt; "" Then
srvInventory__MMColParam = Request.QueryString("recordID"
End If
%&gt;
&lt;%
Dim srvInventory
Dim srvInventory_cmd
Dim srvInventory_numRows

Set srvInventory_cmd = Server.CreateObject ("ADODB.Command"
srvInventory_cmd.ActiveConnection = MM_srvInventory_STRING
srvInventory_cmd.CommandText = "SELECT * FROM dbo.srvInventory WHERE id = ?"
srvInventory_cmd.Prepared = true
srvInventory_cmd.Parameters.Append srvInventory_cmd.CreateParameter("param1", 5, 1, -1, srvInventory__MMColParam) ' adDouble

Set srvInventory = srvInventory_cmd.Execute
srvInventory_numRows = 0
%&gt;
&lt;%
Dim srvModels
Dim srvModels_cmd
Dim srvModels_numRows

Set srvModels_cmd = Server.CreateObject ("ADODB.Command"
srvModels_cmd.ActiveConnection = MM_srvInventory_STRING
srvModels_cmd.CommandText = "SELECT * FROM dbo.srvModels"
srvModels_cmd.Prepared = true

Set srvModels = srvModels_cmd.Execute
srvModels_numRows = 0
%&gt;
&lt;%
Dim srvReason
Dim srvReason_cmd
Dim srvReason_numRows

Set srvReason_cmd = Server.CreateObject ("ADODB.Command"
srvReason_cmd.ActiveConnection = MM_srvInventory_STRING
srvReason_cmd.CommandText = "SELECT * FROM dbo.srvDeployReason"
srvReason_cmd.Prepared = true

Set srvReason = srvReason_cmd.Execute
srvReason_numRows = 0
%&gt;
&lt;!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"&gt;

&lt;html xmlns="www.w3.org/1999/xhtml"&gt;
&lt;head&gt;
&lt;meta http-equiv="Content-Type" content="text/html; charset=utf-8" /&gt;
&lt;title&gt;Server Inventory&lt;/title&gt;
&lt;meta name="keywords" content="" /&gt;
&lt;meta name="description" content="" /&gt;
&lt;link href="default.css" rel="stylesheet" type="text/css" /&gt;
&lt;style type="text/css"&gt;
&lt;!--
.style4 {
color: #000099;
font-weight: bold;
}
--&gt;
&lt;/style&gt;
&lt;/head&gt;
&lt;body&gt;
&lt;div id="header"&gt;
&lt;div id="logo"&gt;
&lt;h1&gt;&nbsp;&lt;/h1&gt;
&lt;h2&gt;&nbsp;&lt;/h2&gt;
&lt;/div&gt;
&lt;p&gt;&nbsp;&lt;/p&gt;
&lt;div id="main_menu"&gt;
&lt;div id="menu"&gt;
&lt;ul&gt;
&lt;li class="active"&gt;&lt;a href="index.asp" title="Home"&gt;Home&lt;/a&gt;&lt;/li&gt;
&lt;li&gt;&lt;a href="add_srv.asp" title="Add a Server to the Database"&gt;Add Server&lt;/a&gt;&lt;/li&gt;
&lt;li&gt;&lt;a href="srv_showall.asp" title="Show all Servers in the Database"&gt;Show All&lt;/a&gt;&lt;/li&gt;
&lt;li&gt;&lt;a href="faq.asp" title="Frequently Asked Questions"&gt;FAQ&lt;/a&gt;&lt;/li&gt;
&lt;li&gt;&lt;a href="#" title="E-mail the Server Inventory Site Webmaster"&gt;Contact Us&lt;/a&gt;&lt;/li&gt;
&lt;/ul&gt;
&lt;/div&gt;
&lt;/div&gt;
&lt;/div&gt;
&lt;div id="content"&gt;
&lt;div id="leftcolumn"&gt;
&lt;ul class="leftside"&gt;
&lt;li class="leader"&gt;&lt;strong&gt;User Actions&lt;/strong&gt;&lt;/li&gt;
&lt;li&gt;&lt;a href="add_srv.asp"&gt;Add Server&lt;/a&gt;&lt;/li&gt;
&lt;li&gt;&lt;a href="redep_srv.asp"&gt;Redeploy Server&lt;/a&gt;&lt;/li&gt;
&lt;li&gt;&lt;a href="srv_showall.asp"&gt;Show all Servers&lt;/a&gt;&lt;/li&gt;
&lt;li&gt;&lt;a href="srv_showAvailable.asp"&gt;Show all Available&lt;/a&gt;&lt;/li&gt;
&lt;li&gt;&lt;a href="srv_showRedeployed.asp"&gt;Show all Redeployed&lt;/a&gt;&lt;/li&gt;
&lt;li&gt;&lt;a href="faq.asp"&gt;FAQ&lt;/a&gt;&lt;/li&gt;
&lt;li&gt;&lt;a href="contactus.asp"&gt;Contact Us&lt;/a&gt;&lt;/li&gt;
&lt;/ul&gt;
&lt;br /&gt;
&lt;/div&gt;
&lt;div id="rightcolumn"&gt;
&lt;ul class="rightside"&gt;
&lt;li class="leader"&gt;&lt;strong&gt;Admin Actions&lt;/strong&gt;&lt;/li&gt;
&lt;li&gt;&lt;a href="srv_addmodels.asp"&gt;Manage Models&lt;/a&gt;&lt;/li&gt;
&lt;li&gt;&lt;a href="db_deployReason.asp"&gt; Redeploy Reasons&lt;/a&gt;&lt;/li&gt;
&lt;/ul&gt;
&lt;/div&gt;
&lt;div id="main"&gt;
&lt;div id="welcome" class="post"&gt;
&lt;h2 class="title"&gt;Server Inventory&lt;/h2&gt;
&lt;h3 class="date"&gt;&lt;%= FormatDateTime(Now(), 1) %&gt;&lt;/h3&gt;
&lt;div class="story"&gt;
&lt;form ACTION="&lt;%=MM_editAction%&gt;" name="form1" METHOD="POST" id="form1"&gt;
&lt;table&gt;
&lt;tr valign="baseline"&gt;
&lt;td align="right"&gt;&lt;span class="style4"&gt;Status:&lt;/span&gt;&lt;/td&gt;
&lt;td&gt;&lt;select name="status" style="width:120px;"&gt;
&lt;option value="Available" &lt;%If (Not isNull((srvInventory.Fields.Item("status".Value))) Then If ("Available" = CStr((srvInventory.Fields.Item("status".Value))) Then Response.Write("selected=""selected""" : Response.Write(""%&gt;&gt;Available&lt;/option&gt;
&lt;option value="Redeployed" &lt;%If (Not isNull((srvInventory.Fields.Item("status".Value))) Then If ("Redeployed" = CStr((srvInventory.Fields.Item("status".Value))) Then Response.Write("selected=""selected""" : Response.Write(""%&gt;&gt;Redeployed&lt;/option&gt;
&lt;/select&gt; &lt;/td&gt;
&lt;/tr&gt;
&lt;tr valign="baseline"&gt;
&lt;td align="right"&gt;&lt;span class="style4"&gt;Reason:&lt;/span&gt;&lt;/td&gt;
&lt;td&gt;&lt;select name="reason" style="width:120px;"&gt;
&lt;%
While (NOT srvReason.EOF)
%&gt;&lt;option value="&lt;%=(srvReason.Fields.Item("redeploy_reason".Value)%&gt;" &lt;%If (Not isNull((srvInventory.Fields.Item("redeploy_reason".Value))) Then If (CStr(srvReason.Fields.Item("redeploy_reason".Value) = CStr((srvInventory.Fields.Item("redeploy_reason".Value))) Then Response.Write("selected=""selected""" : Response.Write(""%&gt; &gt;&lt;%=(srvReason.Fields.Item("redeploy_reason".Value)%&gt;&lt;/option&gt;
&lt;%
srvReason.MoveNext()
Wend
If (srvReason.CursorType &gt; 0) Then
srvReason.MoveFirst
Else
srvReason.Requery
End If
%&gt;
&lt;/select&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr valign="baseline"&gt;
&lt;td align="right"&gt;&lt;span class="style4"&gt;Serial:&lt;/span&gt;&lt;/td&gt;
&lt;td&gt;&lt;input name="serial" type="text" value="&lt;%=(srvInventory.Fields.Item("serial".Value)%&gt;" size="32" /&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr valign="baseline"&gt;
&lt;td align="right"&gt;&lt;span class="style4"&gt;Server Name:&lt;/span&gt;&lt;/td&gt;
&lt;td&gt;&lt;input name="server_name" type="text" value="&lt;%=(srvInventory.Fields.Item("server_name".Value)%&gt;" size="32" /&gt; &lt;/td&gt;
&lt;/tr&gt;
&lt;tr valign="baseline"&gt;
&lt;td align="right"&gt;&lt;span class="style4"&gt;Model:&lt;/span&gt;&lt;/td&gt;
&lt;td&gt;&lt;select name="model" style="width:120px;"&gt;
&lt;%
While (NOT srvModels.EOF)
%&gt;
&lt;option value="&lt;%=(srvModels.Fields.Item("srv_models".Value)%&gt;"&gt;&lt;%=(srvModels.Fields.Item("srv_models".Value)%&gt;&lt;/option&gt;
&lt;%
srvModels.MoveNext()
Wend
If (srvModels.CursorType &gt; 0) Then
srvModels.MoveFirst
Else
srvModels.Requery
End If
%&gt;
&lt;/select&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr valign="baseline"&gt;
&lt;td align="right"&gt;&lt;span class="style4"&gt;Cpu:&lt;/span&gt;&lt;/td&gt;
&lt;td&gt;&lt;input name="cpu" type="text" value="&lt;%=(srvInventory.Fields.Item("cpu".Value)%&gt;" size="32" /&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr valign="baseline"&gt;
&lt;td align="right"&gt;&lt;span class="style4"&gt;CPU Speed:&lt;/span&gt;&lt;/td&gt;
&lt;td&gt;&lt;input name="cpu_speed" type="text" value="&lt;%=(srvInventory.Fields.Item("cpu_speed".Value)%&gt;" size="32" /&gt; &lt;/td&gt;
&lt;/tr&gt;
&lt;tr valign="baseline"&gt;
&lt;td align="right"&gt;&lt;span class="style4"&gt;RAM:&lt;/span&gt;&lt;/td&gt;
&lt;td&gt;&lt;input name="ram" type="text" value="&lt;%=(srvInventory.Fields.Item("ram".Value)%&gt;" size="32" /&gt; &lt;/td&gt;
&lt;/tr&gt;
&lt;tr valign="baseline"&gt;
&lt;td align="right"&gt;&lt;span class="style4"&gt;Disk Type:&lt;/span&gt;&lt;/td&gt;
&lt;td&gt;&lt;input name="disk_type" type="text" value="&lt;%=(srvInventory.Fields.Item("disk_type".Value)%&gt;" size="32" /&gt; &lt;/td&gt;
&lt;/tr&gt;
&lt;tr valign="baseline"&gt;
&lt;td align="right"&gt;&lt;span class="style4"&gt;# Disks:&lt;/span&gt;&lt;/td&gt;
&lt;td&gt;&lt;input name="disk_total_num" type="text" value="&lt;%=(srvInventory.Fields.Item("disk_total_num".Value)%&gt;" size="32" /&gt; &lt;/td&gt;
&lt;/tr&gt;
&lt;tr valign="baseline"&gt;
&lt;td align="right"&gt;&lt;span class="style4"&gt;Disk Size:&lt;/span&gt;&lt;/td&gt;
&lt;td&gt;&lt;input name="disk_size" type="text" value="&lt;%=(srvInventory.Fields.Item("disk_size".Value)%&gt;" size="32" /&gt; &lt;/td&gt;
&lt;/tr&gt;
&lt;tr valign="baseline"&gt;
&lt;td align="right"&gt;&lt;span class="style4"&gt;# Power Sup's:&lt;/span&gt;&lt;/td&gt;
&lt;td&gt;&lt;input name="power_sup_num" type="text" value="&lt;%=(srvInventory.Fields.Item("power_sup_num".Value)%&gt;" size="32" /&gt; &lt;/td&gt;
&lt;/tr&gt;
&lt;tr valign="baseline"&gt;
&lt;td align="right"&gt;&lt;span class="style4"&gt;Store Only:&lt;/span&gt;&lt;/td&gt;
&lt;td&gt;&lt;input name="store_only" type="checkbox" value="&lt;%=(srvInventory.Fields.Item("store_only".Value)%&gt;" /&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td align="right" valign="top"&gt;&lt;span class="style4"&gt;History:&lt;/span&gt;&lt;/td&gt;
&lt;td valign="baseline"&gt;&lt;textarea name="history" cols="50" rows="5" readonly="readonly"&gt;&lt;%=(srvInventory.Fields.Item("history".Value)%&gt;&lt;/textarea&gt; &lt;/td&gt;
&lt;/tr&gt;
&lt;tr valign="baseline"&gt;
&lt;td align="right"&gt;&nbsp;&lt;/td&gt;
&lt;td&gt;&lt;input type="submit" value="Update record" /&gt; &lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;
&lt;input type="hidden" name="id" /&gt;
&lt;input type="hidden" name="MM_update" value="form1" /&gt;
&lt;input type="hidden" name="MM_recordId" value="&lt;%= srvInventory.Fields.Item("id".Value %&gt;" /&gt;
&lt;/form&gt;
&lt;/div&gt;
&lt;/div&gt;
&lt;/div&gt;
&lt;div id="footer"&gt;
&lt;p id="legal"&gt;All Rights Reserved. Designed by &lt;a href="#"&gt;Contact Us&lt;/a&gt;&lt;/p&gt;
&lt;p id="links"&gt;&lt;a href="#"&gt;Privacy Policy&lt;/a&gt; | &lt;a href="#"&gt;Terms of Use&lt;/a&gt;&lt;/p&gt;
&lt;/div&gt;
&lt;/body&gt;
&lt;/html&gt;
&lt;%
srvInventory.Close()
Set srvInventory = Nothing
%&gt;
&lt;%
srvModels.Close()
Set srvModels = Nothing
%&gt;
&lt;%
srvReason.Close()
Set srvReason = Nothing
%&gt;

</font id=code></pre id=code>