%@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 %>4E File RepositoryThis page has been viewed <%=(rs_hitcount.Fields.Item("hits").Value)%> times |
View 3.5 Files | View Pathfinder RPG Files |
Click to Download |
Version |
Size |
Release Date |
Home Website |
Version Downloads (Total Downloads) |
||
<% If (rs_HeroForge.Fields.Item("Status").Value) < 7 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)%>) |
<% rs_HeroForge.Close() Set rs_HeroForge = Nothing %> <% rs_hitcount.Close() Set rs_hitcount = Nothing %>