converting from asp to c#

Question

2.00/5 (2 votes)

See more:

hi....i want to convert the asp page to c# 2.0, pls any one help me on this...

my asp code is below....

XML

<%@ Language=VBScript%>
<%
dim objconn,objrs,strq,strconn,objrs1,strq1,objrs2,strq2,objrs3
set objconn=server.createobject("Adodb.connection")
strconn="Data source=operations;user id=hr;password=inghr01;"
objconn.Open strconn
'strq="select grc.*, Lsurname 'MedicalProviderName' from grc join clntpf on (Code=clntnum) where [year]=2000 and code=" & "'" & request.form("providercode") & "'"
'strq1="select * from grc1 where [year]=2003 and mergecode=" & "'" & request.form("providercode") & "'"
'strq2="select * from grc1 where [year]=2004 and mergecode=" & "'" & request.form("providercode") & "'"
'set objrs=objconn.Execute(strq)
'set objrs1=objconn.Execute(strq1)
'set objrs2=objconn.Execute(strq2)

response.write("IN")
response.end

'strq="select grc.*, Lsurname 'MedicalProviderName',CLTADDR01,CLTADDR02,CLTADDR03,CLTADDR04,CLTADDR05   from grc join grp400.dbo.clntpf on (Code=clntnum) where [year]=2007 and code='" & request.querystring("code") & "'"
strq="select grc.*, Lsurname 'MedicalProviderName',CLTADDR01,CLTADDR02,CLTADDR03,CLTADDR04,CLTADDR05     from grc join grp400.dbo.clntpf on (Code=clntnum) where [year]=2008 and code='" & request.querystring("code") & "'"
strq1="select grc.*, Lsurname 'MedicalProviderName',CLTADDR01,CLTADDR02,CLTADDR03,CLTADDR04,CLTADDR05    from grc join grp400.dbo.clntpf on (Code=clntnum) where [year]=2009 and code='" & request.querystring("code") & "'"
strq2="select grc.*, Lsurname 'MedicalProviderName',CLTADDR01,CLTADDR02,CLTADDR03,CLTADDR04,CLTADDR05    from grc join grp400.dbo.clntpf on (Code=clntnum) where [year]=2010 and code='" & request.querystring("code") & "'"

'strq2="select grc.*, Lsurname 'MedicalProviderName',CLTADDR01,CLTADDR02,CLTADDR03,CLTADDR04 ,CLTADDR05   from grc join clntpf on (Code=clntnum) where [year]=2003 and code='" & request.querystring("code") & "'"
set objrs=objconn.Execute(strq)
set objrs1=objconn.Execute(strq1)
set objrs2=objconn.Execute(strq2)
set objrs3=objconn.Execute("Select * from rclmexttrandate")

if objrs.eof then
response.redirect "../hospitalreportcard/search1.asp"
end if



%>
<html>
<head>
</head>
response.write("IN")
RESPONSE.END
<body style="text-align: center">
<a href="reportcard1.asp?code=<%=objrs("code")%>" target="_blank">Print</a>

<p align="center"><font face="Arial"><b><%response.write ucase(objrs("medicalprovidername"))%></b><br>
<font size=1><%response.write ucase(trim(objrs("CLTADDR01")))%></font><br>
<font size=1><%response.write ucase(trim(objrs("CLTADDR02")))%>&nbsp;<%response.write ucase(trim(objrs("CLTADDR03")))%></font><br>
<font size=1><%response.write ucase(trim(objrs("CLTADDR04")))%>&nbsp;<%response.write ucase(trim(objrs("CLTADDR05")))%>


<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="96%" id="AutoNumber4">

