Author |
Topic |
|
TheMarkel
Starting Member
USA
14 Posts |
Posted - 09 July 2001 : 10:57:50
|
I'm getting the following error on running it:
Microsoft JET Database Engine error '80040e10'
No value given for one or more required parameters.
/elfwoodforum/members.asp, line 227
Is there anything I needed to have done other than just replace my existing members.asp file? I'm unclear as to what is causing this.
Thx in advance.
'move every 'sig.''
--markel |
|
HuwR
Forum Admin
United Kingdom
20584 Posts |
Posted - 09 July 2001 : 12:21:33
|
if you mail me your file I will check, what mods do you have installed?
|
|
|
trakfast11
Starting Member
32 Posts |
Posted - 09 July 2001 : 21:03:57
|
on your new members.asp page there is a link to add and delete moderators for admins. I like this new option, but i can't use it right now. Could you tell me what files i need in order to be able to add and delete moderators from the members page? Thanks a lot HuwR
|
|
|
GauravBhabu
Advanced Member
4288 Posts |
Posted - 11 July 2001 : 11:44:49
|
I also want to know the changes to be made for this function to work
gauravbhabu
There is only one miracle...That is LIFE! |
|
|
GauravBhabu
Advanced Member
4288 Posts |
Posted - 11 July 2001 : 15:50:15
|
Okay I got it.
gauravbhabu
There is only one miracle...That is LIFE! |
|
|
GauravBhabu
Advanced Member
4288 Posts |
Posted - 12 July 2001 : 14:18:01
|
quote:
on your new members.asp page there is a link to add and delete moderators for admins. I like this new option, but i can't use it right now. Could you tell me what files i need in order to be able to add and delete moderators from the members page? Thanks a lot HuwR
This is how i did it. There is some extra code which needs to be removed. Also "M_Status" check can be added to make sure the member is active when making the moderator. you also need the new members.asp which displays the Make/Remove Moderator icons.
find this in pop_profile.asp
end select
on error resume next rs.close set rs=nothing if not(strUseExtendedProfile) then %> <!--#INCLUDE FILE="include/inc_footer_short.asp" --> <% else %> <!--#INCLUDE FILE="include/inc_footer.asp" --> <% end if %>
Replace this with the following:
pop_profile.asp Case "Moderator" %> <center><br> <p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">Make/Remove Moderator</font></p> <p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b><font color="red">NOTE:</font></b> Only Administrators can Make/Remove Moderators.</font></p> <center> <form action="pop_profile.asp?mode=goModerator" method="post" id="Form1" name="Form1"> <input type="hidden" name="Method_Type" value="<% =Request.QueryString("mode") %>"> <input type="hidden" name="MEMBER_ID" value="<% =Request.QueryString("ID") %>"> <input type="hidden" name="Name" value="<% =Request.QueryString("name") %>"> <input type="hidden" name="Action" value="<% =Request.QueryString("action") %>"> <input name="Refer" type="hidden" value="<% =Request.ServerVariables("HTTP_REFERER") %>"> <table border="0" width="75%" cellspacing="0" cellpadding="0" align="center"> <tr> <td bgcolor="<% =strPopUpBorderColor %>"> <table border="0" width="100%" cellspacing="1" cellpadding="1"> <% if strAuthType="db" then %> <tr> <td bgColor="<% =strPopUpTableColor %>" align="right" nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">User Name:</font></b></td> <td bgColor="<% =strPopUpTableColor %>"><input type="text" name="User" value="<% =Request.Cookies(strUniqueID & "User")("Name")%>" size="20"></td> </tr> <tr> <td bgColor="<% =strPopUpTableColor %>" align="right" nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">Password:</font></b></td> <td bgColor="<% =strPopUpTableColor %>"><input type="Password" name="Pass" value="<% =Request.Cookies(strUniqueID & "User")("Pword")%>" size="20"></td> </tr> <% elseif strAuthType="nt" then %> <tr> <td bgcolor="<% =strPopUpTableColor %>" align="right" nowrap><b><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">NT Account:</font></b></td> <td bgcolor="<% =strPopUpTableColor %>"><font face="<%=strDefaultFontFace %>" size="<% =strDefaultFontSize%>"><%=Session(strCookieURL & "userid")%></font></td> </tr> <% end if %> <tr> <td bgColor="<% =strPopUpTableColor %>" colspan="2" align="center"><input type="Submit" value="Send" id="Submit1" name="Submit1"></td> </tr> </table> </td> </tr> </table> </form> <% Case "goModerator" mLev = cint(ChkUser2(STRdbntUserName, Request.Form("Pass"))) if mLev > 0 then '## is Member if mLev = 4 then strSql = "SELECT " & strMemberTablePrefix & "MODERATOR.MEMBER_ID" strSql = strSql & " FROM " & strMemberTablePrefix & "MODERATOR" strSql = strSql & " WHERE MEMBER_ID = " & Request.Form("MEMBER_ID") set rsMod = my_Conn.Execute(strSql) '## Forum_SQL strSql = SelectFields() 'we only need "M_Level" and "Member_ID" fields so this may be modified. strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS" strSql = strSql & " WHERE MEMBER_ID = " & Request.Form("MEMBER_ID") set rs = my_Conn.Execute(strSql) %> <center><br> <% if Request.Form("Action") = "add" then %> <p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">Make Moderator</font></p> <% else if Request.Form("Action") = "del" then %> <p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">Remove Moderator</font></p> <%end if end if %> <p align="center"><form action="pop_profile.asp?mode=ModerateIt&id=<% =Request.Form("MEMBER_ID")%>" method="Post" id="Form1" name="Form1"> </center> <% if rsMod.BOF and rsMod.EOF then Response.Write "<center>" if Request.Form("Action") = "add" then Response.write "<p align=""center"">Add " & rs("M_NAME") & " to the Moderator List</p>" %><p align="center"><input type="hidden" name="ModExists" value="N"></P><% else if Request.Form("Action") = "del" then Response.write "<p align=""center"">" & rs("M_NAME") & " is not a Moderator</p>" %><p align="center"><input type="hidden" name="ModExists" value="N"></P><% end if end if else if Request.Form("Action") = "add" then Response.write rs("M_NAME") & " is already a Moderator</p>" %><p align="center"><input type="hidden" name="ModExists" value="Y"></P><% else if Request.Form("Action") = "del" then Response.write "<p align=""center"">Remove " & rs("M_NAME") & " from Moderator List</p>" %><p align="center"><input type="hidden" name="ModExists" value="Y"></P><% end if end if Response.Write "</center>" end if set rsMod = nothing
'## Display Edit Profile Page %>
<input type="hidden" name="User" value="<% =Request.Form("User") %>"> <input type="hidden" name="Pass" value="<% =Request.Form("Pass") %>"> <input name="Refer" type="hidden" value="<% =Request.Form("Refer") %>"> <INPUT type="hidden" name="Action" value="<% =Request.Form("Action") %>"> <INPUT type="hidden" name="Level" value="<% =rs("M_LEVEL") %>"> <INPUT type="hidden" name="MEMBER_ID" value="<% =Request.Form("MEMBER_ID") %>"> <p align="center"><INPUT type="submit" value="Submit" name=Submit1></p> <%' <!-- #include file="include/inc_profile.asp" -->%> </form></p> <% else %> <p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>"><b>Only Administrators Can Make Moderators</b></font><br> <br> <font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="JavaScript: onClick= history.go(-1)">Go Back to Re-Authenticate</a></font></p> <%if strUseExtendedProfile then %> <p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="<% if InStr(1,Request.Form("refer"),"register.asp",1) > 0 then Response.Write("members.asp") else Response.Write(Request.Form("refer")) end if %>">Back To Members Page</a></font></p> <% end if end if else 'Not logged on or no member %> <p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>"><b>Only Administrators Can Make Moderators</b></font><br> <br> <font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="JavaScript: onClick= history.go(-1)">Go Back to Re-Authenticate</a></font></p> <% if strUseExtendedProfile then %> <p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="<% if InStr(1,Request.Form("refer"),"register.asp",1) > 0 then Response.Write("members.asp") else Response.Write(Request.Form("refer")) end if %>">Back To Members Page</a></font></p> <% end if end if Case "ModerateIt" mLev = cint(ChkUser2(STRdbntUserName, Request.Form("Pass"))) if mLev > 0 then '## is Member if mLev = 4 then '## is Admin Err_Msg = "" '## Forum_SQL strSql = "SELECT M_NAME FROM " & strMemberTablePrefix & "MEMBERS " strSql = strSql & " WHERE M_NAME = '" & Trim(Request.Form("Name")) &"' " strSql = strSql & " AND MEMBER_ID <> " & Trim(Request.Form("Member_ID")) &" " set rs = my_Conn.Execute (strSql) if rs.BOF and rs.EOF then '## Do Nothing - proceed else 'Err_Msg = Err_Msg & "<li>UserName is already in use, <br>Please Choose Another</li>" end if rs.close set rs = nothing Select case Request.Form("Action") Case "add" if ChkString(Request.Form("Level"),"") = "1" then if Request.Form("ModExists") = "N" then 'insert into moderators table strSql = "INSERT INTO " & strTablePrefix & "MODERATOR " strSql = strSql & "(MEMBER_ID" strSql = strSql & ") VALUES (" strSql = strSql & Request.Form("MEMBER_ID") strSql = strSql & ")" my_Conn.Execute strSql end if ' Update members table strSql = "" strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS " strSql = strSql & " SET M_LEVEL = 2 " strSql = strSql & " WHERE MEMBER_ID = " & Request.Form("MEMBER_ID") my_Conn.Execute(strSql) else Response.Write chkString(Request.Form("Level"),"") Err_Msg = Err_Msg & "<li>Errors occurred Member could not be made moderator</li>" end if Case "del" if ChkString(Request.Form("Level"),"") = "2" then if Request.Form("ModExists") = "Y" then '## Forum_SQL - Remove the member from the moderator table strSql = "DELETE FROM " & strTablePrefix & "MODERATOR " strSql = strSql & " WHERE " & strTablePrefix & "MODERATOR.MEMBER_ID = " & Request.Form("MEMBER_ID") my_Conn.Execute (strSql) ' Update members table end if strSql = "" strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS " strSql = strSql & " SET M_LEVEL = 1 " strSql = strSql & " WHERE MEMBER_ID = " & Request.Form("MEMBER_ID") my_Conn.Execute(strSql) else Err_Msg = Err_Msg & "<li>Member could not be deleted as moderator</li>" end if Case "" Response.Write "Action could not be determined" end select if Err_Msg = "" then%> <p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">Profile Updated.</font></p> <%if (strUseExtendedProfile) then%> <meta http-equiv="Refresh" content="2; URL=<% if InStr(1,Request.Form("refer"),"register.asp",1) > 0 then Response.Write("default.asp") else Response.Write(Request.Form("refer")) end if %>"> <p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="<% if InStr(1,Request.Form("refer"),"register.asp",1) > 0 then Response.Write("members.asp") else Response.Write(Request.Form("refer")) end if %>">Back To Members Page</a></font></p> <%end if else %> <p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">There Was A Problem With The Details</font></p> <table align="center"> <tr> <td align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><center> <ul> <% =Err_Msg %> </ul> </center></font> </td> </tr> </table> <p align="center"><font size="<% =strDefaultFontSize %>"><a href="JavaScript:history.go(-1)">Go Back To Enter Data</a></font></p> <% if strUseExtendedProfile then %> <p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="<% if InStr(1,Request.Form("refer"),"register.asp",1) > 0 then Response.Write("members.asp") else Response.Write(Request.Form("refer")) end if %>">Back To Members Page</a></font></p> <% end if end if else 'Member but no Admin %> <p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>"><b>No Permissions to Modify a Member</b></font><br> <br> <font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="JavaScript: onClick= history.go(-1)">Go Back to Re-Authenticate</a></font></p> <%if strUseExtendedProfile then %> <p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="<% if InStr(1,Request.Form("refer"),"register.asp",1) > 0 then Response.Write("default.asp") else Response.Write(Request.Form("refer")) end if %>">Back To Forum</a></font></p> <% end if end if else 'Not logged on or no member %> <p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>"><b>No Permissions to Modify a Member</b></font><br> <br> <font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="JavaScript: onClick= history.go(-1)">Go Back to Re-Authenticate</a></font></p> <%if strUseExtendedProfile then %> <p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="<% if InStr(1,Request.Form("refer"),"register.asp",1) > 0 then Response.Write("default.asp") else Response.Write(Request.Form("refer")) end if %>">Back To Forum</a></font></p> <% end if end if end select
on error resume next rs.close set rs=nothing if not(strUseExtendedProfile) then %> <!--#INCLUDE FILE="include/inc_footer_short.asp" --> <% else %> <!--#INCLUDE FILE="include/inc_footer.asp" --> <% end if %>
<% function SelectFields () '## Forum_SQL strSql = "" strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.MEMBER_ID" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_NAME" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_USERNAME" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_EMAIL" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_FIRSTNAME" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_LASTNAME" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_LEVEL" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_TITLE" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_PASSWORD" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_ICQ" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_YAHOO" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_AIM" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_COUNTRY" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_POSTS" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_CITY" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_STATE" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_HIDE_EMAIL" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_DATE" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_PHOTO_URL" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_HOMEPAGE" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_LINK1" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_LINK2" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_AGE" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_MARSTATUS" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_SEX" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_OCCUPATION" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_HOBBIES" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_QUOTE" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_BIO" strsql = strsql & ", " & strMemberTablePrefix & "MEMBERS.M_LNEWS" strSql = strSql & ", " & strMemberTablePrefix & "MEMBERS.M_SIG" SelectFields = strSql end function %>
gauravbhabu
There is only one miracle...That is LIFE!
Edited by - GauravBhabu on 12 July 2001 14:25:31 |
|
|
HuwR
Forum Admin
United Kingdom
20584 Posts |
Posted - 13 July 2001 : 08:21:33
|
The code I use is much simpler.
At the top of pop_profile.asp, after the include statements, insert this code
<% '############################# moderator bits ############### if Request.QueryString("mode") = "Moderator" then select case Request.QueryString("action") case "del" strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS " strSql = strSql & " SET M_LEVEL = 1 " strSql = strSql & " WHERE MEMBER_ID = " & Request.QueryString("ID") my_Conn.Execute(strsql) strSQL = "DELETE FROM " & strTablePrefix & "MODERATOR WHERE MEMBER_ID = " & Request.Querystring("ID") my_Conn.Execute(strSQL) case "add" strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS " strSql = strSql & " SET M_LEVEL = 2 " strSql = strSql & " WHERE MEMBER_ID = " & Request.QueryString("ID") my_Conn.Execute(strsql) end select Response.write "<meta http-equiv='Refresh' content='2; URL=members.asp'>" end if '############################# moderator bits ############### %>
|
|
|
trakfast11
Starting Member
32 Posts |
Posted - 13 July 2001 : 11:36:29
|
Yeah!! thanks GauravBhabu & HuwR
|
|
|
GauravBhabu
Advanced Member
4288 Posts |
Posted - 13 July 2001 : 17:22:47
|
It is time to put my solution under the wraps. Yours is simpler
gauravbhabu
There is only one miracle...That is LIFE! |
|
|
|
Topic |
|
|
|