<%@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 qryFileData3 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 = "19" 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 %> Pathfinder RPG Files
Locations of visitors to this page

Pathfinder RPG File Repository

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

The PathForge Project is a community group effort by individuals freely donating their time and resources to see the development of the Pathfinder Character Manager program.
Any website problems, suggestions or additions just email me.
PathForge Yahoo Group

from

  View 3.5 Files     View 4E Files  
<% While ((Repeat1__numRows <> 0) AND (NOT rs_HeroForge.EOF)) %> <%If (rs_HeroForge.Fields.Item("Status").Value) < 8 Then%> <%If (rs_HeroForge.Fields.Item("homewebsite").Value) <> "" Then%> <%Else%> <%End If%> <%Else%> <%End If%> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rs_HeroForge.MoveNext() Wend %>
Click to Download
 Version 
 Size 
 Release 
 Date 
 Home 
 Website 
 Version Downloads 
  (Total Downloads) 
<% If (rs_HeroForge.Fields.Item("Status").Value) < 8 Then%>
<%If rs_HeroForge.Fields.Item("filetype").Value = "Pathfinder-sCoreForge" Then%> "> <%ElseIf rs_HeroForge.Fields.Item("filetype").Value = "HeroForge & SpellForge" Then%> "> <%ElseIf rs_HeroForge.Fields.Item("status").Value = 3 Then%> "> <%ElseIf rs_HeroForge.Fields.Item("filetype").Value = "HeroForge Updater" Then%> "> <%ElseIf rs_HeroForge.Fields.Item("filetype").Value = "SpellForge Pathfinder" Then%> "> <%ElseIf rs_HeroForge.Fields.Item("filetype").Value = "SpellForge Updater" Then%> "> <%ElseIf rs_HeroForge.Fields.Item("filetype").Value = "Pathfinder RPG adVance" Then%> "> <%ElseIf rs_HeroForge.Fields.Item("filetype").Value = "Pathfinder-sCoreSpell" Then%> "> <%Else%> "> <%End If%> +1"> =Now()"> /<%=(rs_HeroForge.Fields.Item("filename").Value)%>"> "> <%End If%> <% If (rs_HeroForge.Fields.Item("Status").Value) > 7 Then%> <%=(rs_HeroForge.Fields.Item("filetype").Value)%> <%End If%>
 <%=(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)) %>   
target="_blank">Open Link
 
 
 <%=(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 %>