wing rider

dbconn

2011-06-15T10:35:00.007-07:00

Imports System.Data.Odbc
Imports System.Data
Imports System.IO

Public Class dbconn
    Public gs_ConnDB As OdbcConnection
    Public objCnf As ConfigurationManager
    Dim objOdbcDataReader As OdbcDataReader
    Dim lsobjDR As OdbcDataReader
    Public trans As OdbcTransaction

    Public Sub OpenConn()
        gs_ConnDB = New OdbcConnection(ConfigurationManager.AppSettings("ConnectionString").ToString)
        If gs_ConnDB.State = ConnectionState.Closed Then
            gs_ConnDB.Open()
        End If
    End Sub
    Public Sub OpenConnRCS()
        gs_ConnDB = New OdbcConnection(ConfigurationManager.AppSettings("ConnectionStringRCS").ToString)
        If gs_ConnDB.State = ConnectionState.Closed Then
            gs_ConnDB.Open()
        End If
    End Sub
    Public Function BeginTransaction()
        trans = gs_ConnDB.BeginTransaction
        Return trans
    End Function
    Public Sub CommitTransaction()
        trans.Commit()
    End Sub
    Public Sub RollBackTransaction()
        trans.Rollback()
    End Sub
    Public Function GetDataReader(ByVal SQL As String) As OdbcDataReader
        Dim cmdQuery As New OdbcCommand
        'Dim lsobjDR As OdbcDataReader
        cmdQuery.Connection = gs_ConnDB
        cmdQuery.CommandText = SQL
        cmdQuery.CommandType = CommandType.Text
        lsobjDR = cmdQuery.ExecuteReader
        Return lsobjDR
    End Function
    Public Function GetDataSet(ByVal SQL As String, ByVal tblName As String) As DataSet
        'This function will Retrieve Data and Return as Dataset together with table name
        Dim lobjDataAdapter As New OdbcDataAdapter(SQL, gs_ConnDB)
        Dim lobjDataSet As New DataSet
        lobjDataAdapter.Fill(lobjDataSet, tblName)
        Return lobjDataSet
    End Function

    Public Function ExecuteNonQuerySQL(ByVal SQL As String) As Integer
        Dim cmdQuery As New OdbcCommand
        Dim mnResult As Integer
        cmdQuery.Connection = gs_ConnDB
        cmdQuery.CommandText = SQL
        cmdQuery.CommandType = CommandType.Text
        Try
            mnResult = cmdQuery.ExecuteNonQuery
            mnResult = 1
        Catch ex As OdbcException
            mnResult = 0
        End Try
        cmdQuery.Dispose()
        Return mnResult
    End Function

    Public Function ExecuteNonQuerySP(ByVal pSPName As String, ByVal pVal As String) As Integer
        Dim cmdQuery As New OdbcCommand
        Dim parmReturnValue As OdbcParameter
        Dim arrValue As String()
        Dim lstValue As String
        Dim arrNameValue As String()
        Dim mnResult As Integer

        arrValue = Split(pVal, ",")

        cmdQuery = New OdbcCommand(pSPName, gs_ConnDB)
        cmdQuery.CommandType = CommandType.StoredProcedure

        For Each lstValue In arrValue
            arrNameValue = Split(lstValue, "|")
            cmdQuery.Parameters.AddWithValue("@" & arrNameValue(0), arrNameValue(1))
        Next

        parmReturnValue = cmdQuery.Parameters.AddWithValue("ReturnValue", SqlDbType.Int)
        parmReturnValue.Direction = ParameterDirection.ReturnValue

        cmdQuery.ExecuteNonQuery()
        mnResult = cmdQuery.Parameters("ReturnValue").Value

        cmdQuery.Dispose()
        Return mnResult
    End Function
    Public Sub CloseConn()
        gs_ConnDB.Close()
    End Sub
    Public Sub popdata(ByVal sql As String, ByVal TableName As String, ByVal Grid As DataGrid, ByVal lblErrMsg As Label)
        Dim ds_tuser As New DataSet
        Dim objcmnfunctions As New cmnfunctions
        ds_tuser = GetDataSet(sql, TableName)
        If ds_tuser.Tables(TableName).Rows.Count > 0 Then
            Grid.Visible = True
            Grid.DataSource = ds_tuser
            Grid.DataBind()
        Else
            Grid.Visible = False
            lblErrMsg.Text = objcmnfunctions.GetErrMsg("ET_010")
        End If
        ds_tuser.Dispose()
    End Sub
    Public Function GetExecuteScalar(ByVal SQL As String) As String
        GetExecuteScalar = ""
        Dim lobjCommand As New OdbcCommand
        Try
            lobjCommand.Connection = gs_ConnDB
            lobjCommand.CommandText = SQL
            lobjCommand.CommandType = CommandType.Text
            GetExecuteScalar = lobjCommand.ExecuteScalar
            Return GetExecuteScalar
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
        lobjCommand.Dispose()
        lobjCommand = Nothing
    End Function
End Class

sql conn

2011-06-15T10:35:00.005-07:00

Imports System.Data.Odbc
Imports System.IO
Imports System.Web

