Migrating from ASP to ASP.NET

JavaScript Include Question

srisiva — Thu, 19 Nov 2009 19:15:18 GMT

I recently migrated a website from Asp to Asp .net and sifted through the error fixing them. I am just left with one probelm.

The language for the pages in ASP was Javascript. Some of the pages also have a few external javascript code(with a .js extension) as include files.

The first few lines of the code look like this for any page(lets say abc.aspx):

<%@ Page Language="JavaScript" %>
<!-- #INCLUDE FILE="./script/page.js" -->
<!-- #INCLUDE FILE="./script/ses.js" -->
<!-- #INCLUDE FILE="./script/data.js" -->
<%    

  Response.Expires = -10000; 

  var script='contacts.aspx';
  var script_retT='index.aspx';
  var script_retA='account.aspx';
  var script_act ='account.aspx';
  var page=1;

  if (!ses_chTerr()) {
...
...
...

This code calls a function, pg_HeadType0() defined in page.js include file

This function basically displays headers for every page in hte website.

Its defenition is as follows in the page.js file:

function pg_HeadType01(mn) {
  var ska;
  var k,i;
  var aflag;

  Response.Write('<DIV ID="feedback" style="position:absolute;right:5;top:0;">\n');
  Response.Write('<TABLE border="0" cellspacing="0" cellpadding="0">\n');
  Response.Write(' <TR>\n');
  Response.Write('  <TD align="LEFT" valign="CENTER">\n');
  Response.Write('  <A href="mailto:'+mail_to_addr+'">');

...
...
...

  Response.Write('   <FORM name="FAccnt" action="'+script_act+'" method="POST">\n');
...
...
...

  Response.Write('   <BR>\n');
} //pg_HeadType01

Now here is my problem:

when I build the website, I get an error saying, script_act is not declared in page.js script.

Its been declared in abc.aspx. In ASP , this was not a problem and the site worked properly.

I am guessing this has either got to do with scoping issues with ASP.net or the different way of rendering the include files in asp and asp.net.

I am relatively new to web technologies as you can see. Any Help wpuld be greatly appreciated.

Thanks,

A com dll used in classic asp write by c#(can't convert request.quertstring object to string)

winerzf — Mon, 16 Nov 2009 04:05:29 GMT

hello

i'm a new here

now ,i've a problem with a classic asp dll

i tried use response request object in c# dll

here is my code

using System;
using System.Collections.Generic;
using System.Text;
using ASPTypeLibrary;


namespace aspdll
{
    public class Class2
    {
        public Request Myrequest;
        public Response Myresponse;
        


        public void OnStartPage(ScriptingContext sc)
        {
            Myrequest = sc.Request;
            Myresponse = sc.Response;
            Myresponse.Write(Myrequest.QueryString["test"]);//here can response.write my querystring "abc" in my ie
            if (Myrequest.QueryString["test"] == "abc")

            /*here allways returns false ， for Myrequest.QuertString is a IRequestDictionary object, it can not equal with string.
             * and  Myrequest.QueryString["test"].tostring() it returns  "System_Com"， how can i get  Myrequest.QueryString["test"] as string??*/
            {
                Myresponse.Write("ok");
           
            }

        }


    }

}

Problem: Cannot Successfully Reference "SessionUtility" from VS 2008 (Trying to Implement "How to Share Session State Between Classic ASP and ASP.NET")

tkates1aspnet — Tue, 10 Nov 2009 15:34:37 GMT

I'm trying to implement the MSDN "How to Share Session State Between Classic ASP and ASP.NET."

I haven't been able to correctly setup the reference to the SessionUtility.dll file from within VS 2008.

I successfully installed the SessionUtility.dll into the GAC.
(C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\gacutil.exe /i SessionUtility.dll.)
Note the v1.1.4322 version there. I could not find a gacutil.exe on my machine for v2.0 or v3.5.

I successfully exposed the SessionUtility.dll as a COM object using the regasm.exe.
(C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\regasm.exe SessionUtility.dll /tlb:SessionUtility.tlb).

I successfully loaded the Classic ASP page "TestPage.asp" and saw the expected number "1" on the web page.

I then ran the ASPX page "TestPage.aspx" and received the error: "Could not load type 'MSDN.SessionPage'." I realized that I forgot to make a reference to the SessionUtility.dll in VS 2008 so I went to the "COM" tab in the "Add Reference" dialog, and selected "SessionUtility" (which is pointing to SessionUtility.tlb.)

When I click the "OK" button to add the reference, I get this error...

A reference to 'SessionUtility' could not be added. Converting the type library to a .NET assembly failed. Type library 'SessionUtility' was exported from a CLR assembly and cannot be re-imported as a CLR assembly.

I did some searching and found a post or two saying that I should choose "SessionUtility" from the ".NET" tab in the "Add References" dialog box, not from the "COM" tab, but it is not listed on the ".NET" tab.

What did I do wrong? What am I missing?

Using classic ASP pages with masterpages

matthisco — Thu, 14 May 2009 11:17:26 GMT

I have my site setup using master pages.

Would it be possible to use an asp page with a contentplaceholder?

My asp page is below, I use it send emails. Any advice much appreciated. Thankyou

<%@ Page Language="VB" MasterPageFile="frame.master" %>
<%@LANGUAGE="VBSCRIPT"%>
<%
function TestCaptcha(byval valSession, byval valCaptcha)
    dim tmpSession
    valSession = Trim(valSession)
    valCaptcha = Trim(valCaptcha)
    if (valSession = vbNullString) or (valCaptcha = vbNullString) then
        TestCaptcha = false
    else
        tmpSession = valSession
        valSession = Trim(Session(valSession))
        Session(tmpSession) = vbNullString
        if valSession = vbNullString then
            TestCaptcha = false
        else
            valCaptcha = Replace(valCaptcha,"i","I")
            if StrComp(valSession,valCaptcha,1) = 0 then
                TestCaptcha = true
            else
TestCaptcha = false
            end if
        end if
    end if
end function

Sub sendEmail(mailFrom, mailTo, mailSubject, mailMessage, mailServer)
Set MyMail = CreateObject("cdo.message")
MyMail.From = mailFrom
MyMail.To = mailTo
MyMail.Subject = mailSubject
MyMail.HTMLBody = mailMessage
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = mailServer
MyMail.Configuration.Fields.Update
MyMail.Send
Set MyMail = nothing
End Sub

if not IsEmpty(Request.Form("btnTest")) then
    if Request.Form("sendername") <> "" and Request.Form("sendersubject") <> "" and Request.Form("sendermessage") <> "" then
    Dim mailFrom, mailTo, mailSubject, mailMessage, mailServer
    mailFrom = Request.Form("sendername")
    mailTo = "XXXXX"
    mailSubject = Request.Form("sendersubject")
    mailMessage = Request.Form("sendermessage")
    mailServer = "smtp.fasthosts.co.uk"
    Call sendEmail(mailFrom, mailTo, mailSubject, mailMessage, mailServer)
    Response.Write("Message Sent")
    else
    Response.Write("Please fenter all fields")
    end if
end if

%>
<script language="javascript">
function RefreshImage(valImageId) {
    var objImage = document.images[valImageId];
    if (objImage == undefined) {
        return;
    }
    var now = new Date();
    objImage.src = objImage.src.split('?')[0] + '?x=' + now.toUTCString();
}
</script>
</head>
<body>

<div id="leftcontent">
<form id="form1" name="form1" method="post" action="">
<input name="sendername" type="text" id="sendername" size="10" />
<input name="sendersubject" type="text" id="sendersubject" size="10" />
<br />
<br />
<input name="sendermessage" type="text" id="sendermessage" size="10" />
<br />
<input name="senderemail" type="text" id="senderemail" size="10" />
<table width="400" border="1" align="center">
    <tr>
      <td colspan="2" align="center"><strong>CAPTCHA Example</strong></td>
    </tr>
    <tr>
      <td width="261">CAPTCHA Image</td>
      <td width="123"><img id="imgCaptcha" src="captcha.asp" /><br />
        <a href="javascript:void(0)" onClick="RefreshImage('imgCaptcha')">Change Image</a></td>
    </tr>
    <tr>
      <td>Write the characters in the image above</td>
      <td><input name="captchacode" type="text" id="captchacode" size="10" /></td>
    </tr>
    <tr>
      <td> </td>
      <td><input type="submit" name="btnTest" id="btnTest" value="Test Input" /></td>
    </tr>
    <%
    if not IsEmpty(Request.Form("btnTest")) then
        if TestCaptcha("ASPCAPTCHA", Request.Form("captchacode")) then
            Response.Write("The code you enter verified.")
        else
            Response.Write("You entered the wrong code.")
        end if

    end if
    %>
</table>
</form>
</body>
</html>

General usercontrols question.

greecemonkey — Fri, 23 Oct 2009 10:50:03 GMT

I have a column on the left of my site that varies depending on the page. It can include all sorts of information and boxes. I think at the moment it contains 4 or 5 elements of a possible 16 depending what the page is.

This is all in ASP at the moment, and I am moving to .net.

What I do at the moment is have a 16 bit number and use the 1 and 0 to determine how the left column is configured.

I was thinking of making a usercontrol with a stringbuilder and depending on the if a particult element of content was required just build the column element in HTML into a string

the other idea I had was a usercontrol in a usercontrol, but not sure if this is even possible or might be two messy

Any ideas or input would be a great help

Graham

Combining asp and asp.net website

webcrab — Thu, 15 Oct 2009 22:10:12 GMT

Hi!

I built an asp.net app and somebody suggested me to combine it with a different asp (classic asp) is it possible ? do i have to convert my app from asp.net and to asp?

Is it complicated?

thanx..

Classic asp loginview?

stevescotthome — Tue, 28 Apr 2009 17:47:46 GMT

Is there any sort of asp.net LoginView style control for classic asp?

Add classic ASP page to ASP.ET application?

akpuk — Wed, 11 Nov 2009 04:59:18 GMT

Hi,

I have developed an ASP.NET application and would like to add a classic ASP page to the application as I have not had enough time to convert this page.

Is this possible? I have tried to add a classic ASP page in visual studio but do not see classic asp files as an option when I select "Add New Item". How do I get around this?

Thanks

Session variables between asp.net and classic

troyrowlands1976 — Mon, 09 Nov 2009 13:42:29 GMT

I am new to asp.net and have never used classic asp. My .net application uses ASP.net membership. I would like to attatch a forum written on classic asp using ASP.net membership credentials.

So, what I need to do, after reading a few articles, is write the asp membership credentials to a SQL DB in my ASP.net application and then retrieve them in classic ASP and put them into session variables which can then be used by the forum application.

I have done the 1st part but now need to retrieve the credentials from SQL using classic ASP. Please help. My code for putting the credentials into the DB is as follows:

 Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Session("USER") = User.Identity.Name
        Dim username As String = Session("USER")
        Dim u As MembershipUser = Membership.GetUser(username, False)
        Dim password As String
        Dim emailad As String = Membership.GetUser("required_Username").Email

        password = u.GetPassword()
        Session("PASSWORD") = password
        Session("EMAIL") = emailad
        

        Dim accmd As New SqlCommand()
        Dim cn As New SqlConnection


        'SQL data conxn to db

        cn.ConnectionString = ConfigurationManager.ConnectionStrings("LocalSqlServer").ConnectionString


        ' Run SQL Command

        With accmd

            .CommandText = "insert into Tempcred (username, password, email) values ('" & username & "' , '" & password & "', '" & emailad & "')"
            .Connection = cn
            .Connection.Open()
            .ExecuteNonQuery()
            .Connection.Close()
            .Dispose()

        End With


    End Sub

Please could someone give me the code for getting the variable out of the DB in classic ASP.

Thanks in advance

Porting one of the WMRM 10.1 samples from ASP to ASP.NET 3.5

hewsonj — Mon, 09 Nov 2009 23:35:01 GMT

Hello,

I am new to ASP, ASP.NET, Windows Media Rights Manager SDK and Windows 2003 Server.

I have WMRM 10.1 SDK and Visual Studio 2008 installed on a Windows 2003 Server machine. I am interested in the "Predelivering a License By Using the GetLicenseFromURL Method" ASP sample that is in the WMRM SDK. I can successfully run the sample and issue a license for a packaged file. That is, the ASP sample works fine.

However, I am having problems porting the sample into an ASP.NET 3.5 test I am trying to create. The ASP sample successfully makes the following VB call:

licreqencoded = Request("challenge")

The call returns a non-null string. The problem is that the same call in my ASP.NET app always returns a null string.

What am I missing here?

Thanks,

James.

problem migrating asp vbscript function to c#

diegolaz — Mon, 09 Nov 2009 03:22:46 GMT

Hello, I have problem with this function:

Private Function LShift(lValue,iShiftBits)
  If iShiftBits=0 Then
    LShift=lValue
    Exit Function
  ElseIf iShiftBits=31 Then
    If lValue And 1 Then
      LShift=&H80000000
    Else
      LShift=0
    End If
    Exit Function
  ElseIf iShiftBits<0 Or iShiftBits>31 Then
    Err.Raise 6
  End If

  If (lValue And m_l2Power(31-iShiftBits)) Then
    LShift=((lValue And m_lOnBits(31-(iShiftBits+1)))*m_l2Power(iShiftBits)) Or &H80000000
  Else
    LShift=((lValue And m_lOnBits(31-iShiftBits))*m_l2Power(iShiftBits))
  End If
End Function

So far I'v got

private uint LShift(int lValue, int iShiftBits)
    {
        int res = 0;
        if (iShiftBits == 0)
        {
            res = lValue;            
        }
        else if (iShiftBits == 31)
        {
            if (lValue > 0)
            {
                res = 0x80000000;
            }
            else
            {
                res = 0;
            }
        }
        else if (iShiftBits < 0 || iShiftBits > 31)
        {
            //error 6
        }
        if (lValue > 0 && m_l2Power[31 - iShiftBits] > 0)
        {
            res  = ((lValue && m_lOnBits[31-(iShiftBits+1)])*m_l2Power[iShiftBits]) || 0x80000000;
        }
        else
        {
            res = lValue && m_lOnBits[31-iShiftBits])*m_l2Power[iShiftBits]);
        }       
        return res;
    }

