%@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 = "14" 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 %>HeroForge 3.5 and Variants File RepositoryThis page has been viewed <%=(rs_hitcount.Fields.Item("hits").Value)%> timesThe 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. |
View Pathfinder RPG Files | View 4E Files |
Click to Download |
Version |
Size |
Release Date |
Home Website |
Version Downloads (Total Downloads) |
||
<% If (rs_HeroForge.Fields.Item("Status").Value) < 8 Then%>
|
<%=(rs_HeroForge.Fields.Item("Version").Value)%> |
<%Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")
objFile = Request.ServerVariables("SCRIPT_NAME")
FilePath = Server.MapPath("\")
FilePath = FilePath & "\heroforge\downloads\" & (rs_HeroForge.Fields.Item("filename").Value)
'FilePath = (rs_HeroForge.Fields.Item("filelocation").Value) & (rs_HeroForge.Fields.Item("filename").Value)
'Response.Write(FilePath)
If objFileSystem.FileExists(FilePath) then
Set objFileSize = objFileSystem.GetFile(FilePath)
objFileSizeK = Round(((objFileSize.Size) / 1024),0)
objFileSizeM = Round(((objFileSize.Size) / 1024 / 1024),1)
objFileSizeM = FormatNumber(objFileSizeM, 1)
If objFileSizeK <1024 then
Response.Write(objFileSizeK & " Kb")
Else
Response.Write(objFileSizeM & " Mb")
End If
End If%>
|
<%= FormatDate("%d %M %y",(rs_HeroForge.Fields.Item("ReleaseDate").Value)) %> |
<%If (rs_HeroForge.Fields.Item("Status").Value) < 8 Then%>
<%If (rs_HeroForge.Fields.Item("homewebsite").Value) <> "" Then%>
<%Else%> | <%=(rs_HeroForge.Fields.Item("dlnumber").Value)%> (<%=(rs_HeroForge.Fields.Item("SumOfdlnumber").Value)%>) |
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
%>