<%
Set rs = Server.CreateObject("ADODB.Recordset")
if request("emin") = "New" then
set rs.ActiveConnection = my_Conn
rs.CursorType = 3
strSQL = "SELECT COUNT(*)+1 AS NEWNUM FROM " & strTablePrefix & "USERFIELDS"
set rs2 = my_conn.execute(strSQL)
if not rs2.eof then
usrNum = rs2("NEWNUM") + 1
else
esrNum = 1
end if
my_Conn.Execute ( "INSERT INTO " & strTablePrefix & "USERFIELDS (USR_LABEL,USR_FIELDTYPE,USR_SHORTNAME) Values ('NewLabel','S','User_" & usrNum & "')")
%>
<%
end if
%>
<%
if request("emin") = "Del" then
sfldValue = request("USR_FIELD_ID")
if isNumeric(sfldValue) then
sWhere = "USR_FIELD_ID" & "=" & sfldValue
else
sWhere = "USR_FIELD_ID" & "='" & sfldValue & "'"
end if
my_Conn.execute "delete from " & strTablePrefix & "USERFIELDS WHERE " & sWhere
my_Conn.execute "delete from " & strMemberTablePrefix & "MEMBERFIELDS WHERE " & sWhere
%>
<%
response.end
end if
%>
<% if request("preview") = "preDel" then %>
Are you sure you want to delete the record?
Yes
<% Elseif request("preview") = "preNew" then %>