There are 2 fields that go blank after i modify a record.  Any one got any 
ideas.
Here is my code:

<%@ Language="VBScript" %>
<%
	Set RRConn = Server.CreateObject("ADODB.Connection")
	RRConnstring = "DSN=Contact; UID=; PWD="
	RRConn.Open(RRConnstring)

	If Request.Form("Type") = "Delete" Then
		Set rrRst = Server.CreateObject("ADODB.Recordset")
		sqlstring = "DELETE FROM [Contact] WHERE [ID] =" & 
Request.Form("Contact")
		rrRst.Open sqlstring, RRConn, 3, 3
		RRConn.Close
		Response.Write "<center><b>Record was deleted</center></b>"
	End If
	If Request.Form("Type") = "Modify" Then
		Set rrRst = Server.CreateObject("ADODB.Recordset")
		sqlstring = "UPDATE Contact SET Account = '" & Request.Form
("Account") & "', Customer = '" & Request.Form("Customer") & "', 
Street_Address = '" & Request.Form("Street_Address")  & "', Phone = '" & 
Request.Form("Phone") & "', Batch = '" & Request.Form("Batch") & "', 
Technical_Contact = '" & Request.Form("Technical_Contact") & "', Email 
= '" & Request.Form("Email") & "', Old_IP = '" & Request.Form("Old_IP") 
& "', New_IP = '" & Request.Form("New_IP") & "', MAC_Addy = '" & 
Request.Form("MAC_Addy") & "', Node = '" & Request.Form("Node") & "', CMTS 
= '" & Request.Form("CMTS") & "', GW_IP = '" & Request.Form("GW_IP") & "', 
Start = '" & Request.Form("Start") & "', E_n_d = '" & Request.Form
("E_n_d") & "', NAT_GW_IP = '" & Request.Form("NAT_GW_IP") & "', 
Static_NAT = '" & Request.Form("Static_NAT") & "', Port_Fwds = '" & 
Request.Form("Port_Fwds") & "', DHCP = '" & Request.Form("DHCP") & "', 
Subnet = '" & Request.Form("Subnet") & "', Notes = '" & Request.Form
("Notes") & "', Pre_Conf_On = '" & Request.Form("Pre_Conf_On") & "', 
Post_Conf_On = '" & Request.Form("Post_Conf_On") & "', Pre_Call_Done = '" 
& Request.Form("Pre_Call_Done") & "', Post_Call_Done = '" & Request.Form
("Post_Call_Done") & "', Updated_by = '" & Request.Form("Updated_by") 
& "', Date_Updated = '" & Request.Form("Date_Updated") & "' WHERE ID = " & 
Request.Form("Contact")
		rrRst.Open sqlstring, RRConn, 3, 3
		'rrRst.Fields("Account") = Request.Form("Account")
		'rrRst.Fields("Customer") = Request.Form("Customer")
		'rrRst.Fields("Street_Address") = Request.Form
("Street_Address")
		'rrRst.Fields("Phone") = Request.Form("Phone")
		'rrRst.Fields("Batch") = Request.Form("Batch")
		'rrRst.Fields("Technical_Contact") = Request.Form
("Technical_Contact")
		'rrRst.Fields("Email") = Request.Form("Email")
		'rrRst.Fields("Old_IP") = Request.Form("Old_IP")
		'rrRst.Fields("New_IP") = Request.Form("New_IP")
		'rrRst.Fields("MAC_Addy") = Request.Form("MAC_Addy")
		'rrRst.Fields("Node") = Request.Form("Node")
		'rrRst.Fields("CMTS") = Request.Form("CMTS")
		'rrRst.Fields("GW_IP") = Request.Form("GW_IP")
		'rrRst.Fields("Start") = Request.Form("Start")
		'rrRst.Fields("E_n_d") = Request.Form("E_n_d")
		'rrRst.Fields("NAT_GW_IP") = Request.Form("NAT_GW_IP")
		'rrRst.Fields("Static_NAT") = Request.Form("Static_NAT")
		'rrRst.Fields("Port_Fwds") = Request.Form("Port_Fwds")
		'rrRst.Fields("DHCP") = Request.Form("DHCP")
		'rrRst.Fields("Subnet") = Request.Form("Subnet")
		'rrRst.Fields("Notes") = Request.Form("Notes")
		'rrRst.Fields("Pre_Conf_On") = Request.Form("Pre_Conf_On")
		'rrRst.Fields("Post_Conf_On") = Request.Form