<tr>
    <td width="25%">
    <p align="center"><font face="Arial"><b>YEAR</b></font></td>

    <td width="25%"><p align="center"><font face="Arial"><u><b>2008</b></u></font></p></td>
    <td width="25%"><p align="center"><font face="Arial"><u><b>2009</b></u></font></p></td>
    <td width="25%"><p align="center"><font face="Arial"><u><b>2010 (YTD)</b></u></font></p></td>
  </tr>

  <tr>
    <td width="25%"><font face="Arial"><b>H</b></font><b>ospitalisation</b></td>
    <td width="25%">&nbsp;</td>
    <td width="25%">&nbsp;</td>
    <td width="25%">&nbsp;</td>
  </tr>
  <tr>
    <td width="25%"><font face="Arial">&nbsp; Total Incurred</font></td>
    <td width="25%"><p align="center"><font face="Arial">&nbsp; RM <%response.write formatnumber(objrs("HSIncurred"),0)%></font></p></td>
    <td width="25%"><p align="center"><font face="Arial">&nbsp; RM <%response.write formatnumber(objrs1("HSIncurred"),0)%></font></p></td>
    <td width="25%"><p align="center"><font face="Arial">&nbsp; RM <%response.write formatnumber(objrs2("HSIncurred"),0)%></font></p></td>
  </tr>
  <tr>
    <td width="25%"><font face="Arial">&nbsp; Total no of admissions</font></td>
    <td width="25%"><p align="center"><font face="Arial">&nbsp; <%response.write objrs("Noofad")%></font></td>
    <td width="25%"><p align="center"><font face="Arial">&nbsp; <%response.write objrs1("Noofad")%></font></td>
    <td width="25%"><p align="center"><font face="Arial">&nbsp; <%response.write objrs2("Noofad")%></font></td>
  </tr>
  <tr>
    <td width="25%"><font face="Arial">&nbsp; Average cost per admission</font></td>
    <td width="25%"><p align="center"><font face="Arial">&nbsp; RM <%response.write formatnumber(objrs("Avgcost"),0)%></font></td>
    <td width="25%"><p align="center"><font face="Arial">&nbsp; RM <%response.write formatnumber(objrs1("Avgcost"),0)%></font></td>
    <td width="25%"><p align="center"><font face="Arial">&nbsp; RM <%response.write formatnumber(objrs2("Avgcost"),0)%></font></td>
  </tr>
  <tr>
    <td width="25%"><font face="Arial">&nbsp; Average length of stay</font></td>
    <td width="25%"><p align="center"><font face="Arial">&nbsp; <%response.write objrs("AvgLOS")%> days</font></td>
    <td width="25%"><p align="center"><font face="Arial">&nbsp; <%response.write objrs1("AvgLOS")%> days</font></td>
    <td width="25%"><p align="center"><font face="Arial">&nbsp; <%response.write objrs2("AvgLOS")%> days</font></td>
  </tr>
  <tr>
    <td width="25%">&nbsp;</td>
    <td width="25%">&nbsp;</td>
    <td width="25%">&nbsp;</td>
    <td width="25%">&nbsp;</td>
  </tr>
  <tr>
    <td width="25%"><font face="Arial">&nbsp; No of surgical admission</font></td>
    <td width="25%"><p align="center"><font face="Arial">&nbsp; <%response.write objrs("NoofSur")%></font></td>
    <td width="25%"><p align="center"><font face="Arial">&nbsp; <%response.write objrs1("NoofSur")%></font></td>
    <td width="25%"><p align="center"><font face="Arial">&nbsp; <%response.write objrs2("NoofSur")%></font></td>
  </tr>
  <tr>
    <td width="25%"><font face="Arial">&nbsp; Average cost per admission</font></td>
    <td width="25%"><p align="center"><font face="Arial">&nbsp; RM <%response.write formatnumber(objrs("AVGCostSur"),0)%></font></td>
    <td width="25%"><p align="center"><font face="Arial">&nbsp; RM <%response.write formatnumber(objrs1("AVGCostSur"),0)%></font></td>
    <td width="25%"><p align="center"><font face="Arial">&nbsp; RM <%response.write formatnumber(objrs2("AVGCostSur"),0)%></font></td>
  </tr>
    <tr>
    <td width="25%">&nbsp;</td>
    <td width="25%">&nbsp;</td>
    <td width="25%">&nbsp;</td>
    <td width="25%">&nbsp;</td>
  </tr>
  <tr>
    <td width="25%"><font face="Arial">&nbsp; No of non surgical admission</font></td>
    <td width="25%"><p align="center"><font face="Arial">&nbsp; <%response.write objrs("NoofNonSur")%></font></td>
    <td width="25%"><p align="center"><font face="Arial">&nbsp; <%response.write objrs1("NoofNonSur")%></font></td>
    <td width="25%"><p align="center"><font face="Arial">&nbsp; <%response.write objrs2("NoofNonSur")%></font></td>
  </tr>
  <tr>
    <td width="25%"><font face="Arial">&nbsp; Average cost per admission</font></td>
    <td width="25%"><p align="center"><font face="Arial">&nbsp; RM <%response.write formatnumber(objrs("AVGCostNonSur"),0)%></font></td>
    <td width="25%"><p align="center"><font face="Arial">&nbsp; RM <%response.write formatnumber(objrs1("AVGCostNonSur"),0)%></font></td>
    <td width="25%"><p align="center"><font face="Arial">&nbsp; RM <%response.write formatnumber(objrs2("AVGCostNonSur"),0)%></font></td>
  </tr>
    <tr>
    <td width="25%">&nbsp;</td>
    <td width="25%">&nbsp;</td>
    <td width="25%">&nbsp;</td>
    <td width="25%">&nbsp;</td>
  </tr>
  <tr>
    <td width="25%"><font face="Arial"><b>Outpatient specialist care</b></font></td>
    <td width="25%"><p align="center">&nbsp;</td>
    <td width="25%"><p align="center">&nbsp;</td>
    <td width="25%"><p align="center">&nbsp;</td>
  </tr>
  <tr>
    <td width="25%"><font face="Arial">&nbsp; Total paid</font></td>
    <td width="25%"><p align="center"><font face="Arial">&nbsp; RM <%response.write formatnumber(objrs("SPIncurred"),0)%></font></p></td>
    <td width="25%"><p align="center"><font face="Arial">&nbsp; RM <%response.write formatnumber(objrs1("SPIncurred"),0)%></font></p></td>
    <td width="25%"><p align="center"><font face="Arial">&nbsp; RM <%response.write formatnumber(objrs2("SPIncurred"),0)%></font></p></td>
  </tr>
  <tr>
    <td width="25%"><font face="Arial">&nbsp; Total no of visit</font></td>
    <td width="25%"><p align="center"><font face="Arial">&nbsp; <%response.write objrs("NoofSP")%></font></td>
    <td width="25%"><p align="center"><font face="Arial">&nbsp; <%response.write objrs1("NoofSP")%></font></td>
    <td width="25%"><p align="center"><font face="Arial">&nbsp; <%response.write objrs2("NoofSP")%></font></td>
  </tr>
  <tr>
    <td width="25%"><font face="Arial">&nbsp; Average cost per visit</font></td>
    <td width="25%"><p align="center"><font face="Arial">&nbsp; RM <%response.write formatnumber(objrs("AVGCostSP"),0)%></font></td>
    <td width="25%"><p align="center"><font face="Arial">&nbsp; RM <%response.write formatnumber(objrs1("AVGCostSP"),0)%></font></td>
    <td width="25%"><p align="center"><font face="Arial">&nbsp; RM <%response.write formatnumber(objrs2("AVGCostSP"),0)%></font></td>
  </tr>
  <tr>
    <td width="25%">&nbsp;</td>
    <td width="25%">&nbsp;</td>
    <td width="25%">&nbsp;</td>
    <td width="25%">&nbsp;</td>
  </tr>
  <tr>
    <td width="25%"><font face="Arial"><b>O</b></font><b>thers</b></td>
    <td width="25%">&nbsp;</td>
    <td width="25%">&nbsp;</td>
    <td width="25%">&nbsp;</td>
  </tr>
    <tr>
    <td width="25%"><font face="Arial">&nbsp; Maternity</font></td>
    <td width="25%"><p align="center"><font face="Arial">&nbsp; RM <%response.write formatnumber(objrs("MATIncurred"),0)%></font></p></td>
    <td width="25%"><p align="center"><font face="Arial">&nbsp; RM <%response.write formatnumber(objrs1("MATIncurred"),0)%></font></p></td>
    <td width="25%"><p align="center"><font face="Arial">&nbsp; RM <%response.write formatnumber(objrs2("MATIncurred"),0)%></font></p></td>
  </tr>
  <tr>
    <td width="10">&nbsp;</td>
    <td width="25%">&nbsp;</td>
    <td width="25%">&nbsp;</td>
    <td width="25%">&nbsp;</td>
  </tr>
  <td width="25%">
    <p align="Left"><font face="Arial"><b>Total paid under GLS</b></font></td>
    <td width="25%"><p align="center"><font face="Arial"><b>&nbsp; RM <%response.write formatnumber(objrs("OMIncurred"),0)%></b></font></td>
    <td width="25%"><p align="center"><font face="Arial"><b>&nbsp; RM <%response.write formatnumber(objrs1("OMIncurred"),0)%></b></font></td>
    <td width="25%"><p align="center"><font face="Arial"><b>&nbsp; RM <%response.write formatnumber(objrs2("OMIncurred"),0)%></b></font></td>
  </tr>
  <td width="25%">
    <p align="Left"><font face="Arial"><b>Member / Reimbursement claims</b></font></td>
    <td width="25%"><p align="center"><font face="Arial"><b>&nbsp; RM <%response.write formatnumber(objrs("MIncurred"),0)%></b></font></td>
    <td width="25%"><p align="center"><font face="Arial"><b>&nbsp; RM <%response.write formatnumber(objrs1("MIncurred"),0)%></b></font></td>
    <td width="25%"><p align="center"><font face="Arial"><b>&nbsp; RM <%response.write formatnumber(objrs2("MIncurred"),0)%></b></font></td>
  </tr>
  <tr>
    <td width="25%">
    <p align="Left"><font face="Arial"><b>Total paid</b></font></td>
    <td width="25%"><p align="center"><font face="Arial"><b>&nbsp; RM <%response.write formatnumber(objrs("Incurred"),0)%></b></font></td>
    <td width="25%"><p align="center"><font face="Arial"><b>&nbsp; RM <%response.write formatnumber(objrs1("Incurred"),0)%></b></font></td>
    <td width="25%"><p align="center"><font face="Arial"><b>&nbsp; RM <%response.write formatnumber(objrs2("Incurred"),0)%></b></font></td>
  </tr>
</table>
<p align="Left"><font face="Arial"><b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Claim processed through <%response.write objrs3("LatestUpdate")%>.</b></font></P>
</font></font>
</Body>
<%objrs.close
objrs1.close
objrs2.close
objconn.close
set objrs =nothing
set objrs1 =nothing
set objrs2 =nothing
set objconn=nothing
set strq=nothing
set strq1=nothing
set strq2=nothing
%></html>

*************if u want out put i ll paste...so same out put should come..

Posted 11-Oct-10 17:31pm

uma_makineni

Add a Solution

Comments

Sandeep Mewara 12-Oct-10 3:47am

So, are you asking us to convert this for you?

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Abhinav S · Answer 1 · 2010-10-11T17:33:00

Solution 1

There are a few tools that try and convert ASP to ASP.Net code.

However, none of these are prefect. The best way is to try this on your own.

Posted 11-Oct-10 17:33pm

Abhinav S