Tema: Ayuda
Ver Mensaje Individual
  #1 (permalink)  
Antiguo 21/02/2003, 12:29
Avatar de meru-kun
meru-kun
 
Fecha de Ingreso: noviembre-2002
Ubicación: Madrid
Mensajes: 854
Antigüedad: 22 años, 4 meses
Puntos: 0
Ayuda

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?
__________________
Tu portal de manga y anime.