("Post_Conf_On")
		'rrRst.Fields("Pre_Call_Done") = Request.Form
("Pre_Call_Done")
		'rrRst.Fields("Post_Call_Done") = Request.Form
("Post_Call_Done")
		'rrRst.Fields("Updated_by") = Request.Form("Updated_by")
		'rrRst.Fields("Date_Updated") = Request.Form
("Date_Updated")
		'rrRst.Update
		'rrRst.Close
	   ' Set MyRst = Nothing
		RRConn.Close
		'Set MyConn = Nothing
		Response.Write "<b><center>Record was 
modified</center></b>"
	End If
	If Request.Form("Type") = "Add" Then
		Set rrRst = Server.CreateObject("ADODB.Recordset")
		sqlstring = "SELECT * FROM [Contact] "
		rrRst.Open sqlstring, RRConn, 3, 3
		rrRst.AddNew
		rrRst.Fields("Account") = Request.Form("Account")
		rrRst.Fields("Customer") = Request.Form("Customer")
		rrRst.Fields("Street_Address") = Request.Form
("Street_Address")
		rrRst.Fields("Phone") = Request.Form("Phone")
		rrRst.Fields("Batch") = Request.Form("Batch")
		rrRst.Fields("Technical_Contact") = Request.Form
("Technical_Contact")
		rrRst.Fields("Email") = Request.Form("Email")
		rrRst.Fields("Old_IP") = Request.Form("Old_IP")
		rrRst.Fields("New_IP") = Request.Form("New_IP")
		rrRst.Fields("MAC_Addy") = Request.Form("MAC_Addy")
		rrRst.Fields("Node") = Request.Form("Node")
		rrRst.Fields("CMTS") = Request.Form("CMTS")
		rrRst.Fields("GW_IP") = Request.Form("GW_IP")
		rrRst.Fields("Start") = Request.Form("Start")
		rrRst.Fields("E_n_d") = Request.Form("E_n_d")
		rrRst.Fields("NAT_GW_IP") = Request.Form("NAT_GW_IP")
		rrRst.Fields("Static_NAT") = Request.Form("Static_NAT")
		rrRst.Fields("Port_Fwds") = Request.Form("Port_Fwds")
		rrRst.Fields("DHCP") = Request.Form("DHCP")
		rrRst.Fields("Subnet") = Request.Form("Subnet")
		rrRst.Fields("Notes") = Request.Form("Notes")
		rrRst.Fields("Pre_Conf_On") = Request.Form("Pre_Conf_On")
		rrRst.Fields("Post_Conf_On") = Request.Form("Post_Conf_On")
		rrRst.Fields("Pre_Call_Done") = Request.Form
("Pre_Call_Done")
		rrRst.Fields("Post_Call_Done") = Request.Form
("Post_Call_Done")
		rrRst.Fields("Updated_by") = Request.Form("Updated_by")
		rrRst.Fields("Date_Updated") = Request.Form("Date_Updated")
		rrRst.Update
		rrRst.Close
		'Set MyRst = Nothing
		RRConn.Close
		'Set MyConn = Nothing
		Response.Write"<center><b>Record was added</b></center>"
		
	End If
	'MyConn.Close
	'Set MyConn = Nothing
	%> 
		

	

<html>

<head>
<title>Write to DB</title>
</head>

<body bgcolor="#182831" text="#FFFFFF" link="#FFFF00" vlink="#FFFF00" 
alink="#FF0000">

<p align="center">Please Follow Link back to welcome page </p>
<p align="center">&nbsp;</p>
<p align="center"><a href="welcome.asp">Home</a></p>

</body>

</html>