Author |
Topic |
|
didus
Starting Member
Austria
36 Posts |
Posted - 15 June 2001 : 10:52:33
|
Hi everyone, i get following error if i want to add a new field: Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'my_Conn.execute'
/domainreg/pop_admin_table.asp, line 16
i am not able t set the function enable, too. Where is the problem. Thanks Bye. Michael
|
|
HuwR
Forum Admin
United Kingdom
20584 Posts |
Posted - 15 June 2001 : 12:07:31
|
what type of server/Asp are you running on ?
I take it the rest of the forum works ok
|
|
|
didus
Starting Member
Austria
36 Posts |
Posted - 15 June 2001 : 12:20:50
|
asp mail 3.0 (i hope you mean this) the rest of the forum runs correctly
|
|
|
HuwR
Forum Admin
United Kingdom
20584 Posts |
Posted - 15 June 2001 : 12:35:53
|
could you email me your pop_admin_table.asp, I will compare it to mine see if I can figure out why it doen't like it
|
|
|
@tomic
Senior Member
USA
1790 Posts |
|
HuwR
Forum Admin
United Kingdom
20584 Posts |
Posted - 15 June 2001 : 18:18:47
|
Sorry I missed the previous topic, but have not been around much the past few weeks, I thought was the likely problem with this, was just going to check against my copy.
Will update the download file accordingly
|
|
|
didus
Starting Member
Austria
36 Posts |
Posted - 21 June 2001 : 15:58:10
|
hi, this is my pop_admin_table code. I didnīt get a email from snitz the last days, so I havenīt seen the new posts. Thank you for your help. bye
<!--#include file="config.asp"--> <!--#include file="inc_top_short.asp"--> <%
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 & "')") %> <script language="JavaScript"> self.opener.location.href="admin_user_fields.asp"; window.close() </script> <% 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 %> <script language="JavaScript"> self.opener.location.href="admin_user_fields.asp"; window.close() </script>
<% response.end end if %>
<br> <br> <div align="center"><% if request("preview") = "preDel" then %>
<p>Are you sure you want to delete the record?</p> <a href="pop_admin_table.asp?<%=request.querystring%>&emin=Del" >Yes</a> <% Elseif request("preview") = "preNew" then %> <p>Are you sure you want to Add a new record?</p> <a href="pop_admin_table.asp?<%=request.querystring%>&emin=New" >Yes</a> <% End If %>
<a href="javascript:window.close()">No</a> <br> </div></font> </td> </tr> </table>
</BODY> </HTML> <% my_Conn.Close set my_Conn = nothing %>
Edited by - didus on 21 June 2001 15:59:49 |
|
|
HuwR
Forum Admin
United Kingdom
20584 Posts |
Posted - 21 June 2001 : 16:07:29
|
if you look at your post, I have added a set of ( .. )
|
|
|
didus
Starting Member
Austria
36 Posts |
Posted - 21 June 2001 : 16:23:34
|
quote:
if you look at your post, I have added a set of ( .. )
Thanks Iīve do it! in admin_user_fields I have following porblem. The user field canīt be set to enable.
"User Fields are NOT enabled, check the box and press SET to enable"
|
|
|
HuwR
Forum Admin
United Kingdom
20584 Posts |
Posted - 21 June 2001 : 19:29:17
|
if you mail me your config.asp and admin_user_fields.asp I will take a quick look
|
|
|
|
Topic |
|