ASP.NET

converting to asp to asp.net RSS

1 reply

Last post Feb 03, 2012 07:07 AM by duttavr

‹ Previous Thread|Next Thread ›

- Reply
Honnappa

Participant

1112 Points

534 Posts

converting to asp to asp.net

Feb 03, 2012 05:47 AM|LINK

is there any tool/method to convert classic asp (using javascript) to asp.net ?

Bellow is my code

<%@ Language="JavaScript"%>






<html>
<head><title></title>
<link rel="stylesheet" href="../Style.css" type="text/css">
</head>
<body>
<div align="center">
<%

if (Request.Querystring("Files")>"")
 var DataSrc = Readddf (Request.Querystring("Files"));
else
 var DataSrc = Readddf ("manager.ini");

if (Request.Querystring("langue")>"")
Langue=Request.Querystring("langue");
else
Langue ="fr";

idpersonne=Request.Querystring("idpersonne");
/*------------------------------------------------------------------------------------------*/

rs = Server.CreateObject("ADODB.Recordset");

CPTP=0;
Type=null;
DataType=null;
if (Request.Form("update")=="ok") {
//-----------------------------
// Mise a Jour du Record
//-----------------------------
sql= "UPDATE "+DataSrc.Table+" SET ";
separator= "";
for (index in DataSrc.Fields) {
 TheFields = String(DataSrc.Fields[index].Name);
 var iPos = TheFields.lastIndexOf("@@");
 if (iPos>0)
 TheFields = TheFields.slice(0,iPos)+""+Langue;
 else
 TheFields= String(DataSrc.Fields[index].Name);
 if (Request.Form(TheFields)>""){
 switch (DataSrc.Fields[index].Format) {
 case "M" :
 sql+=separator+TheFields+"="+"'"+mkQuote(unescape(Request.Form(TheFields)))+"'";
 separator=",";
 break;
 case "T" :
 var TypeField = String(DataSrc.Fields[index].Type);
 sql+=separator+TheFields+"="+"'"+mkQuote(unescape(String(Request.Form(TheFields))))+"'";
 separator=",";
 break;
 case "N" : sql+=separator+TheFields+"="+mkQuote(unescape(Request.Form(TheFields)));
 separator=",";
 break;
 case "P" :
 CPTP++;
 webofficepro= Server.CreateObject("ADODB.Connection");
 webofficepro.Open ("webofficepro","","");
 rsDevis = Server.CreateObject("ADODB.Recordset");
 //Response.Write(Request.Form("devis"+CPTP)+" - "+Request.Form(TheFields)+" - cpt"+CPTP+" ");
 sqlDevis= "SELECT * FROM devis where id="+Request.Form("devis"+CPTP)+";";
 rsDevis= webofficepro.Execute(sqlDevis);
 PRIX = (Request.Form(TheFields)/rsDevis.Fields("taux"));
 sql+=separator+TheFields+"="+mkQuote(unescape(PRIX));
 separator=",";
 break;
 case "D" : sql+=separator+TheFields+"="+"#"+(FormatDateIn(Request.Form(TheFields)))+"#";
 separator=",";
 break;
 case "O" : sql+=separator+TheFields+"="+mkQuote(unescape(Request.Form(TheFields)));
 separator=",";
 break;
 case "S" : sql+=separator+TheFields+"="+mkQuote(unescape(Request.Form(TheFields)));
 separator=",";
 break;
 case "X" : sql+=separator+TheFields+"="+mkQuote(unescape(Request.Form(TheFields)));
 separator=",";
 break;
 case "Y" : sql+=separator+TheFields+"="+mkQuote(unescape(Request.Form(TheFields)));
 separator=",";
 break;
 case "E" :
 break;
 case "U" :
 break;
 case "H" :
 // Traitement Manuel
 break;
 default :
sql+=separator+TheFields+"="+(Request.Form(TheFields));
 separator=",";
 }
 }
 else {
 switch (DataSrc.Fields[index].Format) {
 case "O" :
 sql+=separator+TheFields+"=0";
 separator=",";
 break;
 case "A" :
 break;
 case "I" :
 break;
 case "E" :
 TheFields = DataSrc.Fields[index].Name;
 var DataSrcFrom = Readddf (TheFields+"1.ini");
 var DataSrcTo = Readddf (TheFields+"2.ini");
 rsSelect= Server.CreateObject("ADODB.Recordset");

 Data="";
 separatorIns="";
 for (index2 in DataSrcFrom.Fields) {
 Data+=separatorIns+DataSrcFrom.Fields[index2].Name;
 separator=",";
 }
 sqlDel= "DELETE FROM "+DataSrcTo.Table+" WHERE "+DataSrcTo.Key+"="+Request.QueryString("thekey")+";";
 rsSelect = connPage.Execute(sqlDel);

 rsTo= Server.CreateObject("ADODB.Recordset");
 Data="";
 separatorIns="";
 cptO= parseInt(Request.Form("cpt"+TheFields));
 while (cptO>0) {
 if (Request.Form(TheFields+cptO)>"") {
 sqlIns ="INSERT INTO "+DataSrcTo.Table+" ("+DataSrcTo.Key+","+DataSrcTo.Order+") VALUES ("+Request.QueryString("thekey")+","+Request.Form(TheFields+cptO)+");";
 rsTo = connPage.Execute(sqlIns);
 }
 cptO--;
 }
 break;
 case "U" :
 TheFields = DataSrc.Fields[index].Name;
 var DataSrcFrom = Readddf (TheFields+"1.ini");
 var DataSrcTo = Readddf (TheFields+"2.ini");
 rsSelect= Server.CreateObject("ADODB.Recordset");

 Data="";
 separatorIns="";
 for (index2 in DataSrcFrom.Fields) {
 Data+=separatorIns+DataSrcFrom.Fields[index2].Name;
 separator=",";
 }
 sqlDel= "DELETE FROM "+DataSrcTo.Table+" WHERE "+DataSrcTo.Key+"="+Request.QueryString("thekey")+";";
 rsSelect = connPage.Execute(sqlDel);
 rsTo= Server.CreateObject("ADODB.Recordset");
 Data="";
 separatorIns="";
 cptO= parseInt(Request.Form("cpt"+TheFields));
 while (cptO>0) {
 if (Request.Form(TheFields+cptO)>"") {
 sqlIns ="INSERT INTO "+DataSrcTo.Table+" ("+DataSrcTo.Key+","+DataSrcTo.Order+","+DataSrcTo.Value+") VALUES ("+Request.QueryString("thekey")+","+Request.Form(TheFields+cptO)+","+Request.Form(DataSrcTo.Value+cptO)+");";
 rsTo = connPage.Execute(sqlIns);
 }
 cptO--;
 }
 break;

 case "P" :
 CPTP++;
 sql+=separator+TheFields+"="+null;
 separator=", ";
 break;
 case "H" :
 break;
 default :
 sql+=separator+TheFields+"="+null;
 separator=", ";
 break;
 }
 }

}
sql+= " WHERE "+DataSrc.Key+"="+Request.QueryString("thekey")+";";
//Response.Write(sql+" ");
rs.Open(sql,connPage,3,3);
Response.Write("Mise à jour OK");
} else {
//-----------------------------
// Ajout du Record
//-----------------------------
Type=null;
cpte=0;
var RefIndex = new Array;
//cptU=0;
cptu=0;
var RefIndexU = new Array;
sql= "INSERT INTO "+DataSrc.Table+" (";
separator= "";
// Fields
for (index in DataSrc.Fields) {
 TheFields = String(DataSrc.Fields[index].Name);

 var iPos = TheFields.lastIndexOf("@@");
 if (iPos>0)
 TheFields = TheFields.slice(0,iPos)+""+Langue;
 else
 TheFields= String(DataSrc.Fields[index].Name);
 switch (DataSrc.Fields[index].Format) {
 case "A" :
 break;
 case "E" :
 break;
 case "U" :
 break;
 default :
 sql+=separator+TheFields;
 separator=",";
 }
}

separator= "";
sql+= ") VALUES (";
for (index in DataSrc.Fields) {
 TheFields = String(DataSrc.Fields[index].Name);

 var iPos = TheFields.lastIndexOf("@@");
 if (iPos>0)
 TheFields = TheFields.slice(0,iPos)+""+Langue;
 else
 TheFields= String(DataSrc.Fields[index].Name);

 switch (DataSrc.Fields[index].Format) {
 case "M" : sql+=separator+(Request.Form(TheFields)>""?"'"+mkQuote(unescape(Request.Form(TheFields)))+"'":null);
 separator=",";
 break;
 case "T" : sql+=separator+(Request.Form(TheFields)>""?"'"+mkQuote(unescape(Request.Form(TheFields)))+"'":null);
 separator=",";
 break;
 case "N" :
 sql+=separator+(Request.Form(TheFields)>""?Request.Form(TheFields):null);
 separator=",";
 break;
 case "P" :
 CPTP++;
 webofficepro= Server.CreateObject("ADODB.Connection");
 webofficepro.Open ("webofficepro","","");
 rsDevis = Server.CreateObject("ADODB.Recordset");
 sqlDevis= "SELECT * FROM devis where id="+Request.Form("devis"+CPTP)+";";
 rsDevis= webofficepro.Execute(sqlDevis);
 PRIX = (Request.Form(TheFields)/rsDevis.Fields("taux"));
 sql+=separator+(Request.Form(TheFields)>""?PRIX:null);
 separator=",";
 break;

 case "D" : sql+=separator+(Request.Form(TheFields)>""?"#"+(FormatDateIn(Request.Form(TheFields)))+"#":null);
 separator=",";
 break;
 case "O" : sql+=separator+(Request.Form(TheFields)==1?1:0);
 separator=",";
 break;
 case "S" : sql+=separator+(Request.Form(TheFields)>""?mkQuote(unescape(Request.Form(TheFields))):null);
 separator=",";
 break;
 case "X" : sql+=separator+(Request.Form(TheFields)>""?mkQuote(unescape(Request.Form(TheFields))):null);
 separator=",";
 break;
 case "Y" : sql+=separator+(Request.Form(TheFields)>""?mkQuote(unescape(Request.Form(TheFields))):null);
 separator=",";
 break;
 case "E" :
 Type="Pass";
 RefIndex[cpte] = index;
 cpte++;
 break;
 case "U" :
 Type="Pass";
 DataType = "U";
 RefIndexU[cptu] = index;
 cptu++;
 break;
 case "A" :
 break;
 case "H" :
 // Traitement Manuel
 break;
 default :
 sql+=separator+(Request.Form(TheFields)>"" && String(Request.Form(TheFields)) !="undefined"?(Request.Form(TheFields)):null);
 separator=",";
 }

}
sql+= ");";
//Response.Write(sql+" ");
rs.Open(sql,connPage,3,3);
Response.Write("Ajout OK");

if (Type=="Pass") {

 // Find Last Record For The KEY
 sqlL= "SELECT max(["+DataSrc.Key+"]) AS idlast FROM "+DataSrc.Table+";";
 rsL= connPage.Execute(sqlL);
 TheKey = String(rsL.Fields("idlast").value);
 rsL.Close();

 for (indexe=0;indexe<cpte;indexe++) {
 TheFields = String(DataSrc.Fields[RefIndex[indexe]].Name);
 var DataSrcTo = Readddf (TheFields+"2.ini");

 cptO= parseInt(Request.Form("cpt"+DataSrc.Fields[RefIndex[indexe]].Name));
 rsTo= Server.CreateObject("ADODB.Recordset");
 while (cptO>0) {
 if (Request.Form(DataSrc.Fields[RefIndex[indexe]].Name+cptO)>"") {
 sqlIns ="INSERT INTO "+DataSrcTo.Table+" ("+DataSrcTo.Key+","+DataSrcTo.Order+") VALUES ("+TheKey+","+Request.Form(DataSrc.Fields[RefIndex[indexe]].Name+cptO)+");";
 rsTo = connPage.Execute(sqlIns);
 }

 cptO--;
 }
 }
 //rsTo.Close();

 // LOOP for Type U (Check + Value)
 for (indexu=0;indexu<cptu;indexu++) {
 TheFields = String(DataSrc.Fields[RefIndexU[indexu]].Name);
 var DataSrcTo = Readddf (TheFields+"2.ini");
 cptO= parseInt(Request.Form("cpt"+DataSrc.Fields[RefIndexU[indexu]].Name));

 sqlL= "SELECT max(["+DataSrc.Key+"]) AS idlast FROM "+DataSrc.Table+";";
 rsL= connPage.Execute(sqlL);
 TheKey = String(rsL.Fields("idlast"));
 rsL.Close();
 rsTo= Server.CreateObject("ADODB.Recordset");
 while (cptO>0) {
 Response.Write("debug");
 if (Request.Form(DataSrc.Fields[RefIndexU[indexu]].Name+cptO)>"") {
 //Response.Write("debug 2");
 sqlIns ="INSERT INTO "+DataSrcTo.Table+" ("+DataSrcTo.Key+","+DataSrcTo.Order+","+DataSrcTo.Value+") VALUES ("+TheKey+","+Request.Form(TheFields+cptO)+","+Request.Form(DataSrcTo.Value+cptO)+");";
 //Response.Write("debug 2"+ sqlIns);
 rsTo = connPage.Execute(sqlIns);

 }
 cptO--;
 }
 }

}

}
rs = null;
connPage.Close();
connPage=null;

