Ayuda

meru-kun · #1 (**permalink**) 21/02/2003, 12:29

Tengo el siguiente codigo:

Código:

<!--#include file="inc_database.asp" -->
<!--#include file="inc_funciones.asp" -->
<!--#include file="inc_functions.asp" -->
<html>
<head>
<title>Añadir Seccion</title>
</head>
<body>
<%
txtAcc = Request.QueryString("acc")
txtSecc = Request.QueryString("secc")
txtGameID = Request.QueryString("ID")
txtInfo = Request.Form("info")
txtHover = Request.Form("hover")
txtASP = Request.QueryString("ASP")
%>
<%
If txtAcc = "AddNew" Then

 If txtASP = "No" Then
 
  txtInfo = HTMLEncode(txtInfo)
 
 Else
 
 End If
 
response.write txtSecc & txtGameID & txtInfo & txtHover
%>
<%
' ** Dar un valor a ID_SECCION
strSQLCheck = "SELECT ID_SECCION FROM GAMES_SECC WHERE ID_JUEGO=" & txtGameID &" ORDER BY ID_SECCION DESC"
Set MRC = MyConn.Execute(strSQLCheck)
 txtSeccNewID = MRC("ID_SECCION") + 1
MRC.Close
Set MRC = Nothing

strSQLAdd = "SELECT ID_JUEGO, ID_SECCION, SECCION, LINK_SECCION, INFO, AUTOR_ID FROM GAMES_SECC"
 MyRecordset.open strSQLAdd, MyConn, 2,3
  MyRecordset.addnew
   MyRecordset("ID_JUEGO") = txtGameID
   MyRecordset("ID_SECCION") = txtSeccNewID
   MyRecordset("SECCION") = txtSecc
   MyRecordset("LINK_SECCION") = left(3, txtSecc)
   MyRecordset("INFO") = txtHover
   MyRecordset("AUTOR_ID") = session("usrID")
    MyRecordset.Update

%>
<% End If %>
</body>
</html>

Y cuando lo ejecuto me da un error en tiempo de ejecucion:
Error de Microsoft VBScript en tiempo de ejecución error '800a01a8'

Se requiere un objeto: ''

/_index/add_secc.asp, line 39

Justo el error es esta linea:
MyRecordset.open strSQLAdd, MyConn, 2,3

¿Cual es el problema?

urjose · #2 (**permalink**) 21/02/2003, 12:33

Y en que momento creas MyRecordset y MyConn?

meru-kun · #3 (**permalink**) 21/02/2003, 15:39

MyConn esta creado en el archivo inc_database.asp, y my recordset no estsa creado en ninguna parte, pero tengo ese mismo codigo en otras partes de la web y me funciona...

Entonces, para que vaya bien, cambio lo de MyRecordset.open por MyConn.open?

bakanzipp · #4 (**permalink**) 21/02/2003, 16:06

y si hace esto?

Código:

<%
' ** Dar un valor a ID_SECCION
strSQLCheck = "SELECT ID_SECCION FROM GAMES_SECC WHERE ID_JUEGO=" & txtGameID &" ORDER BY ID_SECCION DESC"
Set MRC = MyConn.Execute(strSQLCheck)
 txtSeccNewID = MRC("ID_SECCION") + 1

strSQLAdd = "SELECT ID_JUEGO, ID_SECCION, SECCION, LINK_SECCION, INFO, AUTOR_ID FROM GAMES_SECC"
 MRC.open strSQLAdd, MyConn, ,3
 MRC.addnew
 MRC("ID_JUEGO") = txtGameID
 MRC("ID_SECCION") = txtSeccNewID
 MRC("SECCION") = txtSecc
 MRC("LINK_SECCION") = left(3, txtSecc)
 MRC("INFO") = txtHover
 MRC("AUTOR_ID") = session("usrID")
 MRC.Update

%>
<% End If %>

MRC.Close
Set MRC = Nothing

sino cambio tu codigo po un update... yo no paso este cosa del :AddNew

urjose · #5 (**permalink**) 21/02/2003, 22:54

Creo que debes usar algo asi

-
-
-

Set MyRecordset=Server.CreateObject("ADODB.Recordset")
strSQLAdd = "SELECT ID_JUEGO, ID_SECCION, SECCION, LINK_SECCION, INFO, AUTOR_ID FROM GAMES_SECC"
MyRecordset.open strSQLAdd, MyConn, 2,3
MyRecordset.addnew
MyRecordset("ID_JUEGO") = txtGameID
MyRecordset("ID_SECCION") = txtSeccNewID
MyRecordset("SECCION") = txtSecc
MyRecordset("LINK_SECCION") = left(3, txtSecc)
MyRecordset("INFO") = txtHover
MyRecordset("AUTOR_ID") = session("usrID")
MyRecordset.Update

-
-
-