<% scriptname = request.servervariables("SCRIPT_NAME") scriptname = replace(scriptname, "/magazine", "") vol = replace(scriptname, ".htm", "") if vol = empty then vol = 1 end if response.write "" sql = "SELECT headline, issueno, volno, `type`, author FROM `articles` WHERE VolNo=" & vol & " order by issueno desc, priority asc;" Set conn = Server.CreateObject("ADODB.Connection") connstr = "Driver={MySQL ODBC 5.3 Unicode Driver}; Server=173.165.122.130; Port=3306; Option=0; Socket=; Stmt=; Database=insearch; Uid=mysqldata1; Pwd=msd1689;Option=16387;" conn.Open (connstr) Set rs1 = Server.CreateObject("ADODB.Recordset") rs1.Open sql, conn, 3, 3 j = -1 IssueNo = cint(rs1.fields("IssueNo").value) VolNo = rs1.fields("VolNo").value headline = rs1.fields("headline").value author = rs1.fields("author").value type1 = rs1.fields("type").value oldIssueNo = cint(rs1.fields("IssueNo").value) do until rs1.EOF i = i + 1 j = j + 1 IssueNo = cint(rs1.fields("IssueNo").value) VolNo = rs1.fields("VolNo").value headline = rs1.fields("headline").value author = rs1.fields("author").value type1 = rs1.fields("type").value if VolNo = 1 then fl = IssueNo & "issue.htm" else fl = VolNo & "v" & IssueNo & "issue.htm" end if 'response.write "i: " & i & " j: " & j & " oi: " & oldIssueNO & " is:" & IssueNo & "
" & vbcrlf if IssueNo <> oldIssueNo then 'response.write "in
" & vbcrlf 'outstr = replace(outstr, "rspn", j) response.write "" & vbcrlf & "" & vbcrlf j = 0 oldIssueNo = cint(IssueNo) outstr = outstr & "Vol. " & VOlNo & " / Issue " & IssueNo & "" & vbcrlf outstr = outstr & "" & vbcrlf outstr = outstr & "" & vbcrlf outstr = outstr & "" & vbcrlf outstr = outstr & "" elseif i = 1 then outstr = outstr & "Vol. " & VOlNo & " / Issue " & IssueNo & "" & vbcrlf outstr = outstr & "" & vbcrlf outstr = outstr & "" & vbcrlf outstr = outstr & "" & vbcrlf outstr = outstr & "" else outstr = outstr & "" & vbcrlf outstr = outstr & "" & vbcrlf outstr = outstr & "" & vbcrlf outstr = outstr & "" & vbcrlf outstr = outstr & "" & vbcrlf end if %> <% rs1.movenext if i > 200 then exit do end if loop j = j +1 response.write "" & vbcrlf & "" & vbcrlf response.write "
" & vbcrlf & outstr & vbcrlf outstr = "" response.write "

" & headline & " " & author & " " & type1 & " 
" & headline & " " & author & " " & type1 & " 
" & vbcrlf outstr = outstr & " " & headline & " " & vbcrlf outstr = outstr & "" & vbcrlf outstr = outstr & " " & author & " " & vbcrlf outstr = outstr & "" & vbcrlf outstr = outstr & " " & type1 & " " & vbcrlf outstr = outstr & "
" & vbcrlf & outstr & vbcrlf response.write "

" %>