What is eval() method in Classi ASP VB Script / How to Evaluate a String Dynamically - Change String at Run Time

Often we need to  Evaluate a String Dynamically , here Classic ASP  /  VB Script provides a power fool method named EVAL(), Let us see how to use Eval() method in Classic ASP / VB Script.


Const MYNAME = "Deepak Kumar Madheshiya"
Const MYNAME_HI = "दीपक कुमार मद्देशिया"

Dim LanguageCode: LanguageCode = 1
<%=GetString(MYNAME, LanguageCode))

OutPut: Deepak Kumar Madheshiya

LanguageCode = 0
<%=GetString(MYNAME, LanguageCode))

OutPut: दीपक कुमार मद्देशिया

Function GetString (MyValues, LanguageCode)

    If LanguageCode = "1" Then
        GetString = eval(MyValues & "_HI")
    Else
        GetString =eval(MyValues)
    End If    
End Function

Dynamically create input fields - jQuery

JQuery Provides,  to add or remove a textbox dynamically. The idea is very simple,  jQuery createElement(), html() and remove() method. See below given example : 

<html>

<head>
    <title>Dynamically create input fields - jQuery</title>
    <script src="/js/jquery-1.4.js"></script>
    <link rel='stylesheet' type='text/css' href='/styles.css'>
    <script type="text/javascript">
        var i;
        $(function() {
            var addDiv = $('#addinput');
            i = $('#addinput p').size() + 1;
            $('#addNew').live('click', function() {
            $('<p><input type="text" id="p_new" size="40" name="p_new_' + i + '" value="" placeholder="I am New" /><a href="#" class="mybutton" id="remNew">Remove</a> </p>').appendTo(addDiv);
                i++;
                return false;
            });

            $('#remNew').live('click', function() {
                if (i > 2) {
                    $(this).parents('p').remove();
                    i--;
                }
                return false;
            });
        });
        function fillHiddenField() {
            $('#MyTextBoxLength').val(i);
            return true;
        }
    </script>

</head>
<body>
<%
If request("Submit") <> "" Then

    dim iCount : iCount = Request("MyTextBoxLength")
    For i = 0 to (iCount-1)
      Response.Write  Request("p_new_"&i) &"<br/>"
    Next
    
End If
 %>
    <h2>
        Dynammically Add Another Input Box</h2>
<form id="two" name="two" class="asholder" action="test1.asp" method="post">
    <div id="addinput" class="ui-button-global">
        <p>
            <!--<input type="text" id="p_new" size="20" name="p_new" value="" placeholder="Input Value" /><a
                href="#" id="addNew">Add</a>-->
            <a href="2013-rashiphal-in-hindi.asp" id="addNew" class="ui-button icon arrowright">
            Add</a>
        </p>
        <input type="hidden" name="MyTextBoxLength" id="MyTextBoxLength" value="" />
    </div>
    <input type="submit" class="mybutton" name="Submit" value="Get Result" onclick="return fillHiddenField();" />
</form>    
</body>
</html>

How to Read RSS feed Using Classic ASP

Function BinaryToString(byVal Binary)
'--- Converts binary to text
'--- Set the return value in case of error
BinaryToString = ""
'--- Creates ADODB Stream data
Dim BinaryStream
Set BinaryStream = CreateObject("ADODB.Stream")
'--- Specify stream type data.
BinaryStream.Type = 1 '--- adTypeBinary
'--- Open the stream And write text/string data To the object
BinaryStream.Open
BinaryStream.Write Binary
'--- Change stream type to text
BinaryStream.Position = 0
BinaryStream.Type = 2 '--- adTypeText
'--- Specify  unicode data.
BinaryStream.CharSet = "UTF-8"
'--- Return converted text
BinaryToString = BinaryStream.ReadText
End Function



