Get IP Address of Visitor's Machine

Dim ipaddress As String
ipaddress = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If ipaddress = "" Or ipaddress Is Nothing Then
ipaddress = Request.ServerVariables("REMOTE_ADDR")
End If

When users use any proxies or routers the REMOTE_ADDR returns the IP Address of router or proxy and not the client user’s machine. So first we need to check HTTP_X_FORWARDED_FOR.

Confirm Before Page Close

Try using the confirm method on the onUnLoad event:

if (confirm("Are you sure you want to leave) == true)
{ return true; }
else
{ return false; }

Export A File and Delete it from Server

Private Sub DownloadFile()
Response.ContentType = ContentType
Response.AppendHeader("Content-Disposition", _
"attachment; filename=myFile.txt")
Response.WriteFile(Server.MapPath("~/uploads/myFile.txt"))
Response.Flush()
System.IO.File.Delete(Server.MapPath("~/uploads/myFile.txt"))
Response.End()
End Sub

URL Rewritting: Hide Web Page Extentsion

write this code in ur Global.asax

Private Sub Application_BeginRequest(ByVal sender As Object, ByVal e As EventArgs)
Dim fullOrigionalpath As String = Request.Url.ToString()
If Not fullOrigionalpath.EndsWith(".aspx") Then
Context.RewritePath(fullOrigionalpath.Substring(fullOrigionalpath.IndexOf("/", 9)) & ".aspx")
End If
End Sub

Check if Url Exists or not in ASP.NET

Public Shared Function IsValidUrl(ByVal Url As String) As Boolean
Dim sStream As Stream
Dim URLReq As HttpWebRequest
Dim URLRes As HttpWebResponse
Try
URLReq = WebRequest.Create(Url)
URLRes = URLReq.GetResponse()
sStream = URLRes.GetResponseStream()
Dim reader As String = New StreamReader(sStream).ReadToEnd()
Return True
Catch ex As Exception
‘Url not valid
Return False
End Try
End Function

Convert A Number To Month Name and Month Name to Number in ASP.NET

For Converting A Number To Month Name Use:

dim MyMonthNumber as integer = 7
MonthName(MyMonthNumber)

or

Format(New Date(2009, MyMonthNumber, 1), "MMMMM")

-------------------------------------------------------------------------

For Converting A Number To Month Name Use:

dim MyMonthName as String = "July"
CDate("01-" & MyMonthName & "-2009").Month

Get Country Name by Client IP

Add WebService Reference of

http://www.webservicex.net/geoipservice.asmx?wsdl

Here is the code:

Dim objWebServiceX As New webservicex.GeoIPService
Dim countryName As String = objWebServiceX.GetGeoIP(Request.ServerVariables("REMOTE_ADDR")).CountryName
Response.Write(countryName & "
")

Write To A File on Server in ASP.NET

Public Shared Function SaveTextToFile(ByVal strData As String, ByVal fname As String) As Boolean
Try
Dim fs As New FileStream(fname, FileMode.Create, FileAccess.Write)
Dim s As New StreamWriter(fs)
s.BaseStream.Seek(0, SeekOrigin.End)
s.WriteLine(strData)
s.Close()
Return True
Catch ex As Exception
' your exception handler here
End Try
Return False
End Function

VB.NET: Read Registry Value

Imports Microsoft.Win32

dim MyValue as string
MyValue = RegValue(RegistryHive.LocalMachine, "SOFTWARE\Microsoft\Internet Explorer", "Version")

Public Function RegValue(ByVal Hive As RegistryHive, ByVal Key As String, ByVal ValueName As String, Optional ByRef ErrInfo As String = "") As String
Dim objParent As RegistryKey
Dim objSubkey As RegistryKey
Dim sAns As String
Select Case Hive
Case RegistryHive.ClassesRoot
objParent = Registry.ClassesRoot
Case RegistryHive.CurrentConfig
objParent = Registry.CurrentConfig
Case RegistryHive.CurrentUser
objParent = Registry.CurrentUser
Case RegistryHive.DynData
objParent = Registry.DynData
Case RegistryHive.LocalMachine
objParent = Registry.LocalMachine
Case RegistryHive.PerformanceData
objParent = Registry.PerformanceData
Case RegistryHive.Users
objParent = Registry.Users
End Select
Try
objSubkey = objParent.OpenSubKey(Key)
'if can't be found, object is not initialized
If Not objSubkey Is Nothing Then
sAns = (objSubkey.GetValue(ValueName))
End If
Catch ex As Exception
sAns = "Error"
ErrInfo = ex.Message
Finally
If ErrInfo = "" And sAns = "" Then
sAns = "No value found for requested registry key"
End If
End Try
Return sAns
End Function

ASP.NET: Force Page to Use secure connection HTTPS

Sometimes we want to provide secure channel over an insecure network. e.g. for payment transactions. In that case we need HTTPS connection

Assume that your page is as follows: http://www.mydomain.com/mypage.aspx

Just add following code inside Load Event Handler!

If Not Request.IsSecureConnection Then
Response.Redirect("https://www.mydomain.com/mypage.aspx ")
End If

ASP.NET: Binding DataList with Images in a Directory

<%@ Page Language="C#" %>
<%@ Import Namespace="System.IO" %>
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

' style="width:200px" Runat="server" />


<%# Eval("Name") %>

ASP.NET: Programatically Change Page Headers (Title, Stylesheets, Meta)

Private Sub Page_Load()
' Change the title
Page.Header.Title = "My Content Page Title"

' Change the background color
Dim myStyle As New Style()
myStyle.BackColor = System.Drawing.Color.Red
Page.Header.StyleSheet.CreateStyleRule(myStyle, Nothing, "html")

' Create Meta Description
Dim metaDesc As New HtmlMeta()
metaDesc.Name = "DESCRIPTION"
metaDesc.Content = "Content Page Meta Description"

' Create Meta Keywords
Dim metaKeywords As New HtmlMeta()
metaKeywords.Name = "KEYWORDS"
metaKeywords.Content = "Content Page Meta Keywords"

' Add Meta controls to HtmlHead
Dim head As HtmlHead = DirectCast(Page.Header, HtmlHead)
head.Controls.Add(metaDesc)
head.Controls.Add(metaKeywords)
End Sub

This can also be used to override MasterPage setting :)

VB.NET: Write/Create an Excel File

Dim OutputArray(200, 200) As String
Dim strFileName As String = "MyExl.xls"

'set ur OutputArray here

Dim excel As New Microsoft.Office.Interop.Excel.ApplicationClass
Dim wBook As Microsoft.Office.Interop.Excel.Workbook
Dim wSheet As Microsoft.Office.Interop.Excel.Worksheet

wBook = excel.Workbooks.Add()
Try
wSheet = wBook.ActiveSheet()
Dim Range As Microsoft.Office.Interop.Excel.Range = wSheet.Range("A1", wSheet.Cells(200, 200))
Range.Value2 = OutputArray
wBook.SaveAs(strFileName)
Catch ex As Exception
msgbox("Some Error Occured !!!")
Finally
wBook.Close()
excel.Quit()
excel = Nothing
End Try

ASP.NET: GridView with Scrollbar

1. Define Your GridView as






2. Create a style as


3. Add Following code at RowDataBound Event of GridView
Protected Sub GridView1_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs)
If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.RowIndex = 0 Then
e.Row.Style.Add("height", "40px")
End If
End If
End Sub


-------------------------------------------------------------------------------------------------------
Alternativelyyou can simply do this tooo

Oracle: New String Aggregation Techniques

The LISTAGG analytic function was introduced in Oracle 11g Release 2

SELECT deptno, LISTAGG(ename, ',') WITHIN GROUP (ORDER BY ename) AS employees
FROM emp
GROUP BY deptno;

DEPTNO EMPLOYEES
---------- --------------------------------------------------
10 CLARK,KING,MILLER
20 ADAMS,FORD,JONES,SCOTT,SMITH
30 ALLEN,BLAKE,JAMES,MARTIN,TURNER,WARD



If you are not running 11g Release 2

SELECT deptno, wm_concat(ename) AS employees
FROM emp
GROUP BY deptno;

DEPTNO EMPLOYEES
---------- --------------------------------------------------
10 CLARK,KING,MILLER
20 SMITH,FORD,ADAMS,SCOTT,JONES
30 ALLEN,BLAKE,MARTIN,TURNER,JAMES,WARD



Check it out here: http://www.oracle-base.com:80/articles/misc/StringAggregationTechniques.php

ASP.NET: Get Client IP Address

Private Function GetIPs() As StringCollection
Dim localIP = New StringCollection()
Dim localHostName = Dns.GetHostName()
Dim hostEntry = Dns.GetHostEntry(localHostName)
For Each ipAddr As IPAddress In hostEntry.AddressList
localIP.Add(ipAddr.ToString())
Next
GetIPs = localIP
End Function