A ver, a ver... Nuevas funciones:
opcion: 1,2 o 3 representa a categoria(1), foro(2), tema(3)
nombre: nombre de la categoria, foro o tema
descripcion: descripcion de la categoria, foro o tema.
id: representa, en el segundo caso (foro), a la variable que determina a que categoria pertenece el foro, en el tercer caso(tema), representa a la variable que determina a que foro pertenece el tema.
idcond: que señala el id del registro seleccionado para modificar
Funcion crear(opcion, nombre, descripcion, id):
Código:
<%
Dim opcion, nombre, descripcion, id, idcond
Function crear(opcion, nombre, descripcion, id)
If opcion="1" Then ' Si se desea crear una categoria
sql="Insert Into categorias (titulo_cat) values ('"&nombre&"')"
ElseIf opcion="2" Then 'Si se desea crear un foro
sql="Insert Into foros (id_cat,titulo_foro,desc_foro) values ('"&id&"','"&nombre&"','"&descripcion&"')"
ElseIf opcion="3" Then 'Si se desea crear un tema
sql="Insert Into temas (id_foro,titulo_tema) values ('"&id&"','"&nombre&"')"
End If
End Function
%>
Código:
<%
Function modificar(opcion, nombre, descripcion, id, idcond)
If opcion="1" Then ' Si se desea modificar una categoria
sql="Update categorias Set titulo_cat='"&nombre&"' Where id_cat='"&idcond&"'"
ElseIf opcion="2" Then 'Si se desea modificar un foro
sql="Update foros Set id_cat='"&id&"', titulo_foro='"&nombre&"', desc_foro='"&descripcion&"' Where id_foro='"&idcond&"'"
ElseIf opcion="3" Then 'Si se desea modificar un tema
sql="Update temas Set id_foro='"&id&"', titulo_tema='"&nombre&"' Where id_tema='"&idcond&"'"
End If
End Function
%>
Código:
<%
If opcion="1" Then ' Si se desea modificar una categoria
sql="Delete From categorias Where id_cat='"&idcond&"'"
ElseIf opcion="2" Then 'Si se desea modificar un foro
sql="Delete From foros Where id_foro='"&idcond&"'"
ElseIf opcion="3" Then 'Si se desea modificar un tema
sql="Delete From temas Where id_tema='"&idcond&"'"
End If
End Function
%>