convert asp with vbscript subroutine to

Posted on 2013-10-30
Last Modified: 2013-10-31
I have a asp page with vbscript subroutine in the page, it display a graphic bar chart.  I would like convert this page to page, but I have problem, I moved the asp page to aspx, it gave me lots of errors, because the vbscript subroutine is combined with asp code altogether.  Below is my asp page, how to convert to .net?  Hope someone can give me some help.
Dim objConn, objRS, strSQL, Sum, objSum, strMonth, strYear, objstrMonth, objstrYear
Set objConn=Server.CreateObject("ADODB.Connection")
objConn.Open UserConnString

Set objRS=Server.CreateObject("ADODB.Recordset")
strsql="select DatePart(mm, task_dateadded) as strMonth, cast(DatePart(yyyy, task_dateadded) as varchar(4)) as strYear, count (task_code) as Sum from task group by DatePart(mm,task_dateadded), cast(DatePart(yyyy,task_dateadded) as varchar(4)) order by strYear desc, strMonth desc" strsql, objConn

Set objSum     =  objRS("Sum")
Set objstrMonth  =  objRS("strMonth")
Set objstrYear   =  objRS("strYear")



<%sub displayverticalgraph(strtitle,strytitle,strxtitle,avalues,alabels)

const GRAPH_HEIGHT 	= 300 	 		
const GRAPH_WIDTH 	= 400   		
const GRAPH_SPACING 	= 0	
const GRAPH_BORDER 	= 0	 		
const GRAPH_BARS 	= 2     		
const L_LABEL_SEPARATOR = "|"			
const R_LABEL_SEPARATOR = "|"			
const LABELSIZE 	= -4			
const INTIMGBORDER 	= 1  	 		
Const ALT_TEXT		= 4			

agraph_bars = array("dark_green","red","gold","blue","pink","light_blue","light_gold","orange","green","purple")

intmax = 0

for i = 0 to ubound(avalues)
if  cint(intmax) < cint(avalues(i)) then  intmax = cint(avalues(i)) 
if uselowvalue then 
intmin = avalues(0)
for i = 0 to ubound(avalues)
if  cint(intmin) > cint(avalues(i)) then  intmin = cint(avalues(i)) 
end if

graphmultiplier = round(graph_height-100/intmax)

imgwidth = round(300/(ubound(avalues)+1))
if imgwidth > 16 then imgwidth = 16 


