<%@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 qryFileData2 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 = "15" If (Request("MM_EmptyValue") <> "") Then rs_hitcount__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs_hitcount Dim rs_hitcount_cmd Dim rs_hitcount_numRows Set rs_hitcount_cmd = Server.CreateObject ("ADODB.Command") rs_hitcount_cmd.ActiveConnection = MM_conn_heroforge_STRING rs_hitcount_cmd.CommandText = "SELECT * FROM counters WHERE id = ?" rs_hitcount_cmd.Prepared = true rs_hitcount_cmd.Parameters.Append rs_hitcount_cmd.CreateParameter("param1", 5, 1, -1, rs_hitcount__MMColParam) ' adDouble Set rs_hitcount = rs_hitcount_cmd.Execute 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 4E Files
Locations of visitors to this page

4E File Repository

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

A standalone tool HeroLab for 4E (and more) can be downloaded from here

Any website problems, suggestions or additions just email me.

  View 3.5 Files     View Pathfinder RPG 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) < 7 Then%>
<%If rs_HeroForge.Fields.Item("filetype").Value = "HeroForge & SpellForge" Then%> "> <%ElseIf rs_HeroForge.Fields.Item("filetype").Value = "HeroForge" 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" Then%> "> <%ElseIf rs_HeroForge.Fields.Item("filetype").Value = "MonsterForge" 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)%>) 

<% rs_HeroForge.Close() Set rs_HeroForge = Nothing %> <% rs_hitcount.Close() Set rs_hitcount = Nothing %>