but obviously it's not working.... the lvalue and res values are sometimes treated as bool.... does someone understand what

 LShift=((lValue And m_lOnBits(31-(iShiftBits+1)))*m_l2Power(iShiftBits)) Or &H80000000 means??
Thanks!

Migrating ASP to ASPX.... where to set 301 redirects

diegolaz — Mon, 09 Nov 2009 02:42:13 GMT

Hello, I'm updating around 15 pages from .asp to .aspx (.net 2.0)

My question is, do I have to put a header redirect 301 (permanent redirect) on each old file, or can I put it in global.asax file with a case checking for any of the 15 files?

I some tries to go to old.asp will it execute global.asax anyway?

What would the best aproach be?

Thanks!

Diego

Personalized Pages Using ServerVariables("LOGON_USER") --> Querying SQL DB behind the scenes.

drewbkilla — Mon, 14 Sep 2009 20:51:10 GMT

On my Intranet, I have (CLASSIC ASP) pages that pull individual users' info from an SQL source.

The way I pull the correct data is by utilizing the current (per PC) active directory login and binding it to a hidden field.

It is then plugged into my query using request.ServerVariables("Logon_user") as my username field, once a user hits my page, the server variable pulls only their info by matching their current username with my db of usernames.

Once the query is complete, the user will be presented with a personalized page that he or she can make edits on. eliminating the need to use additional login credentials since they're already on the intranet.

