Search results matching tag 'vb.net'

Global application user counter is returning unexpected results seems too high

shawn.bordeaux — Fri, 01 Jan 2010 05:00:00 GMT

I have some very basic code that is suppose to allow me to view how many users I have online. This seems to work fine and in fact I can view the username of any online authenticated users. However, the problem is that the result seems to be extremley high and it keeps going up. This is strange because a user can only navigate to the login page if they are not authenticated, however I show many users connecting but then not authenticating. Is there something wrong with my code or could it be some type of phantom web crawlers or bots? The number is going up maybe by one user every other second and it doesn't seem to be dropping at all.

Here is what I have in my global.aspx file;

    Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
        ' Code that runs when a new session is started
        Application("UserCount") += 1
    End Sub

    Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)
        ' Code that runs when a session ends. 
        ' Note: The Session_End event is raised only when the sessionstate mode
        ' is set to InProc in the Web.config file. If session mode is set to StateServer 
        ' or SQLServer, the event is not raised.
        Application("UserCount") -= 1
    End Sub

Code that displays the count as a link;

   Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'Dim userInfo As MembershipUser = Membership.GetUser(User.Identity.Name)
        If Request.IsAuthenticated Then
            ResetPWLabel.Text = "[ <a href='../change_password.aspx'>Change Password</a> ]"
            If Roles.IsUserInRole("Manager") Then
                ' manager logged in display link for count of users
                UserCountLabel.Text = "Online:" & Application("UserCount")
                'use a string to set the link to the count popup page
                Dim str, redirstr As String
                str = "../Manager/onlineusers.aspx"
                'use a little bit of javascript for the popup window
                redirstr = "javascript:void(window.open('" + str + "',null,'scrollbars=1,width=600,HEIGHT=400,top=100,left=300'));"
                'ser the linkbutton onclick event to match our new popup window
                UserCountLinkButton.Attributes.Add("onclick", redirstr)
              End If
        End If


    End Sub

When the link is clicked I have a pop up that will display all authenticated users in a bulletedlist datasource;

 Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim OnlineUsers As New MembershipUserCollection
        Dim AllUsers As New MembershipUserCollection
        AllUsers = Membership.GetAllUsers()

        For Each user As MembershipUser In AllUsers
            If user.IsOnline Then
                OnlineUsers.Add(user)

            End If
        Next
        BulletedList1.DataSource = OnlineUsers
        BulletedList1.DataBind()
    End Sub

Works fine except for the records. Right now I am showing a count of 72 with 1 authenticated user. That count keeps going up... Any suggestions on the root cause here? I am open to any other ideas on how to achieve an accurate counter of current users of the application. Thank you!

Export to excel in IE8 is giving "Microsoft Internet Explorer has encountered a problem and needs to close" error message

sharath babu d.b — Tue, 29 Dec 2009 05:00:00 GMT

I bind 1000 records to datagrid and i using the following code export to excel .

Private Sub cmdETE_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdETE.Click
        Dim intRow, intColomn As Integer
        Dim strValeur, strCSV, strTemp As String
        Dim sbrHTML As New StringBuilder
        Dim myByteArray As Byte()
        Dim strArr As String()
        Dim dblValue As Double

strTemp = "Client Ref,Wrapper,Security,Buy/Sell,Qty/Percent,Narration,Value"

        'Putting Header in the csv file
        sbrHTML.Append(strTemp & ",")
        sbrHTML.Append(ControlChars.NewLine)

        For intRow = 0 To dtgPortModelOrder.Items.Count - 1
            For intColomn = 1 To dtgPortModelOrder.Items(intRow).Cells.Count - 8
                If dtgPortModelOrder.Items(intRow).Cells(intColomn).Text = " " Then
                    strValeur = ""
                Else
                    strValeur = dtgPortModelOrder.Items(intRow).Cells(intColomn).Text
                    If strValeur = "SELL" Then
                        strTemp = strValeur
                    End If
                    If intColomn = 3 Then
                        strArr = strValeur.Split("<")
                        strValeur = strArr(0)
                    ElseIf intColomn = 5 And UCase(strTemp) = "SELL" Then
                        strTemp = ""
                        dblValue = CDbl(strValeur)
                        strValeur = CStr(dblValue)
                    ElseIf intColomn = 7 And strValeur <> "" Then
                        dblValue = CDbl(strValeur)
                        strValeur = CStr(dblValue)
                    End If
                End If
                sbrHTML.Append(strValeur & ",")
            Next
            sbrHTML.Append(ControlChars.NewLine)
        Next

        strCSV = sbrHTML.ToString
        myByteArray = System.Text.Encoding.Default.GetBytes(strCSV)
        Response.ClearHeaders()
        Response.Clear()
        Response.AddHeader("Content-Disposition", "attachment; filename=" & "Model_Orders.csv")
        Response.ContentType = "text/csv"
        Response.BinaryWrite(myByteArray)
        Response.End()

End Sub

it is working IE7, IE6 . but it is Giving the following error in IE8.

"Microsoft Internet Explorer has encountered a problem and needs to close" error message

plz help me. :-)

