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?