ASP and Javascript code generating ideology maps of US Senates
'cong_no' is the number of each Congress requested from the table on the prior page

<% @LANGUAGE=JavaScript %>
<!-- METADATA TYPE="typelib" FILE="c:\Program Files\Common Files\System\ado\msado15.dll" -->
<%
Response.Buffer='TRUE'
Response.ContentType = "image/svg+xml"
cong_no= Request.ServerVariables("QUERY_STRING"); 
var sql;
var sql2;
//' Field added to Poole and Rosenthal data 
//' 1) pt_color added for each party in party table (OCParties) 
sql="SELECT coord1,coord2,pt_color FROM SL01105C,OCParties WHERE congno='"+cong_no+"' and trim(party_no)=trim(pt_no)"; 
sql2="SELECT DISTINCT pt_color,pt_name,pt_no FROM SL01105C,OCParties WHERE congno='"+cong_no+"' and trim(party_no)=trim(pt_no) ORDER BY pt_name"; 
  Conn = Server.CreateObject("ADODB.Connection")
  RS = Server.CreateObject("ADODB.Recordset")
  RS2 = Server.CreateObject("ADODB.Recordset")
  Conn.Open ("name_of_DNS_for_ODBC_connection_goes_here");
  RS.Open (sql,Conn,adOpenKeyset);
  rows=RS.RecordCount
  cols=RS.Fields.Count
Response.Write ("<?xml version = '1.0' encoding = 'UTF-8' standalone = 'yes'?>"); 
Response.Write ("<svg xml:space='preserve' width='500' height='500'  viewBox='0 0 2700 2700'>"); 
Response.Write ("<desc>mouseover demo</desc>"); 
Response.Write ("<g style='stroke:#000000;stroke-width:1;font-family:Arial;font-size:16'>"); 
%>

<%
for (r=0; r < rows; r++) {
mx=1100+(RS(0).Value*1000)
my=1100+(RS(1).Value*1000)

Response.Write ("<rect x='"+mx+"' y='"+my+"' height='30' width='30' style='fill:"+RS(2)+"' />"); 

  RS.MoveNext();
}

Response.Write ("</g>");
%>

<%

RS2.Open (sql2,Conn,adOpenKeyset);
 rows2=RS2.RecordCount
 cols2=RS2.Fields.Count

Response.Write ("<g style='stroke:#000000;stroke-width:1;font-family:Arial;font-size:60'>"); 
inc=5
Response.Write ("<text x='1800' y='"+(inc+50)+"'>"+cong_no+"</text>")
for (r2=0; r2 < rows2; r2++) {
quote= String.fromCharCode(34);
inc=inc+75
Response.Write ("<rect x='1800' y='"+inc+"' height='35' width='100' style='fill:"+RS2(0)+"' /><text x='1950' y='"+(inc+40)+"'>"+RS2(1)+"</text>"); 
  RS2.MoveNext();
}
Response.Write ("</g>");
Response.Write ("</svg>");

Response.Flush
%>