How could the results of the above be implemented in asp.net?

Session sharing with COM objects and arrays

XiaoweiJia — Tue, 05 May 2009 16:11:09 GMT

I am in charge of a project migration from ASP to ASP.Net. We are doing it page by page so here comes to the session sharing. I can share simple data types such as string, int etc. There are a few sessions storing arrays and COM objects. My question is that how do I share these arrays and COM objects between ASP and ASP.Net.

Thanks

Help needed converting classic ASP code to C#.NET

sellestad — Thu, 23 Jul 2009 23:25:40 GMT

I'm trying to convert a site and this is giving me some trouble. I'm mainly confused by the nested query as I haven't seen this done in .NET, but I'm not expert either. Any ideas on converting this block would be appreciated.

Thank You.

<%
       Dim Conn,rs,rsBand,rsLOGO,sSQL,sALPHA,sComments

       If Request.Querystring("category_ID") > 0 Then Session("category_ID") = Request.Querystring("category_ID")

       '--Connect to Database
       Set Conn = Server.CreateObject("ADODB.Connection")
       Conn.Open "driver={SQL Server};server="

       '--Query to pull Alpha data from database
       sSQL = "SELECT alpha_letter, alpha_ID" _
           & " FROM dbo.BABL_Alpha_Letter" _
           & " WHERE category_ID = " & Session("category_ID")
       Set rs = Conn.Execute(sSQL)

       '--Loop through all of the Alpha Letters------------------
       Do Until rs.EOF
           sALPHA = rs("alpha_ID")
           Response.Write "<tr align='left'><td class='title'>    <b>" & rs("alpha_letter") & "</b></td></tr>"

       '--Query to pull Band data from database
       sSQL = "SELECT *" _
           & " FROM BABL_Band_Info" _
           & " WHERE alpha_ID = " & sALPHA _
           & " ORDER BY band_name"
       Set rsBAND = Conn.Execute(sSQL)

       Response.Write "<tr><td class='norm'>"

       '---Loop through each of the bands for that alpha letter
       Do Until rsBAND.EOF
           sComments = rsBAND("comments")
           Response.Write "<li><a href='" & rsBAND("band_url") & "' target='_blank'>" & rsBAND("band_name") & "</a>"

                       If sComments <> "" Then
                          Response.Write " - " & sComments
                       Else
                          Response.Write ""
                       End If
       rsBAND.MoveNext
       Loop

       Response.Write "</td></tr>"

       rs.MoveNext
       Loop
       Conn.Close
       %>