Re: ASP.NET Developer needed in Baton Rouge, LA

mohammadtanveer — Sat, 26 Dec 2009 05:00:00 GMT

Hello,

I am Tanveer, I have 6+ years of web development experience and have worked on more than 20 websites/web applications like Portals, Ecommerce, Auctions, Multilevel Marketing, Ads Management, Real Estate, Online Jobs, Online Music, Web to SMS, Online News, Online Calssifieds, Shopping Carts.
I have done most of the websites/web applications completely and some in the form of a team using different technologies like Asp.Net,PHP,Wordpress,Joomla,MVC,Ajax,Silverlight,C#.Net,VB.NET,JQuery,Javascript,HTML,CSS,MSSQL Server,MySQL.

Some examples of my work are as follows:

http://thebirthdirectory.com/
http://www.crebn.com/
http://linksexchangedirectory.org/
http://www.capitalcaterers.co.uk/
http://project19.tempowebdesign.co.uk/
http://www.mortanian.com/v2/
http://www.renaissancehomebuilder.com
http://www.coldwatersda.com
http://www.hambelly.com
http://www.nulled2.com/auction
http://www.iraq2us.com
http://www.abtxt.com
http://www.abetterdriver.com
http://www.biotechbuildings.com
http://www.desisong.com
http://www.workforce.com.pk
http://www.pakistanway.com
http://www.phoneride.com
http://www.instawireless.com
http://www.illinoisdivorce.com

My Contact ids:

msn: tanveer_411393@hotmail.com
skype: mohammadtanveer
gtalk: mtanveer@gmail.com
yahoo: mtanveer123@yahoo.com

Re: Looking for experienced freelance .net developer

mohammadtanveer — Wed, 23 Dec 2009 05:00:00 GMT

Hello,

I am Tanveer, I have 6+ years of web development experience and have worked on more than 20 websites/web applications like Portals, Ecommerce, Auctions, Multilevel Marketing, Ads Management, Real Estate, Online Jobs, Online Music, Web to SMS. I have done most of the websites/web applications completely and some in the form of a team using different technologies like HTML, CSS, Javascript, Asp.Net, PHP, MSSQL Server, MySQL, Ajax, Silverlight.

Some examples of my work are as follows:

http://www.crebn.com/
http://thebirthdirectory.com/
http://www.linksexchangedirectory.org/
http://project19.tempowebdesign.co.uk/
http://www.mortanian.com/v2/
http://www.coldwatersda.com
http://www.hambelly.com
http://www.iraq2us.com
http://www.abtxt.com
http://www.abetterdriver.com
http://www.biotechbuildings.com
http://www.desisong.com
http://www.workforce.com.pk
http://www.pakistanway.com
http://www.phoneride.com
http://www.instawireless.com
http://www.illinoisdivorce.com
http://www.nulled2.com/auction Contact ids:

msn: tanveer_411393@hotmail.com
skype: mohammadtanveer
gtalk: mtanveer@gmail.com
yahoo: mtanveer123@yahoo.com

Reset a users Password from a link? Using aspNet_Membership

shawn.bordeaux — Wed, 23 Dec 2009 05:00:00 GMT

Please bare with me on this, I am having a hard time grasping how to do this. First of all I am using VB.

I have about six different roles setup. One of which has admin abilities over another role. Basically I want this admin to be able to reset the passwords of the other users. I know how to check the role authenication but my question is how the heck can I provide a link for them to reset, or change, the users passwords?

I have a search box that pulls a query that displays the users to these admins. I think the best thing to do would be to include a "Reset Password" button that calls a sub that resets the users password. My question is, how exactly would i code this sub? I have reset enabled in my web.config if that helps.

Thank you and best regards,

Shawn

Gridview row_updated event - Need to get updated email address and then send an email on gridview update

shawn.bordeaux — Sun, 20 Dec 2009 05:00:00 GMT

I have a basic gridview that has customers information. When a manager edit's a row I would like an email to be fired off that has the changes that were made. One of the fields that changes can be made to is the customers email address.

I have the email part working fine but when I try to get the updated values of the textboxs is where I always run into errors. What command in VB would I need to set a variable such as ; Dim Email As String = findcontrol("email", TextBox).text ?

I have the edit fields as templates in the gridview and their text boxes are like this,

<asp:TextBox ID="email" runat="server" Text='<%# Bind("email") %>'></asp:TextBox>
<asp:TextBox ID="TextBox7" runat="server" Text='<%# Bind("appointment_date") %>' />

Here is what I have emailing so far;

    Protected Sub GridView3_RowUpdated(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdatedEventArgs) Handles GridView3.RowUpdated
        'send an email when the gridview is updated
        Const ToAddress As String = "test@test.com"  ' need to set this as customers email that we pull from the gridview
        Const UsersEmail As String = "NoReply@justrightreferralnetwork.com"
        '(1) Create the MailMessage instance
           
        Dim email As String = CType(GridView3.FindControl("email"), TextBox).Text   ' This is not working get an error everytime
        ' for the time being set up usersemail as a known address 
        Dim mm As New MailMessage(UsersEmail, ToAddress)

        '(2) Assign the MailMessage's properties
        Dim Subject As String = "Message from the Just Right Referral Network"
        Dim Body As String = "There is updated information about your account. Please login to view the changes."


        mm.Subject = Subject
        mm.Body = Body
        mm.IsBodyHtml = False

        '(3) Create the SmtpClient object
        Dim smtp As New SmtpClient

        '(4) Send the MailMessage (will use the Web.config settings)
        smtp.Send(mm)
    End Sub

