How to detect escape key press with javascript

This post has moved to this link

http://unique2026.blogspot.in/2013/08/how-to-detect-escape-key-press-with.html

How to upload image in Sharepoint Document

Hi Frnds,
Some time we need to upload one image for each pages in document library.
So i am uploading one -one image for each page and giving name for image is page name so it would be unique.
This is being stored in one document library.

  Dim spSite As SPSite = New SPSite("yoursite url")
            Dim _web As SPWeb = spSite.OpenWeb()
            Dim slist As SPList = _web.Lists("Content Images")
            Dim sPath As String = System.Web.HttpContext.Current.Request.Url.AbsolutePath
            Dim oInfo As System.IO.FileInfo = New System.IO.FileInfo(sPath)
            Dim sRet As String = HttpUtility.UrlDecode(oInfo.Name)
            Dim imageName As String = sRet.Substring(0, sRet.LastIndexOf("."))
            If FileUploadAttach.HasFile Then
                Dim fileExtension As String = FileUploadAttach.FileName.ToString.Substring(FileUploadAttach.FileName.ToString.LastIndexOf("."))

                imageName = imageName + fileExtension

                Dim destfile As SPFile = slist.RootFolder.Files.Add(slist.RootFolder.Url + "/" + imageName, FileUploadAttach.FileBytes, True)

                Dim item As SPListItem = destfile.Item
                item("Title") = FileUploadAttach.FileName.ToString
                item.Update()
            End If

Thanks and regards
Shailendra Kumar Singh

How to call function inside Repeater

Hi frnds,
Some time we need to edit our items inside repeater. for this condition we can call a function that is being called at item bind inside repeater. This function will be called on every item.

Lets go for one example.
Suppose we are getting Customer name with their mail ID but our requirement is to display only Name .

abc@gmail.com, xyz@gmail.com, dums@gmail.com

These are the customer information but we need to display only
abc,  xyz, dums

so in this condition we can call a function that will give our need , but important point where we will call that
function
So here is the solution

<asp:Label runat="server" id="lblUser" text='<%# userName(Eval("EmailID"))%>' ></asp:Label>

here i am calling one function that's name is "userName()" and passing value EmailID .
This function will return wat we need

Thanks
Shailendra

How to send E-mail using vb.net Code

Here i am trying to send mail using Gmail free smtp.

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Dim mail As New MailMessage()
Dim smtpserver As New SmtpClient("smtp.gmail.com")
mail.From = New MailAddress("your Gmail id")
mail.[To].Add("mail Id Where u want to send mail")
mail.Subject = "mail form pis"
mail.Body = "body message"
mail.IsBodyHtml = True
smtpserver.Port = 587
smtpserver.Credentials =
New System.Net.NetworkCredential("yourmailID", "password")
smtpserver.EnableSsl = True
smtpserver.Send(mail)
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

Thanks
Shailendra Singh

Dynamically Create CAML QUERY

This post has been moved to this link

http://unique2026.blogspot.in/2013/08/dynamically-create-caml-query.html

How to hide ContentPlaceHolder by any user control

 This post has been moved to this link.

http://unique2026.blogspot.in/2013/08/how-to-hide-contentplaceholder-by-any.html

Repeater with Paging

<%@ Control Language="VB" AutoEventWireup="false" CodeFile="RepeaterWithPagingl.ascx.vb" Inherits="WebApplication1_RepeaterWithPagingl" %>
<div>
<asp:Label ID="countR" runat="server"></asp:Label>
<asp:HiddenField id="hdnno" runat="server"/>
<asp:Repeater ID="Employee01" runat="server" >
    <HeaderTemplate>
    <table>
        <tr>
            <td>
                ID
            </td>
            <td>
                Name
            </td>
        </tr>
    </table>
    </HeaderTemplate>
    <ItemTemplate>
        <table>
            <tr>
                <td>
                    <asp:Label ID="EmID" runat="server"
                    Text=' <%#Eval("ID") %>'></asp:Label>
                </td>
                <td>
                    <asp:Label ID="EmpName" runat="server"
                    Text='<%#Eval("FullName") %>'></asp:Label>
                </td>
            </tr>   
        </table>
    </ItemTemplate>
    </asp:Repeater>
    <table>
        <tr>
            <td><asp:LinkButton ID="Prv" runat="server" Text="Prvious"></asp:LinkButton></td>
            <td><asp:LinkButton ID="LinkButton1"
            runat="server" Text="Next"></asp:LinkButton></td>
        </tr>
    </table>
</div>

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

Server side code

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Imports System.Data.SqlClient
Imports System.Data
Imports System.Web.UI.WebControls
Partial Class WebApplication1_RepeaterWithPagingl
    Inherits System.Web.UI.UserControl
    Dim conn As New SqlConnection("Data
    Source=.\SQLEXPRESS;AttachDbFilename=C:\PIS.mdf;Integrated
    Security=True;Connect Timeout=30;User Instance=True")
   
    Dim rowCnt As Integer = 0
    Public Shared currPage As Integer = 0
  
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
    Handles Me.Load
        If Not IsPostBack Then
            hdnno.Value = "0"
            BindData("-2")
        End If
    End Sub


    Public Sub BindData(ByVal pag As String)
        Dim str As String = "select * from Users"
        Dim cmd As New SqlCommand(str, conn)
        Dim cmdAdp As New SqlDataAdapter(cmd)
        Dim DataSet As New DataSet
        cmdAdp.Fill(DataSet)
        rowCnt = DataSet.Tables(0).Rows.Count
        Dim pagData As New PagedDataSource
        pagData.DataSource = DataSet.Tables(0).DefaultView
        pagData.AllowPaging = True
        pagData.PageSize = 2
        pagData.CurrentPageIndex = currPage
        Dim NoOfPage As Integer = rowCnt / pagData.PageSize
        If currPage < 1 Then
            Prv.Enabled = False
        End If
        If currPage > 0 Then
            Prv.Enabled = True
        End If
        If NoOfPage > currPage Then
            LinkButton1.Enabled = True
        End If
        If NoOfPage = (currPage + 1) Then
            LinkButton1.Enabled = False
        End If
        Employee01.DataSource = pagData
        Employee01.DataBind()
    End Sub

/////////
This is the code for Prvious Button
\\\\\\\\
    Protected Sub Prv_Click(ByVal sender As Object, ByVal e As System.EventArgs)
    Handles Prv.Click
        If hdnno.Value <> "" Then
            hdnno.Value = Convert.ToString(CInt(hdnno.Value) - 1)
        Else
            hdnno.Value = "1"
        End If
        currPage = currPage - 1
        countR.Text = currPage
        BindData("-9")
    End Sub

\\\\\\\\
This is the Code for next Button
////////
    Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
    Handles LinkButton1.Click
        If hdnno.Value <> "" Then
            hdnno.Value = Convert.ToString(CInt(hdnno.Value) + 1)
        Else
            hdnno.Value = "1"
        End If
        currPage = currPage + 1
        countR.Text = currPage
        BindData("2")
    End Sub
End Class