error '80020009'
Ocurrió una excepción.
/pediatriaaldia/forosx/fnew.asp, line 60
-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
la ultima linea es la 60
este es el codigo:
<!--#include file="foro_inc.asp"-->
<%
'================================================= ===================================
Sub TotalForo(idforo, fecha)
' Incrementa en 1 el total de mensajes del foro y añade la fecha del ultimo
Dim rs, SQL
Dim total
set oConn= Server.CreateObject("ADODB.Connection")
oConn.Open (Conn_String)
set rs=Server.CreateObject("ADODB.Recordset" )
SQL="SELECT * FROM Foros WHERE idforo="&idforo&";"
rs.Open SQL, oConn,3,3
total=CInt(rs.Fields("Total"))
total=total+1
rs.Fields("Total")=total
rs.Fields("Ultimo")=fecha
rs.Update
rs.Close
End Sub
'================================================= ===================================
Dim oConn, rs, SQL
Dim idmensaje
Dim idforo, idcabecera, autor, email, tema, cuerpo, f
' indica si debo o no insertar en bd
Dim ok
ok=True
f=now()
cuerpo=Request.Form("cuerpo")
idforo=CInt(Request.Form("IdForo"))
idcabecera=CInt(Request.Form("IdCabecera" ;))
autor=CStr(Request.Form("Autor"))
email=CStr(Request.Form("Email"))
tema=CStr(Request.Form("Tema"))
if Len(tema)>100 then
tema=Left(tema, 100)
end if
'añado mensaje a bd
if ok then
set oConn= Server.CreateObject("ADODB.Connection")
oConn.Open (Conn_String)
set rs=Server.CreateObject("ADODB.Recordset" )
'Consulta para crear nueva cabecera si es = a 0
If idcabecera=0 Then
' Si idcabecera=0 quiere decir que el mensaje es una pregunta
quees="p"
Dim cabecera
set rs2=Server.CreateObject("ADODB.Recordset" ;)
SQL2="SELECT * FROM mensajes ORDER BY idhead DESC"
rs2.Open SQL2, oConn, 2, 2
cabecera=CInt(rs2.fields("idhead"))