<table border =<%=GRAPH_BORDER%> width:100% height=<%=graph_height%>>

    <td rowspan=3 valign="middle"><font face="Arial, Helvetica, sans-serif" size="-1">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<%=strytitle%></font></td>
    <td colspan=<%=ubound(avalues)+2%> height=50 align="center">
    <strong><font face="Verdana, Arial, Helvetica, sans-serif" size="3" color="#990000"><%=strtitle%></font></strong></td>
	<% count = 0%>
	    <table border=<%=GRAPH_BORDER%> cellpadding = 0 cellspacing = <%=graph_spacing%>>
	     <TD valign="baseline" cellpadding = "0" cellspacing="0">
		  <table border=<%=GRAPH_BORDER%> height="<%=graphmultiplier+8%>" cellpadding = "0" cellspacing="0" align="right">
	<td height="50%" valign="top" align="right"><font face="Arial, Helvetica, sans-serif" size="-1"><%=intmax%></font></td>
	<td height="50%" valign="bottom" align="right">
		 <%if uselowvalue then
	             response.write cstr(intmin)
		     response.write "<font face='Arial, Helvetica, sans-serif' size='-1'>0</font>"
		   end if
	     <td valign="baseline" align="right"><img src="../images/yaxis.gif" height="300" align="absbottom">
	     for i = 0 to ubound(avalues)
	      strgraph = agraph_bars(count)
	       	if alt_text = 1 then 
		    stralt = alabels(i)
		  elseif alt_text = 2 then 
		    stralt = avalues(i)
		  elseif alt_text = 3 then 
		    stralt = alabels(i) &" - "  &avalues(i)
		  elseif alt_text = 4 then   
		    stralt = round(avalues(i) /intmax  *100,2) &"%"
		 end if     
	        if uselowvalue then  %>
                  <td valign="bottom" align="center">
	          <img src="../images/<%=strgraph%>.gif" height="<%=round((avalues(i)-intmin)/intmax*graphmultiplier,0)%>" width="<%=imgwidth%>" alt="<%=strAlt%>" border="<%=intimgborder%>"></td>
	          <td valign="bottom" align="center">
	          <img src="../images/<%=strgraph%>.gif" height="<%=round(avalues(i)/intmax*graphmultiplier,0)%>" width="<%=imgwidth %>" alt="<%=strAlt%>" border="<%=intimgborder%>"></td>
	       <%end if 
	        if count = graph_bars-1 then 
	          count = 0 
	          count = count + 1
	        end if		
		  	 response.write "<td width='50'>&nbsp;</td></tr><tr><td width=8></td><td></td><td colspan=" &(ubound(avalues)+1) &" valign='top'>" _
			 &"<img src='../images/xaxis.gif' width='100%' height='1' align='align='left'></td></tr>"
			 response.write "<tr><td width=8><font face='Arial, Helvetica, sans-serif' size='-4'><b>Task Opened</font></b></td><td>&nbsp;</td>"
			 for i=0 to ubound(avalues)
			 response.write"<td align='center'><font face='Arial, Helvetica, sans-serif' size='-4'>"&avalues(i)&"</font></td>"
	         if showlabels then %>
	         <tr><td width=8 height=1><font face="Arial, Helvetica, sans-serif" size="-4"><b>Month</b></font></td><td>&nbsp;</td>
	            <%for i = 0 to ubound(avalues)%>
	               <td valign="bottom" width=<%=imgwidth%> >
				   <font size=
	               <%=labelsize &">" &l_label_separator &alabels(i) &r_label_separator %></font></td>
	     <%end if%>
    	<tr><td colspan=<%=ubound(avalues)+3%> height=50 align="center"><font face="Arial, Helvetica, sans-serif" size="-1"><%=strxtitle%></font></td>

<%end sub %>


Dim aMonthValues()
Dim aMonthNames() 
Dim Month() 
Dim Year() 

i = 0
Do While Not objRS.EOF
    i = i + 1

ReDim preserve aMonthValues(i)
Redim preserve aMonthNames(i)
Redim preserve Month(i)
Redim preserve Year(i)

Do Until objRS.EOF
aMonthNames(x)=Month(x) &"/" &Year(x)

displayverticalgraph "Monthly Report","<img src='axis.gif'>","Month",aMonthValues,aMonthNames 

set objRS=nothing

set objConn=nothing


Open in new window

Question by:5281
LVL 28

Accepted Solution

sybe earned 500 total points
ID: 39613476
Why do you want to convert this? If it works, then let it be.

If you really need in in .Net, then best is to rewrite this from scratch.

I see some quick things that won't work in

- you can not mix html and script in a functionj in .Net as you could in classic asp. But you can have a function that creates and returns a HTML string, or you could use an <asp:Repeater>

- Some stuff is not or not directly supported in Like ADODB.RecordSet, it can be supported in .Net, but has its own classes which are better fit. Also the function "cint()" is non-existing in vb.Net.

- The code isn't very well written. Who counts records in a recordset by looping through all records?

- Please use some css in stead of the <font> tag

Featured Post

Master Your Team's Linux and Cloud Stack

Come see why top tech companies like Mailchimp and Media Temple use Linux Academy to build their employee training programs.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

More often than not, we developers are confronted with a need: a need to make some kind of magic happen via code. Whether it is for a client, for the boss, or for our own personal projects, the need must be satisfied. Most of the time, the Framework…
Parsing a CSV file is a task that we are confronted with regularly, and although there are a vast number of means to do this, as a newbie, the field can be confusing and the tools can seem complex. A simple solution to parsing a customized CSV fi…
This Micro Tutorial will teach you how to censor certain areas of your screen. The example in this video will show a little boy's face being blurred. This will be demonstrated using Adobe Premiere Pro CS6.
Microsoft Active Directory, the widely used IT infrastructure, is known for its high risk of credential theft. The best way to test your Active Directory’s vulnerabilities to pass-the-ticket, pass-the-hash, privilege escalation, and malware attacks …

770 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question