working with record sets.

sva0008 — Tue, 20 Oct 2009 17:05:38 GMT

Hi , i am new to vb.net can anyone help me how to use recordset in vb.net.
Basically this is the asp code and i want to do this in vb.net.

sql = " select * from product "
rs.open sql, conn

while not rs.eof do
productname = rs("ProductName")
Id = rs ("productId")
rs.Movenext
loop

Regards

DLL

Zahyea — Sun, 09 Mar 2008 22:52:58 GMT

Dear All.

Have a nice day.

I have one asp file please can you convert it in asp.net c#

<html>
<%Dim product,price,qty,total,name,address,postal ' Declaration of variables

product = request.Form("product")
price   = request.Form("price")
qty     = request.Form("qty")
total   = request.Form("total")
name    = request.Form("name")
address = request.Form("address")
postal = request.Form("postal")

Dim MyObj
Set MyObj          = Server.CreateObject("e24PaymentPipe.e24PaymentPipe.1") ' Create an instance of the dll object
MyObj.Action       = "1"            ' Purchase Transaction
MyObj.Amt          = total          ' The amount of purchase
MyObj.Currency     = "414"          ' KD Currency
MyObj.Language     = "USA"          ' Payment Page Language
MyObj.ResponseURL = "https://www.knetpaytest.com.kw/ASP/response.asp" ' Your response URL where you will be notified with of transaction response
MyObj.ErrorURL     = "https://www.knetpaytest.com.kw/ASP/error.asp" ' URL to redirect customer in case of error
MyObj.TrackID      = "1234" ' You should create a new unique track ID for each transaction
MyObj.ResourcePath = "D:\\secureCommerce\\Apps\\CommerceGateway\\Resource\\Demo\\"

MyObj.Alias    = "demo"
MyObj.Udf1         = "User Defined Field 1"
MyObj.Udf2         = "User Defined Field 2"
MyObj.Udf3         = "User Defined Field 3"
MyObj.Udf4         = "User Defined Field 4"
MyObj.Udf5         = "User Defined Field 5"

Dim TransVal, varPaymentID, varPaymentPage, varErrorMsg, varRawResponse