Public Class cmnfunctions
    Dim objdbconn As New dbconn
    Dim objOdbcDataReader As OdbcDataReader
    Dim msSQL As String
    Dim mnResult As Integer

    Public Const DEFAULT_OPTION_ALL = "ALL"
    Public Const DEFAULT_OPTION = "-- Select One --"
    Public Const DEFAULT_OPTION_SHORT = "--"
    Public Const DEFAULT_VALUE = "-1"
    Public Const DEFAULT_ZERO = "0"
    Public Const DEFAULT_EMPTY_STRING = ""


    Dim mspassword_suspend As String
    Dim msEncryptedPassword As String
    Dim lnChangeDuration As Integer

    Dim lstLeftDate As String
    Dim mstemp As String()
    Dim msDate As String

    Dim lsTempGid As String
    Dim mserrormessage As String

    Public gsUser_GID As String
    Public gsUser As String

    Public Function InitializeTable(ByVal colNames As ArrayList, ByRef xTable As DataTable) As String

        xTable = New DataTable("ddlMultiColumn")

        For iCnt As Integer = 0 To (colNames.Count - 1)
            xTable.Columns.Add(CStr(colNames.Item(iCnt)), Type.GetType("System.String"))
        Next

        Return xTable.TableName

    End Function

    Public Function GetErrMsg(ByVal ErrMsgCode As String) As String
        objdbconn.OpenConn()
        msSQL = "select error_gid,error_code,error_message,error_type from " & _
                " adm_mst_terror where error_code = '" & ErrMsgCode & "'"
        objOdbcDataReader = objdbconn.GetDataReader(msSQL)
        If objOdbcDataReader.HasRows = True Then
            While objOdbcDataReader.Read
                mserrormessage = objOdbcDataReader.Item("error_message")
            End While
        Else
            mserrormessage = "General Error Occurred"
        End If
        Return mserrormessage
        objOdbcDataReader.Close()
        objdbconn.CloseConn()
    End Function
    Public Function GetRandomString(ByVal length As Integer) As String
        Dim guidResult As String = System.Guid.NewGuid().ToString()
        guidResult = guidResult.Replace("-", String.Empty)
        guidResult = UCase(guidResult)
        If length <= 0 OrElse length > guidResult.Length Then
            Throw New ArgumentException("Length must be between 1 and " & guidResult.Length)
        End If
        Return guidResult.Substring(0, length)
    End Function
    ''//-------------------------------------------------------------------
    '' Author : Pavithra
    '' Date    :
    '' Purpose : To generate biometric gid
    ''-------------------------------------------------------------------//
    Public Function GetBiometricGID() As String
        Dim lsSeqNo As String
        objdbconn.OpenConn()
        msSQL = "Select max(biometric_gid) as maxgid from hrm_mst_tbiometric"
        objOdbcDataReader = objdbconn.GetDataReader(msSQL)
        If objOdbcDataReader.HasRows = True Then
            lsSeqNo = objOdbcDataReader.Item("maxgid").ToString
            If lsSeqNo = "" Then
                lsSeqNo = "1000"
            Else
                lsSeqNo = Val(lsSeqNo) + 1
            End If
        End If
        objOdbcDataReader.Close()
        objdbconn.CloseConn()
        Return lsSeqNo
    End Function

    Public Function getMasterGID(ByVal pModule_Code As String) As String
        Dim lsSeqNo As Integer
        objdbconn.OpenConn()
        msSQL = " select sequence_curval, sequence_format, " & _
                " sequence_code from adm_mst_tsequence " & _
                " where sequence_code = '" & pModule_Code & "'"
        objOdbcDataReader = objdbconn.GetDataReader(msSQL)

        If objOdbcDataReader.HasRows = True Then
            While objOdbcDataReader.Read
                lsSeqNo = objOdbcDataReader.Item("sequence_curval") + 1
                lsTempGid = pModule_Code & Format(Now(), "yyMMdd") & Format(lsSeqNo, "0000")
            End While
        End If
        objOdbcDataReader.Close()

        msSQL = " update adm_mst_tsequence set " & _
                " sequence_curval = '" & lsSeqNo & "' where " & _
                " sequence_code = '" & pModule_Code & "'"
        mnResult = objdbconn.ExecuteNonQuerySQL(msSQL)
        objdbconn.CloseConn()

        If mnResult = 1 Then
            Return lsTempGid
        Else
            Return "E"
        End If
    End Function
    Public Function getlastGID(ByVal pModule_Code As String) As String
        Dim lsSeqNo As Integer
        objdbconn.OpenConn()
        msSQL = " select sequence_curval, sequence_format, " & _
                " sequence_code from adm_mst_tsequence " & _
                " where sequence_code = '" & pModule_Code & "'"
        objOdbcDataReader = objdbconn.GetDataReader(msSQL)

        If objOdbcDataReader.HasRows = True Then
            While objOdbcDataReader.Read
                lsSeqNo = objOdbcDataReader.Item("sequence_curval") + 1
                lsTempGid = pModule_Code & Format(Now(), "yyMMdd") & Format(lsSeqNo, "0000")
            End While
        End If
        objOdbcDataReader.Close()
        objdbconn.CloseConn()
        Return lsTempGid
    End Function

    Public Sub getMaxColumnLengths(ByVal colNames As ArrayList, ByVal refTableName As String, ByRef colMaxLengths As ArrayList)

        Dim dr_tdatareader As OdbcDataReader = Nothing

        '' Append query Prefix
        msSQL = "SELECT "

        '' Append Query field sets to get maxlengths
        For iCnt As Integer = 0 To (colNames.Count - 1)
            If (iCnt > 0) Then
                msSQL = msSQL + ", "
            End If
            msSQL = msSQL + "MAX(LENGTH(" + CStr(colNames.Item(iCnt)) + ")) as column" + iCnt.ToString
        Next

        '' Append query suffix tablename
        msSQL = msSQL + " FROM " + refTableName

        ''//------ Fetch the max length of the sepecified columns from database-------->
        objdbconn.OpenConn()

        dr_tdatareader = objdbconn.GetDataReader(msSQL)

        If dr_tdatareader.HasRows Then

            If dr_tdatareader.Read() Then

                For iCnt As Integer = 0 To (colNames.Count - 1)
                    colMaxLengths.Add(CStr(dr_tdatareader.Item("column" + iCnt.ToString)))
                Next

            End If

        End If

        dr_tdatareader.Close()

        objdbconn.CloseConn()
        ''<---------------------------------------------------------------------------//

    End Sub
    ''//-------------------------------------------------------------------
    '' Author : Hariharan
    '' Date    : 16.11.2010
    '' Purpose : For DropDown Multi Column Purpose
    ''-------------------------------------------------------------------//
    Public Function popMultiColumnDropdown(ByVal keyFieldName As String, ByVal fieldNames As ArrayList, ByVal colMaxLengths As ArrayList, ByRef sqlResults As DataTable) As DataTable

        Dim ddlTable As DataTable
        Dim colNames As New ArrayList

        colNames.AddRange(New String() {"dataTextField", "dataValueField"})

        InitializeTable(colNames, ddlTable)

        '' Iterate through query result table to concatenate columns
        For iCnt As Integer = 0 To (sqlResults.Rows.Count - 1)

            Dim columnString As String = Nothing

            For jCnt As Integer = 0 To colMaxLengths.Count - 1

                If jCnt > 0 Then
                    columnString = columnString + "|"
                End If

                Dim columnValue As String = CStr(sqlResults.Rows(iCnt)(CStr(fieldNames.Item(jCnt))))

                columnString = columnString + String.Format("{0}", concatSpaces(columnValue, CInt(colMaxLengths(jCnt))))

            Next

            ddlTable.Rows.Add(ddlTable.NewRow)

            ddlTable.Rows(ddlTable.Rows.Count - 1)(CStr(colNames.Item(0))) = columnString
            ddlTable.Rows(ddlTable.Rows.Count - 1)(CStr(colNames.Item(1))) = sqlResults.Rows(iCnt)(keyFieldName).ToString

        Next

        Return ddlTable

    End Function
    Public Shared Function concatSpaces(ByVal inputStr As String, ByVal totalLength As Integer) As String
        Dim spaceCount As Integer = totalLength - inputStr.Length
        Dim spaces As String = inputStr
        For i As Integer = 0 To spaceCount - 1
            spaces &= " "
        Next
        Return HttpUtility.HtmlDecode(spaces)
    End Function
    Public Function getCODEGID(ByVal pModule_Code As String) As String
        Dim lsSeqNo As Integer
        objdbconn.OpenConn()
        msSQL = " select sequence_curval, sequence_format, " & _
                " sequence_code from adm_mst_tsequence " & _
                " where sequence_code = '" & pModule_Code & "'"
        objOdbcDataReader = objdbconn.GetDataReader(msSQL)

        If objOdbcDataReader.HasRows = True Then
            While objOdbcDataReader.Read
                lsSeqNo = objOdbcDataReader.Item("sequence_curval") + 1
                lsTempGid = pModule_Code & Format(lsSeqNo, "0000")
            End While
        End If
        objOdbcDataReader.Close()

        msSQL = " update adm_mst_tsequence set " & _
                " sequence_curval = '" & lsSeqNo & "' where " & _
                " sequence_code = '" & pModule_Code & "'"
        mnResult = objdbconn.ExecuteNonQuerySQL(msSQL)
        objdbconn.CloseConn()

        If mnResult = 1 Then
            Return lsTempGid
        Else
            Return "E"
        End If
    End Function
    Public Function getassetCODEGID(ByVal pModule_Code As String) As String
        Dim lsSeqNo As Integer
        objdbconn.OpenConn()
        msSQL = " select sequence_curval, sequence_format, " & _
                " sequence_code from ams_mst_tassetsequence " & _
                " where sequence_code = '" & pModule_Code & "'"
        objOdbcDataReader = objdbconn.GetDataReader(msSQL)

        If objOdbcDataReader.HasRows = True Then
            While objOdbcDataReader.Read
                lsSeqNo = objOdbcDataReader.Item("sequence_curval") + 1
                lsTempGid = pModule_Code & Format(lsSeqNo, "0000")
            End While
        End If
        objOdbcDataReader.Close()

        msSQL = " update ams_mst_tassetsequence set " & _
                " sequence_curval = '" & lsSeqNo & "' where " & _
                " sequence_code = '" & pModule_Code & "'"
        mnResult = objdbconn.ExecuteNonQuerySQL(msSQL)
        objdbconn.CloseConn()

        If mnResult = 1 Then
            Return lsTempGid
        Else
            Return "E"
        End If
    End Function
    Public Sub LogForAudit(ByVal strVal As String)
        Try
            Dim sw As StreamWriter = File.AppendText(ConfigurationManager.AppSettings("LOG_FILENAME").ToString)
            sw.WriteLine(Now() & " : " & strVal)
            sw.Close()
        Catch ex As Exception
        End Try
    End Sub
    Public Function getTransGID(ByVal pModule_Code As String, ByVal pTable_Name As String, ByVal pPrimaryKey As String) As String
        Dim lsSeqNo As Integer
        Dim lsTempGid As String

        objdbconn.OpenConn()
        msSQL = " select * from " & pTable_Name & " where " & pPrimaryKey & " like '%" & Format(Now(), "yyMMdd") & "%'"
        objOdbcDataReader = objdbconn.GetDataReader(msSQL)

        If objOdbcDataReader.HasRows = False Then
            objOdbcDataReader.Close()
            msSQL = " update adm_mst_tsequence set " & _
                    " sequence_curval = '1' where " & _
                    " sequence_code = '" & pModule_Code & "'"
            mnResult = objdbconn.ExecuteNonQuerySQL(msSQL)
            Return pModule_Code & Format(Now(), "yyMMdd") & "0001"
        End If
        objOdbcDataReader.Close()

        msSQL = " select sequence_curval, sequence_format, " & _
                " sequence_code from adm_mst_tsequence " & _
                " where sequence_code = '" & pModule_Code & "'"
        objOdbcDataReader = objdbconn.GetDataReader(msSQL)
        If objOdbcDataReader.HasRows = True Then
            objOdbcDataReader.Read()
            lsSeqNo = objOdbcDataReader.Item("sequence_curval") + 1
            lsTempGid = pModule_Code & Format(Now(), "yyMMdd") & Format(lsSeqNo, "0000")
            objOdbcDataReader.Close()
        Else
            objOdbcDataReader.Close()
            Return "E"
        End If

        msSQL = " update adm_mst_tsequence set " & _
                " sequence_curval = '" & lsSeqNo & "' where " & _
                " sequence_code = '" & pModule_Code & "'"
        mnResult = objdbconn.ExecuteNonQuerySQL(msSQL)

        If mnResult = 1 Then
            Return lsTempGid
        Else
            Return "E"
        End If
    End Function

    Protected Friend Function GetDateFormat(ByVal pDate As String) As String
        If Len(pDate) = 0 Then
            Return "0000-00-00"
        End If
        lstLeftDate = Microsoft.VisualBasic.Left(pDate, 3)
        lstLeftDate = Microsoft.VisualBasic.Right(lstLeftDate, 1)
        Select Case lstLeftDate
            Case "-"
                mstemp = Split(pDate, "-")
            Case "/"
                mstemp = Split(pDate, "/")
        End Select

        If mstemp.Length < 3 Then
            Return "E"
        End If

        If Len(mstemp(2)) = 2 Then
            mstemp(2) = "20" & mstemp(2)
        ElseIf Len(mstemp(2)) = 1 Then
            mstemp(2) = "200" & mstemp(2)
        ElseIf Len(mstemp(2)) <> 4 Then
            Return "E"
        End If
        msDate = mstemp(2) & "-" & mstemp(1) & "-" & mstemp(0)
        Return msDate
    End Function
    'Encrypt the password
    Public Function ConvertToAscii(ByVal userText As String) As String
        Dim iIndex As Integer
        Dim lenOfUserString As Integer
        Dim newUserPass As String
        Dim tmp As String
        lenOfUserString = Len(userText)
        newUserPass = ""
        For iIndex = 1 To lenOfUserString
            tmp = Mid(userText, iIndex, 1)
            tmp = Asc(tmp) - lenOfUserString
            newUserPass = newUserPass & IIf(tmp.Length < 3, "0", "") & tmp
        Next
        ConvertToAscii = newUserPass
    End Function
    Public Function ValidatePwd(ByVal pwd As String) As String
        ValidatePwd = ""
        If Len(pwd) < 6 Then
            'ValidatePwd = "LengthError"
            'Exit Function
            Return "ERR_PC006"
        End If
    End Function
    Private Function SearchChar(ByVal SrcStr As String, ByVal SearchStartChar As String, ByVal SearchEndChar As String) As Boolean
        Dim i As Integer, l As Integer
        Dim CharAsc As Integer
        Dim StartCharAsc As Integer
        Dim EndCharAsc As Integer
        l = Len(SrcStr)
        SearchChar = False
        For i = 1 To l
            CharAsc = Asc(Mid(SrcStr, i, 1))
            StartCharAsc = Asc(SearchStartChar)
            EndCharAsc = Asc(SearchEndChar)

            If CharAsc >= StartCharAsc And CharAsc <= EndCharAsc Then
                SearchChar = True
                Exit Function
            End If
        Next i
    End Function

    Private Function SearchStr(ByVal SrcStr As String, ByVal SearchChar As String) As Boolean
        Dim l As Integer
        Const SpecialChar As String = "!#@$+^"

        l = Len(SpecialChar)
        SearchStr = False

        Select Case True
            Case CBool(InStr(1, SrcStr, "!")), _
                 CBool(InStr(1, SrcStr, "#")), _
                 CBool(InStr(1, SrcStr, "@")), _
                 CBool(InStr(1, SrcStr, "$")), _
                 CBool(InStr(1, SrcStr, "+")), _
                 CBool(InStr(1, SrcStr, "^"))
                SearchStr = True
        End Select
    End Function

    Public Function QuoteFilter(ByVal txt As String) As String
        QuoteFilter = Trim(Replace(Replace(Replace(txt, "'", "''"), """", """"""), "\", "/"))
    End Function
    Public Function LoginValidate(ByVal PassUserCode As String, ByVal PassPassword As String) As String
        msEncryptedPassword = ConvertToAscii(PassPassword)

        objdbconn.OpenConn()
        msSQL = "select password_suspend from adm_mst_tuser where user_code='" & PassUserCode & "' "
        objOdbcDataReader = objdbconn.GetDataReader(msSQL)
        If objOdbcDataReader.HasRows = False Then
            objOdbcDataReader.Close()
            objdbconn.CloseConn()
            Return "ERR_LG001"
        End If

        While objOdbcDataReader.Read
            mspassword_suspend = objOdbcDataReader.Item("password_suspend") & ""
        End While
        objOdbcDataReader.Close()

        If mspassword_suspend = "Y" Then
            objdbconn.CloseConn()
            Return "ERR_LG002"
        End If

        msSQL = "select user_code, password_changedate, " & _
                " user_password, password_suspend from " & _
                " adm_mst_tuser where " & _
                " user_code='" & PassUserCode & "' and " & _
                " user_password = '" & msEncryptedPassword & "'"
        objOdbcDataReader = objdbconn.GetDataReader(msSQL)

        If objOdbcDataReader.HasRows = False Then
            objOdbcDataReader.Close()
            objdbconn.CloseConn()
            Return "ERR_LG003"
        End If
        objOdbcDataReader.Close()
        objdbconn.CloseConn()
        Return "SUC_LG001"
    End Function

    Public Function ChangePassword(ByVal PassUserCode As String, ByVal PassOldPassword As String, ByVal PassNewPassword As String, ByVal PassConfirmPassword As String) As String
        Dim msEncryptedOldPassword As String
        Dim msEncryptedNewPassword As String

        If Not PassConfirmPassword = PassNewPassword Then
            'ChangePassword = "Confirm Password Mismatch"
            Return "ERR_CP008"
        End If

        msEncryptedOldPassword = ConvertToAscii(PassOldPassword)
        msEncryptedNewPassword = ConvertToAscii(PassNewPassword)

        objdbconn.OpenConn()

        msSQL = " select user_gid from adm_mst_tuser where " & _
                " user_code = '" & PassUserCode & "' and " & _
                " user_password ='" & msEncryptedOldPassword & "' "
        objOdbcDataReader = objdbconn.GetDataReader(msSQL)
        If objOdbcDataReader.HasRows = False Then
            objOdbcDataReader.Close()
            objdbconn.CloseConn()
            Return "ERR_CP006"
        End If
        objOdbcDataReader.Close()

        msSQL = " select user_gid from adm_mst_tuser where " & _
                " user_code = '" & PassUserCode & "' and (" & _
                " user_password1 = '" & msEncryptedNewPassword & "' OR " & _
                " user_password2 = '" & msEncryptedNewPassword & "' OR " & _
                " user_password3 = '" & msEncryptedNewPassword & "' OR " & _
                " user_password4 = '" & msEncryptedNewPassword & "' OR " & _
                " user_password5 = '" & msEncryptedNewPassword & "' )"
        objOdbcDataReader = objdbconn.GetDataReader(msSQL)
        If objOdbcDataReader.HasRows = True Then
            objOdbcDataReader.Close()
            objdbconn.CloseConn()
            Return "ERR_CP007"
        End If
        objOdbcDataReader.Close()

        msSQL = " update adm_mst_tuser set " & _
                " user_password1 = user_password2, " & _
                " user_password2 = user_password3, " & _
                " user_password3 = user_password4, " & _
                " user_password4 = user_password5, " & _
                " user_password5 = user_password, " & _
                " user_password = '" & msEncryptedNewPassword & "'," & _
                " password_changedate = '" & Format(DateAndTime.Now, "yyyy-MM-dd hh:mm:ss") & "'" & _
                " where user_code='" & PassUserCode & "' "
        mnResult = objdbconn.ExecuteNonQuerySQL(msSQL)
        objdbconn.CloseConn()
        Return "SUC_CP001"
    End Function

    Public Function ResetPassword(ByVal PassUserGID As String, ByVal PassNewPassword As String, ByVal PassConfirmPassword As String)

        Dim msEncryptedNewPassword As String

        If Not PassConfirmPassword = PassNewPassword Then
            'ChangePassword = "Confirm Password Mismatch"
            Return "ERR_CP008"
        End If

        msEncryptedNewPassword = ConvertToAscii(PassNewPassword)

        objdbconn.OpenConn()
        msSQL = " select user_gid from adm_mst_tuser where " & _
                " user_gid = '" & PassUserGID & "' and (" & _
                " user_password1 = '" & msEncryptedNewPassword & "' OR " & _
                " user_password2 = '" & msEncryptedNewPassword & "' OR " & _
                " user_password3 = '" & msEncryptedNewPassword & "' OR " & _
                " user_password4 = '" & msEncryptedNewPassword & "' OR " & _
                " user_password5 = '" & msEncryptedNewPassword & "' )"

        objOdbcDataReader = objdbconn.GetDataReader(msSQL)
        If objOdbcDataReader.HasRows = True Then
            objOdbcDataReader.Close()
            objdbconn.CloseConn()
            Return "ERR_CP007"
        End If
        objOdbcDataReader.Close()

        msSQL = " update adm_mst_tuser set" & _
                " user_password1 = user_password2, " & _
                " user_password2 = user_password3, " & _
                " user_password3 = user_password4, " & _
                " user_password4 = user_password5, " & _
                " user_password5 = user_password, " & _
                " user_password = '" & msEncryptedNewPassword & "'," & _
                " password_changedate = '" & Format(DateAndTime.Now, "yyyy-MM-dd hh:mm:ss") & "'" & _
                " where user_gid = '" & PassUserGID & "' "
        mnResult = objdbconn.ExecuteNonQuerySQL(msSQL)
        objdbconn.CloseConn()
        Return "SUC_CP001"
    End Function



    Public Function getBatchGID(ByVal pModule_Code As String) As String
        Dim lsSeqNo As Integer
        objdbconn.OpenConn()
        msSQL = " select sequence_curval, sequence_format, " & _
                " sequence_code from adm_mst_tsequence " & _
                " where sequence_code = '" & pModule_Code & "'"
        objOdbcDataReader = objdbconn.GetDataReader(msSQL)

        If objOdbcDataReader.HasRows = True Then
            While objOdbcDataReader.Read
                lsSeqNo = objOdbcDataReader.Item("sequence_curval") + 1
                lsTempGid = pModule_Code & Format(lsSeqNo, "0000")
            End While
        End If
        objOdbcDataReader.Close()

        msSQL = " update adm_mst_tsequence set " & _
                " sequence_curval = '" & lsSeqNo & "' where " & _
                " sequence_code = '" & pModule_Code & "'"
        mnResult = objdbconn.ExecuteNonQuerySQL(msSQL)
        objdbconn.CloseConn()

        If mnResult = 1 Then
            Return lsTempGid
        Else
            Return "E"
        End If
    End Function
    Public Shared Function StrToByteArray(ByVal str As String) As Byte()
        'create our encoder
        Dim encoding As New System.Text.ASCIIEncoding()
        'the byte[] containing our string
        Return encoding.GetBytes(str)
    End Function
    Public Shared Function ByteToStringArray(ByVal byteStr As Byte()) As String
        'Create our encoder
        Dim enc As New System.Text.ASCIIEncoding()
        'return our decoded string
        Return enc.GetString(byteStr)
    End Function
    Public Function HttpEncodeFilePath(ByVal ValueToEncode As Object) As String
        'variable to hold our path
        Dim fp As String = TryCast(ValueToEncode, String)
        'variable to olde our byte array
        Dim To64 As String = Convert.ToBase64String(StrToByteArray(fp))
        'return the formatted base64 string
        Return String.Format(To64, HttpUtility.UrlEncode(To64))
    End Function
    Public Function HttpDecodeFilePath(ByVal ValueToDecode As Object) As String
        'Get the value of our filepath and URL Decode it
        Dim fp As String = HttpUtility.UrlDecode(TryCast(ValueToDecode, String))
        'Convert our string back to Base64
        Dim From64 As Byte() = Convert.FromBase64String(fp)
        'return a Base64 string
        Dim Base64 As String = ByteToStringArray(From64)
        Return String.Format(Base64, ByteToStringArray(From64))
    End Function
    Public Function isEmail(ByVal inputEmail As String) As Boolean
        'inputEmail = NulltoString(inputEmail)
        Dim strRegex As String = "^([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}" & "\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\" & ".)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$"
        Dim re As New Regex(strRegex)
        If re.IsMatch(inputEmail) Then
            Return (True)
        Else
            Return (False)
        End If

    End Function
    Public Function Menus(ByVal module_code As String, ByVal usergid As String)
        Dim strStringBuilder1 As New StringBuilder("")
        Dim grouptype, grouptype2 As String
        Dim i As Integer = 0
        objdbconn.OpenConn()
        msSQL = "select * from adm_mst_tmodule where module_code='" & module_code & "'"
        objOdbcDataReader = objdbconn.GetDataReader(msSQL)
        If objOdbcDataReader.HasRows = True Then
            msSQL = " select a.* from adm_mst_tmodule a,adm_mst_tprivilege b,adm_mst_tuser c where a.module_gid_parent='" & objOdbcDataReader.Item("module_gid").ToString & "'" & _
                " and a.module_gid=b.module_gid and c.user_gid='" & usergid & "' and b.usergroup_gid=c.usergroup_gid order by display_order"
            objOdbcDataReader = objdbconn.GetDataReader(msSQL)
            If objOdbcDataReader.HasRows = True Then
                'panelsubmenus.Controls.Add(New LiteralControl(strStringBuilder1.ToString))
                strStringBuilder1.Remove(0, strStringBuilder1.Length)
                strStringBuilder1.Append("
")
                strStringBuilder1.Append("")
                While objOdbcDataReader.Read
                    If i = 0 Then
                        strStringBuilder1.Append("

")
                        strStringBuilder1.Append("")
                    Else
                        If grouptype = objOdbcDataReader.Item("group_type") Then
                            strStringBuilder1.Append("")
                            strStringBuilder1.Append("")
                strStringBuilder1.Append("")
                strStringBuilder1.Append("

" & objOdbcDataReader.Item("module_name") & "

")
                        strStringBuilder1.Append("")
                        strStringBuilder1.Append("")
                        strStringBuilder1.Append("

")
                            strStringBuilder1.Append("")
                        Else
                            strStringBuilder1.Append("

" & objOdbcDataReader.Item("module_name") & "
") strStringBuilder1.Append("") strStringBuilder1.Append("") strStringBuilder1.Append("	") strStringBuilder1.Append("") strStringBuilder1.Append("

")
                            strStringBuilder1.Append("")

                        End If
                    End If
                    i = i + 1
                    grouptype = objOdbcDataReader.Item("group_type")
                End While
                strStringBuilder1.Append("

" & objOdbcDataReader.Item("module_name") & "
") strStringBuilder1.Append("") strStringBuilder1.Append("") strStringBuilder1.Append("	") strStringBuilder1.Append("") strStringBuilder1.Append("

")
                'panelsubmenus.Controls.Add(New LiteralControl(strStringBuilder1.ToString))
                'strStringBuilder1.Remove(0, strStringBuilder1.Length)
            End If

        End If
        objdbconn.CloseConn()
        Return strStringBuilder1
    End Function
End Class

killer plants

2009-08-21T19:12:00.000-07:00

Hi friends this is one of the dangerous plants i have heard about. Scientists have discovered a flesh-eating plant so big that it can swallow and devour a whole rat! This new species is called Nepenthes attenboroughii, it can grow more than 4-foot long.Those plants produce big pitchers which are filled with water and they also secrete nectar that attracts insects and rodents. Once those poor creatures fall in, they cannot escape and end up drowning, and then, the acids and enzymes do their job. Generally, only the bones of the prey remain... Really amazing...

after a long time

2009-08-19T05:11:00.000-07:00

hi friends,
Nice to see you all after a long long time. I'm back. Do stay in touch and have fun.... have a good day guys....

Two Two-Tons

2008-10-30T12:06:00.000-07:00

Hi friends, today Gautham Gambhir and V.V.S. Laxman made double hundreds in first innings of third test match against Australia. This was the first ever double hundreds hit by two Indians against Aussies. They both stunned the Australians by big partnerships too. Both were aggressive as the game progresses. They made the Indians to dominate the Aussies again. It's a good sign for Indian cricket.

Laxman's knock

2008-10-30T11:59:00.000-07:00

Hi friends, today V.V.S. Laxman did a splendid performance and made his second double hundred against Australia. He was unbeaten on 200. Many criticized him for his batting performance. And he has knocked everyone of it. He was aggressive as the game progresses. He has a massive average against the Aussies. He got passed 2000 runs against Australia in test cricket. He is really Very Very Special.

Gambhir first double

2008-10-30T11:47:00.000-07:00

Hi friends, today Gautham Gambhir made his first ever double hundred against Australia. He made it with the best wishes from dare devil Sehwag scribbled at bottom of his bat. He stunned everyone by passing century with a six. Gauthy was aggressive as the game progresses. Aussies tried to distract him, but he did it with confidence till the end. He has performed well in twenty twenty cricket and in one day cricket and his passion continues in test cricket too. It's a good sign for Indian cricket.

Dada Rocks

2008-10-18T05:19:00.000-07:00

Hi friends, our dada Ganguly strikes a big century and have passed 7000 run mark in test cricket. I’m sure that it’s happy news for all the dada fans. He is performing too well as he has planned to say good bye after this series. The senior players have done well in the first innings of the second test, resulting in a burden for Aussies win. Proud to be an Indian.

Sachin made us proud

2008-10-17T13:21:00.000-07:00

Hi friends, this will be a great memorable day for every Indian. Our little master Sachin has made each of us feel proud. He crossed the Brian lara’s record of most runs in test matches. He is the only one in the world to reach the 12000 run mark in test cricket. Sachin is world number one in one day cricket as well as test cricket. No one can stop him breaking records. Proud to be an Indian.

India Vs Australia, Mohali

2008-10-16T15:41:00.000-07:00

Hi friends, very good morning to you all. We have been waiting for this to happen often. Today the second battle is going to begin between India and Australia. Stuart Clarke is ruled out due to elbow injury. Kumble isn’t completely fit too. Is it possible for strong Indian team to win the aussies in this test in Mohali. Lets put our fingers crossed and hope for the India’s win.

Sri Rangam Temple

2008-10-16T15:38:00.000-07:00

Hi friends, this temple is located in tamilnadu, India. The Temple of Srirangam in the Indian city of Tiruchirapalli, is the largest functioning Hindu temple in the world. The temple is enclosed by 7 concentric walls with a total length of 32,592 feet or over six miles. These walls are enclosed by 21 Gopurams. Among the marvels of the temple is a "hall of 1000 pillars"

Ankor Wat

2008-10-16T15:13:00.000-07:00

Hi friends, this is the largest temple in the history and the inspiration to countless novels and action movies of Hollywood Ankor Wat. Ankor Wat is a temple complex at Angkor, Cambodia, built in the early 12th century. As the best-preserved temple at the site, it is the only one to have remained a significant religious center since its foundation.

Punjab Golden Temple

2008-10-15T13:39:00.001-07:00

This temple is situated in India. This is Punjabi’s home temple. The Harmandir Sahib (meaning The Abode of God) or simply the Golden Temple in Punjab, India is the most sacred shrine of Sikhism. It is located in the city of Amritsar, which was established by Guru Ram Das, the fourth guru of the Sikhs.

Borobudur

2008-10-15T13:36:00.000-07:00

In the 19th century, Dutch occupiers of Indonesia found a massive ancient ruin deep in the jungles of Java. What they discovered was the complex of Borobudur, a gigantic structure built with nearly 2 million cubic feet of stones. The temple has nearly 2,700 relief panels and 504 Buddha statues.

Chion-in Temple

2008-10-15T13:23:00.000-07:00

This temple is most popular among Chinese people. It is also one of the popular temples in the world. Chion-in Temple was built in 1234 CE to honor the founder of Jodo (Pure Land) Buddhism, a priest named Honen, who fasted to death in the very spot.

Deepest Swimming Pool

2008-10-14T14:01:00.000-07:00

Nemo 33 is a recreational diving center in Brussels, Belgium that is home to the world's deepest swimming pool. The pool itself consists of a submerged structure with flat platforms at various depth levels. The pool has two large flat-bottomed areas at depth levels of 5m (16 ft) and 10m (32 ft), and a large circular pit descending to a depth of 33m (108 ft). It is filled with 2,500,000 litres of non-chlorinated, highly filtered spring water maintained at 30°C (86°F) and contains several simulated underwater caves at the 10m depth level. There are numerous underwater windows that allow outside visitors to look into the pools at various depths.

Round Transparent Ball

2008-10-14T13:57:00.000-07:00

Hi friends, here floats a bubble in the air. It looks like a round transparent ball. Have a closer look at the bubble, the whole sky gets reflected in that transparent bubble. It has its own beauty. These are the one of the things we admire in real life.

Polar Lights

2008-10-14T13:54:00.000-07:00

Auroras are natural light displays in the sky, usually observed at night, particularly in the polar zone. They typically occur in the ionosphere. The aurora borealis is also called the northern polar lights, as it is only visible in the sky from the Northern Hemisphere. The aurora borealis most often occurs from September to October and from March to April. This was taken in Oxararfoss in Iceland.

Prambanan, Indonesia

2008-10-14T13:52:00.000-07:00

Prambanan is a Hindu temple in Central Java, Indonesia. The temple was built in 850 CE, and is composed of 8 main shrines and 250 surrounding smaller ones. This is one of the largest Hindu temples in south-east Asia.

Wat Rong Khun, Thailand

2008-10-14T13:49:00.001-07:00

It’s Wat Rong Khun in Chiang Mai, Thailand. This temple has a fine blend of traditional Buddhist art with contemporary themes. The temple is almost entirely white, no other colors are used. It is though decorated with small pieces of mirrored glass which add substantially to the temple’s spacious and airy feel. Designed to be viewed in moonlight, if you can manage to get there when the moon is out it’s worth the effort, very nice indeed. This temple is certainly worth a visit unless you have limited time.

Shwedagon Paya

2008-10-14T13:43:00.000-07:00

No one knows exactly when the Shwedagon Paya in Myanmar was built - legend has it that it is 2,500 years old though archaeologists estimate that it was built between the 6th and 10th century. This temple is also known as the Golden Pagoda, is a 98-meter (approx. 321.5 feet) gilded stupa located in Yangon, Burma.

above the clouds

2008-10-12T13:43:00.000-07:00

Hi friends, this shot was taken thousands and thousands of miles away from floor. Can’t you guess? Yes this shot was taken above the clouds. This picture was photographed during the flight from Vienna to Frankfurt, approaching Frankfurt.

waves - one more time

2008-10-12T13:41:00.000-07:00

Hi friends, see how huge the waves are rising. That’s really horrible to swim in those big big waves as they may take us away with the great force of water. Most of the people cannot withstand and therefore at most times, this results in loss of lives.

cock fight

2008-10-12T13:37:00.000-07:00

Hi friends, this post is about cock fight. The cock fight is popular among villages in India. In ancient times, the people earned money through cock fights. A small sharp metal like knife will be tied to one of legs of cock and made to fight on other cock. A person who has his cock died loses and the other wins. This was pass time gambling for most people in villages.

all alone

2008-10-11T13:57:00.000-07:00

This is dangerous as seen in the picture. Can you see a man sitting over the edge of the big stone? I’m sure that it’ll be thousands of feet from ground. If you think of being there, you’ll be dumb struck. This shot is taken on a Norway's cliff Prekestolen (also known as Preacher's Pulpit).

exactly timed

2008-10-11T13:55:00.000-07:00

Hi friends, this picture is taken at exact right time. See the group of birds flying over in sea and watch that single solo bird eager to take its prey, this is one of the rare images which is exactly timed and photographed.

bird and water

2008-10-11T04:25:00.001-07:00

Hi friends, see the cute bird relaxing in water. The bird exercises its head in water. It does it so faster in fraction of time and it was beautifully photographed by a person. This is a very nice picture taken at right time.

skier's paradise

2008-10-11T04:25:00.000-07:00

Hi friends, the looks of this picture are great. See the clouds and snow mingled each other. Climbing partner at 17,000′ on Denali carrying his skis down to around 16,200′ where he will be able to ski down the rest of the way to base camp at 7200′. This picture is really cool.

red october

2008-10-11T04:22:00.000-07:00

Hi friends, wherever the sun rises it adds more beauty to the existing nature. That’s a universal truth. If you don agree have a look at this picture. See how the sun rises over Bogie Lake in Michigan. The red sun with water, clouds, flowers and mountains looks great.

crystal clarity

2008-10-11T04:18:00.001-07:00

Hi friends, have a look at the boy spreading the fishing nets in early morning to catch fishes. The clarity of this picture is clear and amazing. The small waves of water moving away from the net just placed in the water looks something wonderful.

northern lights from space

2008-10-09T12:31:00.000-07:00

Hi friend, have a guess at this picture. This seems to have blue color spread around. This stunning picture is nothing but the Northern lights as seen from space. See the rays of light, they look too pretty.

shanghai acrobatic show

2008-10-09T12:29:00.000-07:00

Acrobatics is an interactive art form. This is a great entertainment for all viewers. Everyone, young or old, educated or not, can easily appreciate it while watching or seeing the acrobats perform. You will truly have an unforgettable experience of your life. They are held each night and last for about 2 hours. This picture was taken during an acrobatic show in a Shanghainese theatre.

nice shot

2008-10-09T12:26:00.000-07:00

This image was taken in Changa Beach, Coquimbo. The color composition of this image is really amazing. If you have a closer look at the picture, you can see Jesus Christ statue situated in corcovado mountain, brazil. This is awesome.

Pigeon Point Light House

2008-10-08T12:41:00.000-07:00

Hi friends, this Pigeon Point Light house was built in 1871. This is used to guide ships and it is one of tallest lighthouse in United States. Once per year at the Pigeon Point Lighthouse they shut down the weak insipid modern (presumably electric) light and switch over the 5 kerosene lamps and Fresnel lens of the original, as it was 135 years ago.

Tiger's Nest Monastery

2008-10-08T12:37:00.000-07:00

Hi friends, this is one of the top temples in the world. This is Tiger’s Nest Monastery. This temple is perched on the edge of 3000 feet high from ground. Tiger's Nest is the most famous of Bhutan's monasteries. This is one of holiest place in Bhutan. This is a place of pilgrimage for Buddhists. This is really amazing to see.

Family of bugs

2008-10-08T12:34:00.000-07:00

Hi friends, these bugs have nice texture and color. These bugs are not more harmful to humans. They impress us with attractive colors in groups. This is a very nice photograph of colorful bugs.

mount fugi

2008-10-07T11:51:00.000-07:00

Hi friends, this is mount fugi. See the mountain covered with clouds, some portion of snow around it and the beautiful blue sky. These add more beauty to this image. This photo was taken in Japan.

time to go home

2008-10-07T11:49:00.000-07:00

Hey it’s time to go home. See the unity among that beautiful group of birds. We the humans have to learn much from it. The way the birds are lined up makes the composition extraordinary fantastic. It’s awesome.

two ways at looking at a fish

2008-10-07T11:44:00.000-07:00

In our daily life, some need us and some may not. See this picture, it tells you one among those. The baby admires at the fish in the fish bowl, but the cat thinks of eating it in no time. This is the way, the world is today. So think and act smart such that everyone needs you.

refashioned dahlia

2008-10-06T12:13:00.001-07:00

Dahlia is a genus of bushy, tuberous, perennial plants native to Mexico, Central America, and Colombia. There at least 36 species of Dahlia. Dahlia hybrids are commonly grown as garden plants. The Aztecs gathered and cultivated the dahlia for food, ceremony, as well as decorative purposes, and the long woody stem of one variety was used for small pipes. This photo was taken at Duncan Garden in Spokane, WA.

bird and meat

2008-10-06T12:11:00.000-07:00

Hi friends, can you guess what that cute bird have with it. It is the nothing but a piece of meat. That bird is ready to have it. This is really a very nice photography. This picture is damn cute.

water drop

2008-10-06T12:09:00.000-07:00

A photo which was taken at the exact right time. You should have seen this picture more often. Because this picture has more popularity and will be available as desktop wallpaper in various resolutions.

seagull on a sign

2008-10-05T16:08:00.000-07:00

Obviously the human’s nature is to break the rules and not to abide by it. In real life most of them don’t follow the rules and get charged for not following it. Have a look at this picture. This seagull seems to have its own personal understanding of human's rules. This is something funny.

swimming pool

2008-10-05T16:05:00.000-07:00

Generally opinions differ from person to person depending on how they take things. The same happens here. The views too differ as such. Many love to be different. Take a look at the swimming pool in this image. It is pictured from a quite different perspective which makes us to think for a while.

glow

2008-10-05T15:41:00.000-07:00

Hi friends, Can u see the amazing natural trees in autumn with reddish orange leaves which makes everyone to attract much. Smoke from the leaf pile adds more beauty to this picture.

if i was an old building

2008-10-04T13:43:00.000-07:00

"If I was an old building I would want to be by the ocean. Till the end of times". This amazing colorful picture was photographed at the old fishing piers of the Texas Bolivar Peninsula.

passing the golden gate bridge

2008-10-04T13:33:00.000-07:00

This is the image of flying machines passing over the golden gate bridge in San Francisco. The golden gate bridge was constructed in1937. This bridge has been an internationally recognized symbol for San Francisco and California.

sea in the sea

2008-10-04T13:29:00.000-07:00

Hi friends, do have a closer look at this picture. This is incredible scenery. Apparently, the shot was made on the boat in the middle of the sea.

autumn in red

2008-10-03T12:40:00.000-07:00

Hi friends, this is what called Pure beauty. There are no words to describe much about these types of pictures. This is the amazing nature in autumn. I like to be alone in such places to enjoy the nature. I hope everyone loves to be there someday.

astronaut-self shot over earth

2008-10-03T12:38:00.001-07:00

Hi friends, can you guess anything from this image? Have a close look at it. You will get through it. It is nothing but our lovely planet. Could this be the best self-shot ever? It is truly out of this world.

leap of faith

2008-10-03T12:29:00.000-07:00

Hi friends, this great picture shows you all about sticking at the edge of peak. Can anyone imagine of being like her. I’m sure most of us will be feared dead at such heights. What does being one step away from falling into the abyss feel like?

train- a different experience

2008-10-02T09:35:00.000-07:00

Hi friends, this is the one of stunning images I have ever seen. Such pictures of this kind are unforgettable. You probably shouldn’t try this in your local trains. Do write your opinions on this picture.

reflection of water

2008-10-01T21:35:00.000-07:00

Hi friends, can u guess what is in the image. It is the droplet of water. The reflection in this water droplet looks like the glitter is stuck to the water, but it is not, it is reflections from the glitter on the feather.

hidden secrets of image

2008-10-01T21:20:00.000-07:00

Hi friends, a very good morning to you all. I’m sure that everyone will have different opinions about this picture. Beautiful sand textures, beautiful composition and somehow a very sad story hidden behind this image.

reflection of sky

2008-10-01T11:39:00.000-07:00

Hi friends this picture reveals the beauty of nature. It’s very beautiful scenery. See how the sky is reflected in a drop of water. That’s really awesome.

see the ball is coming

2008-10-01T11:34:00.000-07:00

The gulf ball is suspended on a fishing line in front of the camera. It was a stormy day. So they would have shot many times for getting one image with the ball in the center position and a light reflection on the golf club. Amazing photography.

water and a girl

2008-10-01T11:23:00.000-07:00

Hi friends, can anyone guess whether this is a real photograph or an excellent painting. This image has very beautiful composition, excellent scenery and amazing play of colors. This is the one of impressive pictures I have seen.

Honda Interceptor

2008-09-10T23:42:00.000-07:00

Hi friends, Honda has planned to launch most powerful VFR800 interceptor which is an 800 cc engine which may cost around 10 lakhs. It is likely to be released by the end of this year.

These are the specifications of VFR800 interceptor:

Engine Type: 781cc liquid-cooled 90° V-4
Bore and Stroke: 72mm x 48mm
Compression ratio: 11.6:1
Valve Train: VTEC DOHC; four valves per cylinder
Induction: PGM-FI with automatic enriched circuit, 36mm throttle bodies and 12-hole injectors
Ignition: Computer-controlled digital with three-dimensional mapping and electronic advance
Transmission: Close-ratio six-speed
Final Drive: #530 O-ring chain
Suspension front: 43mm HMAS cartridge fork with spring preload adjustability; 4.3 inches travel
Suspension rear: Pro Arm single-side swing arm with Pro-Link single HMAS gas-charged shock with seven-position spring preload and rebound damping adjustability; 4.7 inches travel
Brake front: Dual full-floating 296mm discs with LBS three-piston calipers
Brake rear: Single 256mm disc with LBS three-piston caliper; Optional ABS (VFR800FI ABS)
Tyre front: 120/70ZR-17 radial
Tyre rear: 180/55ZR-17 radial
Wheelbase: 57.4 inches
Rake (Caster angle): 25.3°
Trail: 100mm (3.9 inches)
Seat Height: 31.7 inches
Fuel Capacity: 5.8 gallons, including 0.8-gallon reserve
Color: Silver Metallic
Curb Weight: 540 pounds (VFR800FI) / 551 pounds (VFR800FI ABS)

Yamaha R 15

2008-09-08T11:08:00.000-07:00

At present, this is the most powerful engine in two wheelers launched in India. This R15 is powered by 150cc engine which produces 17bhp and ensures that this engine has greater power. The mileage is also pretty decent which ranges from 35 to 45 kmpl. In addition this has liquid cooled engine which is widely used in four wheelers. On the whole, R15 is powerful and attractive but little heavier in cost.

honda stunner

2008-08-31T11:59:00.000-07:00

Hi friends, the honda has launched a great motor vehicle product in India….

It’s none other than CBF Stunner…

It has a powerful engine which can make 0 to 60 in just 5.2 seconds which no other 125cc vehicle does it often…

It has tubeless tires at front and rear with alloy wheels and amazing new looks….

I think it will range around 50k and I hope this stunner will make everyone of us get stunned…..

k750i

2008-08-29T13:37:00.000-07:00

Hi friends, I’ve used almost all the brands in mobiles…. But only one which impressed me very much was k750i… this device looks absolutely handy, this may look small but it has the best features altogether which includes very good cam quality, amazing sound clarity and that too with walkman earplugs it sounds really good. It rocks in each and every specialized features.