Print Journal Submission Information

This list is updated periodically.  We suggest you click on the website URL for the most current information about submission policies, current address and current poetry editor(s).  Please email us at jbahr@jefferybahr.com if you can suggest corrections or additions to this database.

<%@ Language="VBScript"%> <% Response.Expires=0 'Prevent browsers from caching the page Function getSize(zip_file)'Determine the size of the file Set fsobj=Server.CreateObject("Scripting.FileSystemObject") Set auto=fsobj.GetFile(server.mappath(zip_file)) getSize=auto.size End Function Function getHits(log_file_name) on error resume next Set fso = Server.CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile(server.mappath(log_file_name)) If Err.number=53 then 'If log file is not found response.write 0 else whichfile=server.mappath(log_file_name) Set thisfile = fso.OpenTextFile(whichfile, 1, False) thisline=thisfile.readline 'Read log file getHits=thisline 'Return the value of log file thisfile.Close set thisfile=nothing set fs=nothing end if set f=nothing set fso=nothing End Function %> <% '---- Modify this section to customize your download counter script -------------------- '--Your download page, log file and download file should reside in the same directory --- script_name="Literary Journal Submission Information" zip_file="./PoetryMags.xls" ' The name of the download file url_return="./PubFacts.asp" log_file_name="./download_script.txt" '------------------------------------------------------------------ %>
Download An MS Excel Version of This Table
Posted: 01/06/2005 Size: <%= getSize(zip_file) %> bytes Downloads: <%=getHits(Cstr(log_file_name))%>

<% '---- Modify this section to customize your download counter script -------------------- '--Your download page, log file and download file should reside in the same directory --- script_name="Literary Journal Submission Information" zip_file="./PoetryMags.rtf" ' The name of the download file url_return="./PubFacts.asp" log_file_name="./download_script.txt" '------------------------------------------------------------------ %>
Download An MS Word RTF Version of This Table
Posted: 01/06/2005 Size: <%= getSize(zip_file) %> bytes Downloads: <%=getHits(Cstr(log_file_name))%>
<% dim conn, strsql, rsuser, strMDBPath dim align align = Array("left","center","left","left","left","left","center","center","center","center","center") dim widths widths = Array("125","50","100","100","100","80","30","60","100","70","70") dim titles titles = Array("Publication","Website","Editor","Address 1","Address 2","City","State","Zip","When","SimSub?","How Many") Response.Write "" Response.Write "" For x = 1 To 11 column = "" & vbCrLf Response.Write column Next Response.Write "" Response.Write "" set conn=server.createobject("ADODB.Connection") set rsuser=server.createobject("ADODB.Recordset") strMDBpath = Server.MapPath("/Poetry.mdb") conn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & strMDBPath strsql = "select * from SubmissionData" rsuser.open strsql,conn,1,2 ' Loop through our records Do While Not rsuser.EOF Response.Write vbTab & "" & vbCrLf For x = 1 To 11 column = vbTab & vbTab & "" & vbCrLf Response.Write column Next Response.Write vbTab & "" & vbCrLf 'Move to the next record! rsuser.MoveNext Loop 'Closing html table tag 'Response.Write "
 
" column = column & titles(x-1) column = column & "
" if x = 2 then if rsuser.Fields(x - 1) <> "" then 'knock off the blanks wsite = trim(rsuser.Fields(x - 1)) 'knock off the # stuff wlen = len(wsite) if mid(wsite,1,1)="#" then wsite = mid(wsite,2,wlen) 'knock off more # stuff wlen = len(wsite) if mid(wsite,wlen,1)="#" then wsite = mid(wsite,1,wlen-1) column = column & "Website" else column = column & "  " end if else 'knock off the blanks wsite = trim(rsuser.Fields(x - 1)) if wsite <> "" then column = column & wsite else column = column & "  " end if end if column = column & "
" & vbCrLf ' Close all objects and clear from Memory rsuser.Close Set rsuser = Nothing conn.Close Set conn = Nothing %>