TransVal = MyObj.PerformInitTransaction
varRawResponse = MyObj.RawResponse
varPaymentID = MyObj.PaymentID
varPaymentPage = MyObj.PaymentPage
varErrorMsg = MyObj.ErrorMsg

if TransVal <> 0 Then
response.redirect("error.asp")
Else
response.redirect (varPaymentPage & "?PaymentID=" & varPaymentID) ' Redirects user to KNET Payment Page with parameter PaymentID
End if
%>

</html>

thanks

Zahyea

Updating VBScript MSXML2 script to C#?

IronWill — Tue, 13 Oct 2009 15:02:59 GMT

I have a VBScript on as ASP page that I need to update to C# so that I can also enable page caching since the script/page is one of 6 that returns data being passed into another page (using StreamReader).

If someone could take a look at what I'm doing with my current VBScript and point me in the right direction (what class should I use, how should I structure the enw page(s), etc) I sure would appreciate it, as I am feeling well outof my depth here.

Here's my BLOCKED SCRIPT

<%@ LANGUAGE="VBSCRIPT" %>
<%
    strPANURL = "http://www.greenwichlibrary.org/techtrainingxml.asp"


dim xmlDom, nodeCol, oNode, oChildNode
set xmlDom = Server.CreateObject("MSXML2.Domdocument")
xmlDOM.async = False

call xmlDom.setProperty("ServerHTTPRequest", true)
xmlDom.async = false
call xmlDom.load(strPANURL)

if not xmlDom.documentElement is nothing then
  set nodeCol = xmlDom.documentElement.selectNodes("channel/item")
  i = 1
  for each oNode in nodeCol
    Response.Write("" & vbCrLf)
    set oChildNode = oNode.selectSingleNode("link")
    if not oChildNode is nothing then
      Response.Write("<p><a href='" & oChildNode.text & "' title='See the Evanced calendar entry for this Event'>")
      strLink = "yes"
    end if
    set oChildNode = oNode.selectSingleNode("title")
    if not oChildNode is nothing then
		strTitle = Server.HTMLEncode(oChildNode.text)
		strTitle = replace(strTitle, "'", "'")
		strTitle = replace(strTitle, "&", "&")
      Response.Write("" & strTitle & "")
    end if
	if strLink = "yes" then
      Response.Write("</a>" & "<br />")
	end if
	set oChildNode = oNode.selectSingleNode("date")
    if not oChildNode is nothing then
    	strDate = Server.HTMLEncode(oChildNode.text)
    	strDate = replace(strDate, "'", "'")
		strDate = replace(strDate, "&", "&")
      Response.Write("" & strDate & "" & "</p>")
	end if
	if i = 1 then exit for
	'i = i + 1
    Response.Write("" & vbCrLf)
  next
	'if i = 2 then
	'the number above must be one increment more than the number in the if > number 4 lines above
	'Response.Write("" & vbCrLf)
end if
  Response.Write(strPANError & vbCrLf)

%>

Can we upgrade from ASP to ASP.NET

boib1222 — Tue, 13 Oct 2009 09:57:20 GMT

Hi guys,

I have a full functioning web application that is based on asp coding which i spent a few years working on. Now i want to upgrade it to asp.net. Is this possible? if yes, how? I am afraid that I buy visual studio without achieving the goal behind buying it. Any ideas?

How to Migrate Applications Step By Step?

SQLScript — Sat, 26 Sep 2009 15:20:55 GMT

I am planning to Migrate the applications below from an existing server to a new server (the operating system on the new server is Windows server 2003 enterprise edition).

Applications to be Migrated

- ASP.net web based application

- VB.Net Stand alone Application

I need a Step by Step process/guide on how to Migrate the ASP.Net applications to the new server. Thanks

(The applications have SQL Server as the Backend Database)

What I am looking is something like a web link with an example or procedure of a similar web application migration move to a new server (moving a web application from one server to new server with the same operating system and similar configurations). Most of the searches i have done online are refering to Application upgrades or migrating to a server with a different operating system

How to convert my asp code to asp.net 3.5

momer123 — Fri, 02 Oct 2009 09:16:23 GMT

Hi, i am wondering if someone can convert my following asp code to vb.net/asp.net 3.5?

I have tried download asp migration convertor but after installing it i can't find asp.net convertor option in file menu. I can only see vb6 convertor option.

Here is my code:

-------------------------------------------------

function Check_Postcode (byRef strPostcode)

Dim strPostcodeRegExp(6)   ' holds the regular expressions for valid postcodes
Dim intCount               ' For loop counter
Dim strPostcodeCopy        ' Copy of postcode

' Variables used to hold regular expression object
Dim objRegExp, objMatches, objMatch

' Variables to hold list of valid letterrs for various parts of the post code.
Dim strAlpha1, strAlpha2, strAlpha3, strAlpha4, strAlpha5

' Set up letters valid in thge various postcode positions
strAlpha1 = "[abcdefghijklmnoprstuwyz]"                          ' Character 1
strAlpha2 = "[abcdefghklmnopqrstuvwxy]"                          ' Character 2
strAlpha3 = "[abcdefghjkstuw]"                                   ' Character 3
strAlpha4 = "[abehmnprvwxy]"                                     ' Character 4
strAlpha5 = "[abdefghjlnpqrstuwxyz]"                             ' Character 5

