Brammam's Weblog

Padding/Adding 0s to a number in sql server.

brammam — Sat, 28 Feb 2009 07:11:16 +0000

For a two character string you can do this…

declare @number tinyint
set @number = 2
select case when len( @number ) = 1 then ‘0′ else ” end + cast( @number as varchar(2) )

For a number that will be greater than two characters in length you can do this…

declare @number int
declare @string varchar(10)
declare @size_of_fixed_string tinyint
set @size_of_fixed_string = 10
set @number = 40
print replicate( ‘0′, @size_of_fixed_string )
set @string = left( replicate( ‘0′, @size_of_fixed_string ), @size_of_fixed_string – len( @number ) ) + cast( @number as varchar(10) )
print @string

Indian Currency Format

brammam — Fri, 27 Feb 2009 17:04:35 +0000

This post is to discus about Currency formats.

I have Searched on google for showing the price in indian currency like thousand, laks, crores(ex : 1,25,485.86) but there is no simple way to achieve that. Some one write a function to display in laks or crores, that was the base of my function. I have modified and wrote my own function, it may be usefull to all of you.

In VB.Net

——————————————-

Public Function IndianCurrency(ByVal Amount As Object) As String

If IsDBNull(Amount) Or Amount.ToString() = “” Then

Return “0.00″

End If

Amount = Convert.ToDecimal(Amount)

Dim strTmp As String

Dim strResult As String

Dim intLen As Integer

