<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rs_HeroForge Dim rs_HeroForge_cmd Dim rs_HeroForge_numRows Set rs_HeroForge_cmd = Server.CreateObject ("ADODB.Command") rs_HeroForge_cmd.ActiveConnection = MM_conn_heroforge_STRING rs_HeroForge_cmd.CommandText = "SELECT * FROM qryFileData1 WHERE Status <> 9 or ReleaseDate > (now()-90) ORDER BY Status ASC, ReleaseDate DESC, filetype ASC" rs_HeroForge_cmd.Prepared = true Set rs_HeroForge = rs_HeroForge_cmd.Execute rs_HeroForge_numRows = 0 %> <% ' TW Download Counter TW_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then TW_editAction = TW_editAction & "?" & Request.QueryString End If TW_abortEdit = false TW_editQuery = "" %> <% ' TW_Downloadcount If (CStr(Request("TW_update")) <> "" And CStr(Request("TW_recordId")) <> "") Then Session("svdlnumber") = cStr(Request("redirectionfield")) TW_editConnection = MM_conn_HeroForge_STRING TW_editTable = "filedata" TW_editColumn = "id" TW_recordId = "" + Request.Form("TW_recordId") + "" TW_editRedirectUrl = "svdlnumber" TW_fieldsStr = "dlnumberupdateField|value" TW_columnsStr = "dlnumber|none,none,NULL" TW_fields = Split(TW_fieldsStr, "|") TW_columns = Split(TW_columnsStr, "|") For i = LBound(TW_fields) To UBound(TW_fields) Step 2 TW_fields(i+1) = CStr(Request.Form(TW_fields(i))) Next If (TW_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, TW_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then TW_editRedirectUrl = TW_editRedirectUrl & "?" & Request.QueryString Else TW_editRedirectUrl = TW_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' TW_Downloadcount If (CStr(Request("TW_update")) <> "" And CStr(Request("TW_recordId")) <> "") Then TW_editQuery = "update " & TW_editTable & " set " For i = LBound(TW_fields) To UBound(TW_fields) Step 2 FormVal = TW_fields(i+1) TW_typeArray = Split(TW_columns(i+1),",") Delim = TW_typeArray(0) If (Delim = "none") Then Delim = "" AltVal = TW_typeArray(1) If (AltVal = "none") Then AltVal = "" EmptyVal = TW_typeArray(2) If (EmptyVal = "none") Then EmptyVal = "" If (FormVal = "") Then FormVal = EmptyVal Else If (AltVal <> "") Then FormVal = AltVal ElseIf (Delim = "'") Then ' escape quotes FormVal = "'" & Replace(FormVal,"'","''") & "'" Else FormVal = Delim + FormVal + Delim End If End If If (i <> LBound(TW_fields)) Then TW_editQuery = TW_editQuery & "," End If TW_editQuery = TW_editQuery & TW_columns(i) & " = " & FormVal Next TW_editQuery = TW_editQuery & " where " & TW_editColumn & " = " & TW_recordId If (Not TW_abortEdit) Then ' execute the update Set TW_editCmd = Server.CreateObject("ADODB.Command") TW_editCmd.ActiveConnection = MM_conn_HeroForge_STRING TW_editCmd.CommandText = TW_editQuery TW_editCmd.Execute TW_editCmd.ActiveConnection.Close If (TW_editRedirectUrl <> "") Then Response.Redirect(cStr(Session("svdlnumber"))) ' Response.Redirect(TW_editRedirectUrl) End If End If End If %> <% Dim rs_hitcount__MMColParam rs_hitcount__MMColParam = "3" If (Request("MM_EmptyValue") <> "") Then rs_hitcount__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs_hitcount Dim rs_hitcount_numRows Set rs_hitcount = Server.CreateObject("ADODB.Recordset") rs_hitcount.ActiveConnection = MM_conn_heroforge_STRING rs_hitcount.Source = "SELECT * FROM counters WHERE id = " + Replace(rs_hitcount__MMColParam, "'", "''") + "" rs_hitcount.CursorType = 0 rs_hitcount.CursorLocation = 2 rs_hitcount.LockType = 1 rs_hitcount.Open() rs_hitcount_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rs_HeroForge_numRows = rs_HeroForge_numRows + Repeat1__numRows %> <% Response.CacheControl = "no-cache" %> <% Response.AddHeader "Pragma", "no-cache" %> <% Response.Expires = -1 %> D&D 3.5, 4E, Pathfinder RPG and Variants File
 

HeroForge 3.5, 4E and Pathfinder RPG File Repository

  This page has been viewed <%=(rs_hitcount.Fields.Item("hits").Value)%> times  

The Heroforge/SpellForge Project is a community group effort by individuals freely donating their time and resources to see the development of the HeroForge Character Manager program.
Contributions by others are also hosted here: MonsterForge, DM's Assistant, CthulhuForge, DragonForge, Star Wars HeroForge, Star*Forge, Psi*Forge, Kalamar, Pathfinder and more.
Any website problems, suggestions or additions just email me.
  View 3.5 Files     View Pathfinder RPG Files     View 4E Files  

The files are in Microsoft Excel format and require Microsoft Excel 2003 or later.
Want to modify HeroForge for you own use?
Use the Structure document as your guide. <% rs_HeroForge.Close() Set rs_HeroForge = Nothing %> <% rs_hitcount.Close() Set rs_hitcount = Nothing %>