' Expression for postcodes: AN NAA, ANN NAA, AAN NAA, and AANN NAA
strPostcodeRegExp(0) = "^(" + strAlpha1 + "{1}" + strAlpha2 + "{0,1}[0-9]{1,2})([0-9]{1}" + strAlpha5 + "{2})$"

' Expression for postcodes: ANA NAA
strPostcodeRegExp(1) = "^(" + strAlpha1 + "{1}[0-9]{1}" + strAlpha3 + "{1})([0-9]{1}" + strAlpha5 + "{2})$"

' Expression for postcodes: AANA NAA
strPostcodeRegExp(2) = "^(" + strAlpha1 + "{1}" + strAlpha2 + "[0-9]{1}" + strAlpha4 + "{1})([0-9]{1}" + strAlpha5 + "{2})$"

' Exception for the special postcode GIR 0AA
strPostcodeRegExp(3) = "^(gir)(0aa)$"

' Standard BFPO numbers
strPostcodeRegExp(4) = "^(bfpo)([0-9]{1,4})$"

' c/o BFPO numbers
strPostcodeRegExp(5) = "^(bfpo)(c\/o[0-9]{1,3})$"

' Overseas territories
strPostcodeRegExp(6) = "^([A-Z]{4})(1ZZ)$"

' Copy the parameter and convert into lowercase
strPostcodeCopy = Lcase(strPostCode)

' Assume we're not going to find a valid postcode
Check_Postcode = false

' Strip out spaces
strPostcodeCopy = Replace (strPostcodeCopy, " ", "")
Check_Postcode = False

Set objRegExp = New RegExp

' Check the string against valid types of post codes
For intCount = 0 to Ubound(strPostCodeRegExp)

    ' Check next pattern in list
    objRegExp.Pattern = strPostcodeRegExp(intCount)
    If objRegExp.Test (strPostcodeCopy) Then

      ' Post code found. Ensure input parameter is in correct format.
      Set objMatches = objRegExp.Execute (strPostcodeCopy)
      Set objMatch = objMatches(0)
      strPostcodeCopy = Ucase (objMatch.subMatches (0)) & " " & Ucase (objMatch.subMatches (1))

      ' Take account of the special BFPO c/o format
      strPostcodeCopy = Replace (strPostcodeCopy, "C/O", "c/o ")

      ' Show that we have found the postcode
      Check_Postcode = True
    End if
Next

' Ensure that the uppercase postcode gets returned if valid
If Check_Postcode Then strPostcode = strPostcodeCopy

End Function

---------------------------------------

Should i do a re-code? when migrating asp.net from asp classic

zoul1380 — Wed, 30 Sep 2009 02:26:55 GMT

Why should i do a re-code when migrating asp.net from asp classic

I have a large web application made in ASP Classic and now my dilemma is should i do a re-coding or should I just simply translate the codes in asp classic to asp.net

Convert classic asp page to asp.net

gslakmal — Sat, 26 Sep 2009 07:05:29 GMT

I have classic asp page. That page create dynamic table using database table. THis code is very efficent code. Becouse it access database only one time. I want convert this page using same technology. Whats the best way to convert this page to asp.net page.

<html>
<body vlink="#0000FF" alink="#0000FF">
<table border=0 cellspacing="0" cellpadding="0" width=840>
<tr>
    <td valign="top">
      <%
   'Set location to database
   sqlState = "DSN=theredzone;UID=theredzone;PWD=dm63146;"
   set Conn = Server.CreateObject("ADODB.Connection")
   Conn.open sqlstate
    'Open Recordset Object
    'mysql = "SELECT T.*, H1.PDate, H1.Headline, H1.Link, H1.idno FROM Team AS T, NFLHeadlines AS H1 WHERE T.ShortTeamName = H1.Team AND H1.PDate = (Select Max(PDate) FROM NFLHeadlines AS H2 Where H1.Team = H2.Team) ORDER BY T.Category, T.City, H1.idno;"
   mysql = "SELECT NFLTeam.*, H1.PDate, H1.Headline, H1.Link, H1.idno FROM NFLTeam INNER JOIN NFLHeadlines AS H1 ON NFLTeam.ShortTeamName=H1.Team WHERE H1.PDate = (Select Max(PDate) FROM NFLHeadlines Where H1.Team = NFLHeadlines.Team) ORDER BY NFLTeam.Category, NFLTeam.City, NFLTeam.TeamID, H1.idno;"
    Set rstemp = conn.Execute( mysql )

' ************************************************************
' support functions for building the "look" of the table
' ************************************************************

Sub ColumnHead( conference )
    If UCase(conference) = "AFC" Then fontc="#CC0000" Else fontc="#336699"
%>
      
    <td width="50%" valign="top"> <table width="100%" border="2" cellspacing="0" cellpadding="0">
        <tr>
          <td height="60" valign="top" align="center"> <img src="http://www.theredzone.org/images/<%=conference%>.gif" border="0" align="top"><br>
            <strong> <font color="<%=fontc%>" size="4" face="Verdana, Arial, Helvetica, sans-serif"><%=conference%></font>
            </strong> </td>
        </tr>
        <%
