| 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 |
|
Topic Locked
