0001: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
0002: 
0003: <!--#include file="include/constants.inc"-->
0004: <!--#include FILE="include/adovbs.inc" -->
0005: 
0006: <%
0007: 	action = Trim(Request.Form("action"))
0008: 	ID = Trim(Request.Form("ID"))
0009: 	WcElement = Trim(Request.Form("Element"))
0010: 	Value = Trim(Request.Form("Value"))
0011: 	Description = Trim(Request.Form("Description"))
0012: 
0013: 
0014: 	If action = "Add" Then
0015: 		Set rs = Server.CreateObject("ADODB.Recordset")
0016: 		rs.Open "mmConfig", Conn, adOpenDynamic, adLockOptimistic, adCmdTable
0017: 		rs.AddNew
0018: 	ElseIf action = "Edit" Then
0019: 		Set rs = Server.CreateObject("ADODB.Recordset")
0020: 		sqlString = "SELECT * FROM mmConfig WHERE ID = " & ID
0021: 		rs.Open sqlString, Conn, adOpenDynamic, adLockOptimistic, adCmdText
0022: 		If rs.EOF Then
0023: 			rs.Close
0024: 			Response.Redirect("mmConfig_Maint.asp")
0025: 		End If
0026: 	Else
0027: 		Response.Redirect("mmConfig_Maint.asp")
0028: 	End If
0029: 
0030: 	rs("Element").Value = wcElement
0031: 	rs("Value").Value = Value
0032: 	rs("Description").Value = Description
0033: 	rs.Update
0034: 	rs.Close
0035: 	Set rs = Nothing
0036: 	
0037: 	Response.Redirect("mmConfig_Maint.asp")		
0038: %>