	<%
		TableName = Request.QueryString("TableName")
		DbName = Request.QueryString("DBName")
		Password = Request.QueryString("Password")
		FieldCount = Request.QueryString("FieldCount")
		RecordAction = Request.QueryString("RecordAction")
		DeleteFlag = Request.QueryString("Delete")
		If DeleteFlag = "True" Then
			RecordAction = "Delete"
		End If

		dim i
		FieldCount = CInt(FieldCount)
		dim Fields(99)
		i = 1
		If Password = "jethr0" Then
			j = 0
			Do Until j = FieldCount
				Fields(j) = Request.QueryString("Field"&j)
				If Fields(j) = "" or IsNull(Fields(j)) Then
					Fields(j) = " "
				End If
				j = j + 1
			Loop
			If RecordAction = "Add" Then
				Set ATable = CreateObject("ADODB.Recordset")
				ATable.Open TableName, "DSN=" & DBName & ";", 1, 3, 2
				ATable.AddNew
				j = 0
				Do Until j = FieldCount
					If ATable.Fields.Item(j).Name <> "ID" Then
						If ATable.Fields.Item(j).Type = 11 Then
							If Fields(j) = "1" Then
								ATable.Fields.Item(j) = True
							Else
								ATable.Fields.Item(j) = False
							End If
						Else
							ATable.Fields.Item(j) = Fields(j)
						End If
					End If
					j = j + 1
				Loop
				ATable.Update
				ATable.Close
			End If
			If RecordAction = "Delete" Then
				Set ATable = CreateObject("ADODB.Recordset")
				ATable.Open TableName, "DSN=" & DBName & ";"
				j = 0
				Do Until j = FieldCount
					If ATable.Fields.Item(j).Name = "ID" Then
						ID = Fields(j)
					End If
					j = j + 1
				Loop
				ATable.Close
				Set ATable = CreateObject("ADODB.Recordset")
				ATable.Open TableName & " WHERE ID=" & ID, "DSN=" & DBName & ";", 1, 3, 2
				ATable.Delete
				ATable.Close
			End If
			If RecordAction = "Update" Then
				Set ATable = CreateObject("ADODB.Recordset")
				ATable.Open TableName, "DSN=" & DBName & ";"
				j = 0
				Do Until j = FieldCount
					If ATable.Fields.Item(j).Name = "ID" Then
						ID = Fields(j)
					End If
					j = j + 1
				Loop
				ATable.Close
				Set ATable = CreateObject("ADODB.Recordset")
				ATable.Open TableName & " WHERE ID=" & ID, "DSN=" & DBName & ";", 1, 3, 2
				j = 0
				Do Until j = FieldCount
					If ATable.Fields.Item(j).Name <> "ID" Then
						If ATable.Fields.Item(j).Type = 11 Then
							If Fields(j) = "1" Then
								ATable.Fields.Item(j) = True
							Else
								ATable.Fields.Item(j) = False
							End If
						Else
							ATable.Fields.Item(j) = Fields(j)
						End If
					End If
					j = j + 1
				Loop
				ATable.Update
				ATable.Close
			End If
		End If
%>