May’s Course of the Month is now available! Experts Exchange’s Premium Members and Team Accounts have access to a complimentary course each month as part of their membership—an extra way to increase training and boost professional development.
<% Set objRs1=CreateObject("ADODB.RecordSet") getSQL1 = "SELECT ID, Email, MyFN, MyLN, Status, OrgID FROM Members" objRs1.Open getSQL1, objConn, 1, 1, 1 Set objCommand=Server.CreateObject("ADODB.Command") objCommand.ActiveConnection=objConn row=CInt(Request.Form("row")) For n=1 to row strMyStatus = request.Form("Status_" & n) strMyID = request.Form("MyID_" & n) strMyFN = request.Form("FirstName_" & n) strMyLN = request.Form("LastName_" & n) strMyEmail = request.Form("Email_" & n) sqlOrgInsert = "Insert into Members (MyFN, MyLN, Email, Status, OrgID, Payment, PayStatus)Values('"&strMyFN&"','"&strMyLN&"','"&strMyEmail&"','NotActive', "&GetMyOrg&", 'MemPayment', 'Yearly')" objCommand.CommandText=sqlOrgInsert objCommand.Execute Next %>
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.