End Sub

Sub ColumnFoot
%>
      </table></td>
    <%
End Sub

Sub TeamHead( color, font, name )
%>
    
<tr>
    <td width="100%" height="19" bgcolor="<%=color%>" align=center> <font color="<%=font%>" face="Verdana, Arial, Helvetica, sans-serif" size="2">
      <strong>
      <div align="center"><a name="<%=name%>"></a><%=name%></div>
      </strong> </font> </td>
</tr>
<tr>
    <td> <table width="100%" border=0 cellpadding=0 cellspacing=0>
        <%
End Sub

Sub TeamFoot( team, id, forumid )
   forum = "http://forum.theredzone.org/viewforum.php?f="& forumid
%>
        <tr>
          <td colspan=2 height=20 valign="bottom" align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">
            <a href= "http://ticketsolutions.com/nfl-<%=team%>-tickets.asp" rel="nofollow"><strong>Looking
            For <%=team%>' Tickets? Click Here</strong></a></font> </td>
        </tr>
        <tr>
          <td colspan=2 height=15 valign="bottom" align="center"> <font size="1" face="Verdana, Arial, Helvetica, sans-serif">
            <a href= "http://www.theredzone.org/archives/showteam.asp?Team=<%=team%>">
            Miss a story? Look for it in our <%=team%>' News Archives</a> </font>
          </td>
        </tr>
        <tr>
          <td colspan=2 height=20 valign="top" align="center"> <font size="1" face="Verdana, Arial, Helvetica, sans-serif">
            <a href="<%=forum%>"> Talk about it in the <%=team%>' Forum</a> </font>
          </td>
        </tr>
      </table></td>
</tr>
<%
End Sub
Sub Story( link, hl, pdt )
%>
<tr>
    <td valign="Top" width="30" align="left"> <font face="verdana" size="2"><img src="http://theredzone.org/images/fbsmall.gif" width="15" height="15"></font>
    </td>
    <td><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
      <a href="<%=link%>"> <%=hl%></a> </font> <font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="blue"><%=pdt%></font>
    </td>
</tr>
<%
End Sub

' ************************************************************************
' Now begin output of the actual table:
' ************************************************************************

%>
<table width=840 border=0 cellpadding=0 cellspacing=2>
    <tr>
      
      <%
priorTeam = ""
priorConf = ""
priorTeamId = 0
priorForumId = 0

Do Until rsTemp.EOF
    curTeam = rsTemp("ShortTeamName")
    If curTeam <> priorTeam Then
        If priorTeam <> "" Then TeamFoot priorTeam, priorTeamId, priorForumId

        ' changed teams...did we also change conference?
        curConf = UCase( Left( rsTemp("Category"), 3 ) ) ' should be NFC or AFC??
        If curConf <> priorConf Then
             ' changed conference...start new column
             If priorConf <> "" Then ColumnFoot
             ColumnHead curConf
             priorConf = curConf
        End If
        ' and then show new team
        TeamHead rsTemp("TeamColor"), rsTemp("TeamFont"), curTeam
        ' we need to remember these three things ...
        ' ... in order to be able to create the TeamFoot
        priorTeam = curTeam
        priorTeamId = rsTemp("teamId")
        priorForumId = rsTemp("forumId")
    End If
    ' and finally we can output one "story" per "line"
    Story rstemp("Link"), rstemp("Headline"), rstemp("PDate")
    rstemp.MoveNext
Loop
TeamFoot priorTeam, priorTeamId, priorForumId
ColumnFoot
%>
    </tr>
</table>
<td align="left" valign="top">
   </center>
</td>
</tr>
</table>
</body>
</html>

Out put of this page is

http://theredzone.org/ (NFC and AFC list)

Help converting Class ASP page (.asp page) to a ASP.NET user control (.ascx)

aravind021 — Sat, 26 Sep 2009 00:06:46 GMT

Hi ! Can some one please help me with this. I have a classic ASP page and I am supposed to change it into a asp.net User Control . ( I know how to convert .aspx to .ascx . i am not asking on that detail ) . But i do not know how to convert this Classic ASP Page to either .ASPX page or .ASCX . if some one can get me to .ASPX page that would be very helpful . If you can try to help me with .ASCX It would be great . I have to redo many pages . So the help with this would do me great help . I am pasting the code below .

Basically it a "website feedback page " where the user enters his name/addresse/emailid and gives his feedback . that page is "web_feedback_form.asp" . After hitting the SUBMIT button he is taken to a page where i says something like "thanks for sumitting or so " . That is "web_feedback_thank_you.asp" . I am pasting the code in the same order .

web_feedback_form.asp:

<%
       Call RequestRedirectToSecure
       Dim strFormsCountryCode, objTermsXML
       strFormsCountryCode =strCountryCode 'GetLocaleForForms(ReplaceText(Request.QueryString("region")), WEB_FEEDBACK_FORM)
       Set objTermsXML = loadFormTermsXML(GetXMLPathForForm(WEB_FEEDBACK_FORM))
   %>