%>
<a href="manager.asp?langue=<%=Langue%>">Retour</a>

All is Well !! hm30shettikera@gmail.com

My Profile
- Edited by Honnappa on Feb 03, 2012 05:52 AM
- Moved by MetalAsp.Net on Feb 03, 2012 05:58 AM
- Edited by Honnappa on Feb 03, 2012 06:01 AM
- Reply
duttavr

Contributor

4035 Points

1079 Posts

Re: converting to asp to asp.net

Feb 03, 2012 07:07 AM|LINK

Please refer

http://www.asp.net/downloads/archived-v11/migration-assistants/asp-to-aspnet

http://stackoverflow.com/questions/111071/tools-for-converting-from-asp-to-asp-net

Video:
http://www.asp.net/web-forms/videos/migrating/migrating-from-classic-asp-to-aspnet

Please Mark as Answer, if it answers you, also correct me if I'm wrong.
- Marked as answer by Young Yang - MSFT on Feb 28, 2012 12:51 PM

‹ Previous Thread|Next Thread ›

converting to asp to asp.net RSS

1 reply

Honnappa

converting to asp to asp.net

duttavr

Re: converting to asp to asp.net

This site is managed for Microsoft by Neudesic, LLC. | © 2013 Microsoft. All rights reserved.

Follow Us On:

Microsoft