Sub GetMyData
Dim MyhorosignArray : MyhorosignArray = Array ("A","B","C","D","E","F","G","H","I","J","K","L")
Dim objHTTP, strBuff, objXML, objLst, intNoOfHeadlines, objHdl
Set objHTTP = CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "RSS-FEED-URL", False
objHTTP.Send
If objHTTP.Status = 200 Then strBuff = BinaryToString(objHTTP.ResponseBody)
Set objHTTP = Nothing
If Len(strBuff) > 0 Then
Set objXML = CreateObject("Microsoft.XMLDOM")
objXML.async = False
objXML.LoadXML(strBuff)
If objXML.parseError.errorCode <> 0 Then
Response.Write objXML.parseError.errorCode & " (" & objXML.parseError.reason & ")"
Else
Set objLst = objXML.getElementsByTagName("item")
intNoOfHeadlines = objLst.length -1
For i = 0 To 11 'intNoOfHeadlines
Set objHdl = objLst.item(i)
Ref = objHdl.childNodes(0).text
Link = objHdl.childNodes(1).text
Text =  objHdl.childNodes(2).text
        Response.Write Text
Set objHdl = Nothing
Next
Set objLst = Nothing
End If
Set objXML = Nothing
End If
End Sub

Response.Redirect Vs Server.Transfer

Server.Transfer: Transferring to another page using Server.Transfer conserves server resources. The transfer takes place on the server instead of forcing the browser to redirect to a new page. This means fewer HTTP requests coming through and can make your applications run more efficiently. Server.Transfer maintains to original URL in the browser.

Note:Only data transferred to a second ASP page are the ASP built-in objects and the ASP Error object values from the first request. Any variables declared by the first ASP page are not available in the second ASP page.

Server.Transfer has several advantages over Response.Redirect:
1) Because it saves a round trip between the server and the browser it's faster and reduces the load on the Web server.
2) The Response querystring and form collections are preserved during the transfer. As a result, you don't need to worry about reposting form and querystring data to the new page.

However, Server.Transfer does have a few disadvantages:

1) You can only use Server.Transfer to redirect to a page on the same Web server.
2) You can't pass a querystring to the new page. (However, remember that the querystring passed to the page executing the transfer will automatically be passed along to the new page.) If you try to pass a querystring to the new page, you will trigger an ASP error.
3) The browser is never notified of the new page, which can cause problems with relative links in some cases.
Note: Please 3rd point to noted very carefully

VBScript - ByVal Vs ByRef

Passing Parameters ByRef and ByVal

In VBScript, there are two ways values can be passed:
1) ByVal

2) ByRef

Using ByVal, we can pass arguments as values whereas with the use of ByRef, we can pass arguments are references.
ByVal:

the parameter is passed by value, thus the subroutine works with a copy of the original.
ByRef:

the parameter is passed by reference, thus the subroutine works directly with the original.

Example: Parameters By Value

Function GetValue( ByVal var )
var = var + 1
End Function

Dim x: x = 5

'Pass variable x to GetValue function ByVal
GetValue x

Response.write "x = " & x

Output: x = 5


Example: Parameters By Reference:


Function GetReference( ByRef var )
var = var + 1
End Function

Dim x: x = 5

'Pass the variable x to the GetReference function ByRef
GetReference x

Response.write x

Output: 6

Create Array in New Style Using VB Script / Java Script

Now we can create Array in modern style in VB script and JavaScript also, using this way we can reduce line of code, to make our program efficiency. For Example:
Create Array in JavaScript:

Var NakshtraName
NakshtraName = new Array("Ashwini", "Bhairini", "Krittika", "Rohini", "Mrigashirsha", "Aardhra", "Punarvasu", "Pushya", "Ashlesha", "Magha", "Purva Phalguni", "Uttara Phalguni", "Hastha", "Chitra", "Swati", "Vishaka", "Anuradha", "Jyestha", "Moola", "Purva Ashadha", "Uttara Ashadha", "Shravana", "Dhanista", "Shathabhisha", "Purva Bhadrapad", "Uttara Bhadrapada", "Revati");

Create Array in VB Script:

Dim NakshtraName