Thank you everyone and best regards!

Shawn

Displaying data from CSV file in GridView

ptownbro — Sat, 19 Dec 2009 05:00:00 GMT

I'm trying to display data from a CSV file into a GridView control and it's not working. The code does NOT error out, but for some reason the data isn't being displayed in the GridView. What am I doing wrong?

Code:

Sub Button1_OnClick(Sender As Object, e As EventArgs)
   'Declare Variables
	Dim fsName, fsObject, fsText, fsArray
	Dim myDTable As DataTable = New DataTable
	Dim myDRow As DataRow = myDTable.NewRow

   'Add Column(s) to GridView
	myDTable.Columns.Add("Column02")

   'Read CSV file
	fsName = Server.MapPath(docPathImports) & "test.csv"
	fsObject = fs.OpenTextFile(fsName)
	
   'Read Field Header
	fsText = fsObject.readLine

   'Read Data
	Do While Not fsObject.AtEndOfStream
		fsText = fsObject.readLine
		fsArray = split(fsText, ",")
	
	    If i > 0 Then
	        myDRow.ItemArray = split(fsText, ",")
	        myDTable.Rows.Add(myDRow)
	        myDRow = myDTable.NewRow
	    End If
	    i += 1
	
	    GridView1.DataSource = myDTable
	    GridView1.DataBind()
	Loop
	
   'Close Objects
	fsObject.Close
	fsObject = Nothing
	fs = Nothing
End Sub

Html:

<html>
<head>
</head>

<body>

<form id="Form1" method="post" encType="multipart/form-data" runat="server">

<asp:Button id="Button1" runat="server" Text="Display CSV" OnClick="Button1_OnClick" />

	<asp:GridView runat="server"
	id="GridView1" 
	AutoGenerateColumns="False" 
	Width="100%" 
	CellPadding="3" 
	BorderStyle="Solid" >
</asp:GridView>

</form>

</body>
</html>

Login control.

jaslinrathna — Thu, 17 Dec 2009 05:00:00 GMT

How to add captcha control to create user wizard control ?

i used this link http://www.aspsnippets.com/post/2009/04/03/How-to-implement-Captcha-in-ASPNet.aspx to add captcha control

But how to show error message to the user, if the captcha text and the entered text are different in user wizard control.

URLRewriter.net error.

SureshMali — Sun, 13 Dec 2009 05:00:00 GMT

Hi Friends,

I am getting this error:

Class 'TourNameToIDTransform' must implement 'Function ApplyTransform(input As String) As String' for interface 'Intelligencia.UrlRewriter.IRewriteTransform'.

My code is as below:

Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.ComponentModel
Imports Intelligencia.UrlRewriter

Namespace CustomTransforms
    ''' <summary> 
    ''' Convert a car name into its ID value 
    ''' </summary> 
    Public Class TourNameToIDTransform 'CarNameToIdTransform
        Implements IRewriteTransform
        ''' <summary> 
        ''' The name you reference this custom transform by 
        ''' </summary> 
        Public ReadOnly Property Name() As String
            Get
                Return "TourNameToIDTransform" 'CarNameToIdTransform
            End Get
        End Property

        ''' <summary> 
        ''' Apply the transform 
        ''' </summary> 
        ''' <param name="input"></param> 
        ''' <returns></returns> 
        Public Function ApplyTransform(ByVal input As String) As String
            ' Clean up the input 
            input = input.Replace("_", " ")
            input = HttpUtility.UrlDecode(input)

            ' Look up the car id from a data store 
            Dim TourID As Integer = TourNameToIDTransform(input)

            ' return the value back to the URL 
            Return TourID.ToString()
        End Function

        Public Function TourNameToIDTransform(ByVal TourName As String) As Integer
            Dim TourID As Integer = 0

            ' you would do a real lookup here if this was a production app 
            If TourName.Equals("Ford Fiesta") Then
                TourID = 1234
            End If

            Return TourID
        End Function
    End Class
End Namespace

Somebody please help.. I am badly in need of this. Thanks

Changing Datasource in Crystal Reports 2008 within VS 2008 in webconfig file

sftbldrk22 — Fri, 11 Dec 2009 05:00:00 GMT

Hello,

I am using the Crystal Reports that is packaged up with Visual Studio 2008. I have everything working very nicely locally, but when I went to put it on the server I realized that I have a major issue! The database that I am using locally is not the one that we use on ther servers, so I need to change the datasource. I need a way to change the database from within the webconfig so that our customer only has to change one line in the webconfig for everything to work properly. Does anyone know how to do this? I do not want to have to put all of the database fields on every time I move the application to another datasource!

Thanks!