<% dim oConn, memid hasemail="hidden" 'Connect to database Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open connectstring if request.form("submit") > "" then dim sql, frmemail, frmpassword, frmprefix, frmfirstname, frmlastname,frmstate,frmlevel,frmgenre, frmwishlist, frmmemtype,frminstitution,rs1,rs2,hasemail,frmph1,frmph2,frmph3 frmemail = request.form("email") frmpassword = request.form("password") frmprefix = request.form("prefix") frmfirstname = request.form("FirstName") frmlastname = request.form("LastName") frmstate = request.form("state") frmlevel = request.form("level") frmgenre = request.form("genre") frmwishlist = replace(request.form("wishlist"),"'","''") frmmemtype = request.form("memtype") frminstitution = request.form("institution") frmph1=request.form("ph1") frmph2=request.form("ph2") frmph3=request.form("ph3") sql = "select * from members where MemberEmail='" & frmemail & "'" response.write(sql) set rs1 = oConn.execute(sql) if rs1.eof then hasemail="hidden" sql ="insert into members (MemberEmail,MemberPassword,MemberPrefix,MemberFirstName,MemberLastName,MemberState,WritingLevel,PrimaryGenre,InterestedIn,MemberType,Institution,SubscriptionStatus,Comments,ph1,ph2,ph3)" sql = sql & " values ('" & frmemail & "','" & frmpassword & "','" & frmprefix & "','" & frmfirstname & "','" & frmlastname & "','" & frmstate & "','" & frmlevel & "','" & frmgenre & "','" & frmwishlist & "','" & frmmemtype & "','" & frminstitution & "',0,'','" & frmph1 & "','" & frmph2 & "','" & frmph3 & "')" oconn.execute(sql) sql="select * from members where MemberEmail='" & frmemail & "'" set rs2 = oconn.execute(sql) memid=rs2.fields("MemberID") rs2.close response.redirect("membershippayment.asp?mid=" & memid) else hasemail="visible" end if end if %> Membership

 

 

 

 


* You have already registered for membership

Register For Membership

Login Information
All fields are required. Your E-mail and Password will be used for member benifits and discounts, so please make note of them.









Personal Information






        

Writing Information We will use this information to help create workshops taylored to your needs.






Membership Type