<%@LANGUAGE="VBSCRIPT"%> <% ' *** Restrict Access To Page: Grant or deny access to this page MM_authorizedUsers="" MM_authFailedURL="login.asp" MM_grantAccess=false If Session("MM_Username") <> "" Then If (true Or CStr(Session("MM_UserAuthorization"))="") Or _ (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then MM_grantAccess = true End If End If If Not MM_grantAccess Then MM_qsChar = "?" If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" MM_referrer = Request.ServerVariables("URL") if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString() MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer) Response.Redirect(MM_authFailedURL) End If %> <% ' Some Global Functions Function ChkString(string) if String = "" then string = " " string = replace(string, "'", "''") ChkString = string End Function %> Add <% ' Procedure to add A Category to the database Sub add_Cat ' Has the form been filled in? If request.QueryString("do_it") = "true" then set my_conn= Server.CreateObject("ADODB.Connection") my_Conn.Open ConnString StrSQl = "INSERT INTO category (cat_name) values ('" & ChkString(Request.Form("cat")) & "')" my_conn.Execute StrSql my_conn.close set my_conn = nothing Response.Write "

Category Added

" Else %>

Agregar una Categoría

Categoría a Agregar

<% End If End Sub ' Procedure to Add a Forum to the database Sub add_forum set my_conn= Server.CreateObject("ADODB.Connection") my_Conn.Open ConnString ' Has the form been filled in? If request.QueryString("do_it") = "true" then StrSQl = "INSERT INTO Forum (f_name, F_Description, F_Cat, F_Moderator ) values ('" StrSql = StrSql & Request.Form("name") & "', '" StrSql = StrSql & Request.Form("description") & "', " StrSql = StrSql & Request.Form("category") & ", " StrSql = StrSql & Request.Form("moderator") & ")" my_conn.Execute StrSql my_conn.close set my_conn = nothing Response.Write "

Categorķa Agregada

" Else %>

Agregar Foro

Nombre del Foro:
Descripción del Foro:
Categoría del Foro:
Moderador del Foro:
<% End If End Sub %> <% Select Case Request.QueryString("mode") case "category" call add_Cat case "forum" call add_forum case Else Response.Write "Error" End Select %>