<head>
   <title><%= getTranslateFormMessage(objTermsXML, "PAGE_TITLE") %></title>
   <meta name="description" content="McAfee provides a place for you to submit your feedback to our web support team." />
   <meta name="keywords" content="mcafee, web support, web support team" />
   
   <% Server.Execute(globalURL("/us/includes/wrapper/header/lang.inc")) %>
   <% Call AttachSecureCSS %>
   <script src="/common/apps/lib/validate_form.js" type="text/javascript" language="JavaScript"></script>
   <script src="/apps/about/web_feedback/resource/<%= strFormsCountryCode %>/validate_web_feedback_form.js" type="text/javascript" language="JavaScript"></script>
</head>

<body id="abo-websitefeedback-web_feedback_form">

<div id="wrapper">

   <div id="header">
       
       <h1><%= getTranslateFormMessage(objTermsXML, "PAGE_TITLE") %></h1>
       <% Server.Execute(globalURL("/us/includes/wrapper/header/toc.inc")) %>
   </div>

   <div id="navigation">
       <h2><% Server.Execute(globalURL("/us/includes/wrapper/navigation/label.inc")) %></h2>
       <% Server.Execute(globalURL("/us/includes/wrapper/navigation/utility/default.inc")) %>
       <% Server.Execute(globalURL("/us/includes/wrapper/navigation/segment/default.inc")) %>
       <% Server.Execute(globalURL("/us/includes/wrapper/navigation/section/abo.inc")) %>
       <div id="nav-group">
           <% Server.Execute(globalURL("/us/includes/wrapper/navigation/breadcrumb/default.inc")) %>

       </div>
   </div>

   <div id="content">
       <h2><% Server.Execute(globalURL("/us/includes/wrapper/content/label.inc")) %></h2>
       <div id="content-main">
       
           
           <%= Server.Execute(globalURL("/apps/about/web_feedback/resource/us/c_web_feedback_form_header.asp")) %>
           <div>
           <ul>
               <li><%= getTranslateFormMessage(objTermsXML, "pgLine1-1") %><a href="<%=networkassociates_url%><%=globalURL("/us/enterprise/support/customer_service/")%>"<%=TargetWin%>><%= getTranslateFormMessage(objTermsXML, "pgLine1-2") %><%=EnglishLink%></a><%= getTranslateFormMessage(objTermsXML, "pgLine1-3") %></li>
               <li><%= getTranslateFormMessage(objTermsXML, "pgLine2-1") %><a href="<%=networkassociates_url%><%=globalURL("/us/enterprise/support/customer_service/top_issues.html")%>"<%=TargetWin%>><%= getTranslateFormMessage(objTermsXML, "pgLine2-2") %><%=EnglishLink%></a>?</li>
               <li><%= getTranslateFormMessage(objTermsXML, "pgLine1-1") %><a href="<%=networkassociates_url%><%=globalURL("/us/enterprise/support/technical_support/")%>"<%=TargetWin%>><%= getTranslateFormMessage(objTermsXML, "pgLine3-1") %><%=EnglishLink%></a><%= getTranslateFormMessage(objTermsXML, "pgLine3-2") %></li>
               
               <li><%= getTranslateFormMessage(objTermsXML, "pgLine4") %></li>
           </ul>
           </div>

           <form name="ReportError" method="post" action="web_feedback_thank_you.asp?region=<%= strFormsCountryCode %>&<%= QRY_SEGMENT %>=<%= segment_type %>" onsubmit="return ValidateDoc();">
           <input name="gCountryCode" size="15" value="<%= strFormsCountryCode %>" type="hidden" />
           <%= Server.Execute( globalURL("/apps/about/web_feedback/resource/us/c_web_feedback_form.asp")) %>
           <fieldset>
           <input id="submit" name="submit" value="<%= getTranslateFormMessage(objTermsXML, "pgSubmit") %>" type="submit" />
           </fieldset>
           </form>
           
       </div>
   </div>

   <div id="footer">
       <% Call AttachFooter %>
   </div>

</div>
</body>
</html>
<%
   Set objTermsXML = Nothing
%>

web_feedback_thank_you.asp:

Thanks for all the time taken to see this code . Any Start up help also would be greatly helpful . Waiing for you reply.

Should I switch? Classic ASP vs ASP.NET

joshbeagley — Wed, 23 Sep 2009 05:54:43 GMT

Hello all,

Some quick background - I was first shown some classic asp examples in early 2004, and by the end of the summer I had a nice, big, complex .asp website working like a charm. In 2006, I started learning asp.net and it's been a nightmare ever since. I've dedicated so much time this entire summer to finally learning asp.net, and it's just not working for me.

My problem is that I can't forget how easy it was to just make things happen in classic asp. I consider myself nearly an expert, and I feel like I can make anything happen, but in asp.net I can barely come up with the 700 lines of code it takes to write one sentence. Aside from that, I don't feel like the internet has changed SO MUCH that we absolutely HAVE to go to asp.net.

So enough ranting. My question is, do I switch? Or do you believe that SINCE I already know and am comfortable with classic asp, that I should stay there and remain a dangerous weapon, where in asp.net, after 4 years of experimenting, I can barely make things happen.

I appreciate all your thoughts, thank you!

Josh