NakshtraName = Array("Ashwini", "Bhairini", "Krittika", "Rohini", "Mrigashirsha", "Aardhra", "Punarvasu", "Pushya", "Ashlesha", "Magha", "Purva Phalguni", "Uttara Phalguni", "Hastha", "Chitra", "Swati", "Vishaka", "Anuradha", "Jyestha", "Moola", "Purva Ashadha", "Uttara Ashadha", "Shravana", "Dhanista", "Shathabhisha", "Purva Bhadrapad", "Uttara Bhadrapada", "Revati")

VB Script | Interview Questions of VBScript | VBScriptDipak

1. Which command is used for writing text on a page?
Document.Write (text)
2. What is VBScript?
VBScript stands for Visual Basic Scripting Edition. It is an Active Scripting language, which is developed by Microsoft.
VBScript has been installed by default in every desktop release of Microsoft Windows.
VBScript language is a lightweight programming language, the newest member of the Visual Basic family of
programming languages, brings active scripting to a wide variety of
environments, including Web client scripting in Microsoft IE version 3.0 and Web server scripting in Microsoft Internet
Information Server version 3.0.

3. What is the difference between function and procedure in vb script?

Functions must be set equal to a return value while a procedure does not.
4. Declare a class in VBScript?
Class, refers to any object that you create using the Class ... End Class statement.
Class User
' declare private class variable
Private m_userName
' declare the property
Public Property Get UserName
UserName = m_userName
End Property
Public Property Let UserName (strUserName)
m_userName = strUserName
End Property
' declare and define the method
Sub DisplayUserName
Response.Write UserName
End Sub
End Class

Dim obj
Set obj = New User
' set the UserName property
obj.UserName = "Deepak Madheshiya"
' call the DisplayUserName method
' to print the user name
obj.DisplayUserName

5. VBScript is a case-sensitive programming language or not?
VBScript is not case-sensitive programming language.
6. How many ways you to create an Array in VBScript?
1st way:
Dim myArray(3)
myArray(0) = "Apple"
myArray(1) = "Banana"
myArray(2) = "Cat"
myArray(3) = "Dog"

2nd Way:
myArray = Array(5,10,15,20)

7. What is Dictionary object?
The Dictionary object are those objects who stores name and value in pairs in an array. Value pairs means key and item
Write the below code in a notepad and save it with .vbs extension and run it from
Command Prompt.
Dim wine
Set wine = CreateObject("Scripting.Dictionary")
Beers.Add "a", "Strauss"
Beers.Add "b", "Kingfisher"
Beers.Add "c", "Budweiser"
Msgbox ("The value corresponding to the key 'b' is " & wine.Item("b"))
Dictionary object properties:Count, Item, CompareMode etc.
Dictionary object methods:Exists, Add,Keys etc.
8. What is the difference between dictionary and an array object?

Dictionary object can not be multidimensional	Array object can be multidimensional
Dictionary has extra methods like add, check	Not in Array object
When you delete any specific item from dictionary, all the subsequent items automatically shift up.	Not in Array

9. What is "On Error Resume Next" statement in VBScript?
When an error occurs, by using this statement, the line of code containing the error
is simply skipped over and the program continues.

10. Which object provide information single runtime error in a VBScript?
Err Object

11. What is difference between VBScript and VBA?
Visual Basic is a standalone tool for creating separate
software components such as executable programs, COM
components and ActiveX? Controls. It is useful when
building a specialised solution from scratch.
VBA offers the same powerful tools as Visual Basic in the context of
an existing application and is the best option for
customising software that already meets most needs.
VBScript is a lightweight version of the Visual Basic
language designed specifically for use on web pages. While
VBScript can sometimes be used for simple automation, VBA
is the premier technology designed specifically for
application automation.

VBScript doesn't have a debugger like Visual Basic

Visual Basic and Visual Basic for Applications, in which the developer can define the data type

12. What are the Data Types in VBScript?
VBScript has only one Variant datatype. There are different categories
of Variant datatype:
String, Integer, Null, Boolean, Empty, Byte, Long Single, Double, Date/Time, Currency, Object and Error.
13. Which function allows you to instantiate an object in VBScript?

CreateObject function