<%@LANGUAGE="VBSCRIPT"%> <% '// *** Restrict Access To Page: Grant or deny access to this page var MM_authorizedUsers=""; var MM_authFailedURL="login.asp"; var MM_grantAccess=false; if (String(Session("MM_Username")) != "undefined") { if (true || (String(Session("MM_UserAuthorization"))=="") || (MM_authorizedUsers.indexOf(String(Session("MM_UserAuthorization"))) >=0)) { MM_grantAccess = true; } } if (!MM_grantAccess) { var MM_qsChar = "?"; if (MM_authFailedURL.indexOf("?") >= 0) MM_qsChar = "&"; var MM_referrer = Request.ServerVariables("URL"); if (String(Request.QueryString()).length > 0) MM_referrer = MM_referrer + "?" + String(Request.QueryString()); MM_authFailedURL = MM_authFailedURL + MM_qsChar + "accessdenied=" + Server.URLEncode(MM_referrer); Response.Redirect(MM_authFailedURL); } %> <% ' 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 %>