strTmp = Format(Amount, “#.00″)

strResult = Right(strTmp, 6)

intLen = Len(strTmp) – 6

Do While intLen > 0

strTmp = Left(strTmp, intLen)

strResult = Right(strTmp, 2) & “,” & strResult

intLen = Len(strTmp) – 2

Loop

Return strResult

End Function

In C#.Net

——————————————

public string IndianCurrency(object Amount)

{

if (Convert.ToString(Amount) == “” || Amount == null)

{ return “0.00″; }

Amount = Convert.ToDecimal(Amount);

string strTmp = null;

string strResult = null;

int intLen = 0;

strTmp = string.Format(“{0:f}”, Amount);

if (strTmp.Length > 6)

{

strResult = strTmp.Substring(strTmp.Length – 6);

intLen = strTmp.Length – 6;

while (intLen > 0)

{

strTmp = strTmp.Substring(0, intLen);

if (intLen < 2)

{ strResult = strTmp.Substring(0, intLen) + “,” + strResult; }

else

{ strResult = strTmp.Substring(intLen – 2, 2) + “,” + strResult; }

intLen = strTmp.Length – 2;

}

else

{ strResult = strTmp; }

return strResult;

}

You can call this function in databinding also

<%# IndianCurrency(Eval(“SellingPrice”))%>

if you want to assign a value to a control then

lblTotal.Text = IndianCurrency( 58745895.5844521);

Another formats

Response.Write(string.Format(“{0:#,##0.00;0.00}”, 558742255555.85562)); - Ans : 558,742,255,555.86

Response.Write(string.Format(“{0:f}”, 558742255555.85562)); - Ans: 558742255555.86

Response.Write(string.Format(“{0:c}”, 558742255555.85562)); - Ans: £558,742,255,555.86

happy coding.

Adding URL to browser favorites using javascript

brammam — Wed, 04 Feb 2009 19:16:10 +0000

A simple line of code to popup browser favorites window is

window.external.addfavorite(“favoriteURL”,”prefered Name”);

Getting Data into child window from parent window by using javascript.

brammam — Tue, 26 Aug 2008 13:42:43 +0000

Some times we are opening pages in new window by using javascript when we click on links. in this case some times we have to get the data(values) from parent window. this is posible by javascript.

parent window code

http://www.w3.org/1999/xhtml” >

    Untitled Page

Child window code

http://www.w3.org/1999/xhtml” >

    Untitled Page

I used this code to show preview of the submited data.

Adding Items to Infragistics UltraWebListBar Dynamically.

brammam — Mon, 25 Aug 2008 14:28:24 +0000

we can add items to ultraweblist directly if items are static is as follows.

      ViewType=”ExplorerBar” Width=”236px” BarWidth=”100%” BorderStyle=”None” GroupSpacing=”5px”
      ItemIconStyle=”SmallWithInsetText” MergeStyles=”True” HeaderClickAction=”ExpandOnClick”>






































            StyleBottom=”Solid” StyleLeft=”None” StyleRight=”None” StyleTop=”None” WidthBottom=”2px” />

some times we have to add items dynamically taking from database. for that code in vb.net is as follows

my data table is look like this.

Module	SubModule	Order	link	ImageUrl
module1	submodule1	1	url1	image1.gif
Module2	Submodule2	1	url2	Image2.gif
Module3	Submodule3	2	url3	Image3.gif

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim dtbNavigation As New DataTable
        Dim da As New SqlDataAdapter(“Your Querry”, “your connection string”)
        da.Fill(dtbNavigation)
        If dtbNavigation.Rows.Count > 0 Then
            Dim i As Integer = 0
            ‘Dim grs As New WebUI.UltraWebListbar.Groups(UltraWebListbar1)
            Dim dtbModules As New DataTable
            dtbModules = dtbNavigation.DefaultView.ToTable(True, “Module”)
            For Each dr As DataRow In dtbModules.Rows
                Dim j As Integer = 0
                Dim gr As New WebUI.UltraWebListbar.Group()

                gr.Text = dr.Item(“Module”)
                gr.TextAlign = “left”
                gr.Labels.Collapsed = “”
                gr.Labels.Expanded = “”
                gr.Labels.Selected = “”
                Dim its As New WebUI.UltraWebListbar.Items(gr)
                Dim drSubModules() As DataRow
                drSubModules = dtbNavigation.Select(“ModuleName=’” & dr.Item(“Module”) & “‘”, “Order”, DataViewRowState.CurrentRows)

                For Each dr1 As DataRow In drSubModules
                    Dim it As New WebUI.UltraWebListbar.Item
                    it.Text = “” & dr1.Item(“subModule”)
                    it.TargetUrl = dr1.Item(“link”)
                    ‘it.Image = “”
                    it.Labels.Selected = “”
                    its.Insert(j, it)
                    gr.Items.Add(it)
                    j = j + 1

                Next
                UltraWebListbar1.Groups.Add(gr)
                i = i + 1
            Next
        End If
    End Sub

Sending Mail without SMTP Server Details

brammam — Thu, 14 Aug 2008 07:27:12 +0000

Hi in this post i am telling how to send a mail without using smtp server. this is possible in web application i didn,t check in windows. By using System.web.Mail namespace it is possible

code in VB.Net

Imports System.Web.Mail

Public Shared Function SendEmail(ByVal FromAddress As String, ByVal ToAddress As String, ByVal CCAddress, ByVal BccAddress, ByVal EmailSubject As String, ByVal MessageText As String) As Boolean
    Try
            Dim objMailMessage As New MailMessage()
            Dim obj As SmtpMail
            obj.SmtpServer = “”
            objMailMessage.From = FromAddress
            objMailMessage.To = ToAddress
     If CCAddress.Length > 0 Then
           objMailMessage.Cc = CCAddress
            End If
            If BccAddress.Length > 0 Then
           objMailMessage.Bcc = BccAddress
            End If
            objMailMessage.Subject = EmailSubject
            objMailMessage.Body = MessageText
            objMailMessage.BodyFormat = MailFormat.Html
            obj.Send(objMailMessage)
            Return True
        Catch ex As Exception
            WriteErrorToLog(GetExecutingScriptName() & ” – SendMail”, ex.Message)
            Return False
        End Try
End Function

To send a mail call the above function as
SendEmail(txtFromEmailID.Text.Trim(), txtToEmailID.Text.Trim(),”",”", txtSubject.Text.Trim(), strEMailText.ToString())

Code in C#.Net

using System.Web.Mail;

public static Boolean SendMail(string FromAddress,string ToAddress, string CCAddress, string BccAddress,string MailSubject, string MailBody)
    {
        try
        {
            System.Web.Mail.MailMessage msgMail = new MailMessage();
            msgMail.From = FromAddress;
            msgMail.To = ToAddress;
            if (CCAddress.Length > 0)
            {
                msgMail.Cc = CCAddress;
            }
            if (BccAddress.Length > 0)
            {
                msgMail.Bcc = BccAddress;
            }
            msgMail.Subject = MailSubject;
            msgMail.Body = MailBody;
            msgMail.BodyFormat = MailFormat.Html;
            SmtpMail.SmtpServer = “”;
            SmtpMail.Send(msgMail);

            return true;
        }
        catch (Exception ex)
        {
            return false;
        }
    }

call this function as

SendEmail(txtFromEmailID.Text.Trim(), txtToEmailID.Text.Trim(),”",”", txtSubject.Text.Trim(), strEMailText.ToString())

We can attach a file also to this mail.

If you want to show sender Name in Inbox rather than mailid just give from address like this

objMailMessage.From = “SenderName”

Exporting grid to Excel

brammam — Wed, 13 Aug 2008 11:48:30 +0000

This is to get the gridview values of your page in to microsoft excel. Recently i tried this. we can export values from gridview or DataList or any DataRenderControl. For this code is as follows..

first in aspx page put a gridview and a button to export to excel and in page load bind data to gridview.

in button click write this code.

Sub btnExcel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles

btnExcel.Click

Response.ContentType = “application/vnd.ms-excel”

Dim objStringWriter As New IO.StringWriter

Dim objHtmlTextWriter As New Html32TextWriter(objStringWriter)gdvDetails.RenderControlobjHtmlTextWriter)

Response.AppendHeader( “Content-Disposition”, “attachment; filename=Details.xls”)

Response.Write(objStringWriter)

Response.Flush()

Response.End()

End Sub

when you click on this button it gives a popup like “download file menu” with the name “Details.xls”. you can open or save into your system

Client IP Address

brammam — Wed, 09 Jul 2008 12:00:19 +0000

when ever you want to find the IP Adress of client use one of these two Response.Write(Request.UserHostAddress) or
Response.Write(Request.ServerVariables(“LOCAL_ADDR”))
But remember one thing you have to access this web page with server address as

http://yourSyatemIP(or)Servername/projectName/page.aspx
not with localhost like
http://localhost/projectName/page.aspx

Below code is to find the Different types of server variables

Dim NameArray() As String
Dim VisitorSV As NameValueCollection
Dim I As Integer
VisitorSV = Request.ServerVariables
NameArray = VisitorSV.AllKeys
For I = 0 To UBound(NameArray)
Response.Write(“
”)
Response.Write(NameArray(I) & “: ” & VisitorSV.Item(I) & “
”)
Next

How to get the project path in .net?

brammam — Wed, 25 Jun 2008 13:23:28 +0000

System.AppDomain.CurrentDomain.BaseDirectory

This returns the string of your project path including project name

ex: c:\Inetpub\wwwroot\mysite\

Email validation

brammam — Sat, 31 May 2008 11:49:59 +0000

checking email validation by java script.

aspx page