Asp.NET, SharePoint, Workflow: 2009

Friday, December 25, 2009

Programatically copy worksheet via VBA in Excel

Dim oBook As Workbook

Excel.Application.DisplayAlerts = False

Application.ScreenUpdating = False

Me.btnExportWorkSheet.TakeFocus<nClick = False

' Delete the Old File

Kill "c:\FileName.xls"

' Create a new blank workbook:

Set oBook = Application.Workbooks.Add

Application.SheetsInNewWorkbook = 1

' Add a defined name to the workbook

' that RefersTo a range:

oBook.Names.Add Name:="tempRange", RefersTo:="=Sheet1!$A$1"


' Save the workbook:

oBook.SaveAs "c:\FileName.xls"


' Select the Workbook where the Worksheet to be copied is located

Workbooks("Old File.xls").Activate

Workbooks("Old File.xls").Worksheets("Work Sheet A").Activate


' Copy the Worksheet to the Workbook

Worksheets("Work Sheet A").Copy Before:=Workbooks("New Work

Book.xls").Sheets(1)

Dim xRange As Range, adr As String

Workbooks("New Work Book.xls").Worksheets("Work Sheet A").Activate

Workbooks("New Work Book.xls").Worksheets("Work Sheet A").Range("a1:z100").Activate

' Remove Links and Replace with Cell Values

With Workbooks("New Work Book.xls").Worksheets("Work Sheet A")

Dim cCell As Range

Dim strValue As String

Set xRange = .Range("a1:z100")

For Each cCell In xRange

' Save the value to use as a means to identify what cells

to change

strValue = CStr(cCell.Value)

If InStr(strValue, "/") > 0 Then

cCell = CStr(cCell.Value)

End If

Next

End With

' Select the next Workbook where the Worksheet to be copied is located

Workbooks("Old File.xls").Activate

Workbooks("Old File.xls").Worksheets("Work Sheet B").Activate

' Copy the Worksheet to the Workbook

Worksheets("Work Sheet B").Copy Before:=Workbooks("CashFlowInput&DollarChart.xls").Sheets(1) ', UpdateLinks:=0

Workbooks("New Work Book.xls").Worksheets("Work Sheet B").Activate

Workbooks("New Work Book.xls").Worksheets("Work Sheet B").Range("a1:z100").Activate

' Remove Links and Replace with Cell Values

With Workbooks("New Work Book.xls").Worksheets("Dollars Chart")

Set xRange = .Range("a1:z100")

For Each cCell In xRange

' Save the value to use as a means to identify what cells to change

' cCell.Formula will show the link back to the Original

Workbook

strValue = CStr(cCell.Formula)

If InStr(strValue, "!") > 0 Then

cCell = CStr(cCell.Value)

' If cCell = .Range("b51") Or cCell = .Range("m4") Then

' Stop

' End If

End If

Next

End With

MsgBox ("Your Worksheets have been copied to C:\New Work Book.xls")

End Sub

Tuesday, September 29, 2009

Sort Excel workbook sheet alphabatically


Sub Sort_Active_Book()
Dim i As Integer
Dim j As Integer
Dim iAnswer As VbMsgBoxResult
'
' Prompt the user as which direction they wish to
' sort the worksheets.
'
iAnswer = MsgBox("Sort Sheets in Ascending Order?" & Chr(10) _
& "Clicking No will sort in Descending Order", _
vbYesNoCancel + vbQuestion + vbDefaultButton1, "Sort Worksheets")
For i = 1 To Sheets.Count
For j = 1 To Sheets.Count - 1
'
' If the answer is Yes, then sort in ascending order.
'
If iAnswer = vbYes Then
If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then
Sheets(j).Move After:=Sheets(j + 1)
End If
'
' If the answer is No, then sort in descending order.
'
ElseIf iAnswer = vbNo Then
If UCase$(Sheets(j).Name) < UCase$(Sheets(j + 1).Name) Then
Sheets(j).Move After:=Sheets(j + 1)
End If
End If
Next j
Next i
End Sub

Saturday, August 29, 2009

MIME - File Context Types

Ai  application/postscript
aif  audio/x-aiff
aifc  audio/x-aiff
aiff audio/x-aiff
asc  text/plain
atom  application/atom+xml
au   audio/basic
avi   video/x-msvideo
bcpio   application/x-bcpio
bin   application/octet-stream
bmp   image/bmp
cdf   application/x-netcdf
cgm   image/cgm
class   application/octet-stream
cpio   application/x-cpio
cpt   application/mac-compactpro
csh   application/x-csh
css   text/css
dcr   application/x-director
dif   video/x-dv
dir   application/x-director
djv   image/vnd.djvu
djvu   image/vnd.djvu
dll   application/octet-stream
dmg   application/octet-stream
dms   application/octet-stream
doc   application/msword
dtd   application/xml-dtd
dv   video/x-dv
dvi   application/x-dvi
dxr   application/x-director
eps   application/postscript
etx   text/x-setext
exe   application/octet-stream
ez   application/andrew-inset
gif   image/gif
gram   application/srgs
grxml   application/srgs+xml
gtar   application/x-gtar
hdf   application/x-hdf
hqx   application/mac-binhex40
htm   text/html
html   text/html
ice   x-conference/x-cooltalk
ico   image/x-icon
ics   text/calendar
ief   image/ief
ifb   text/calendar
iges   model/iges
igs   model/iges
jnlp   application/x-java-jnlp-file
jp2   image/jp2
jpe   image/jpeg
jpeg   image/jpeg
jpg   image/jpeg
js   application/x-javascript
kar   audio/midi
latex   application/x-latex
lha   application/octet-stream
lzh   application/octet-stream
m3u   audio/x-mpegurl
m4a   audio/mp4a-latm
m4b   audio/mp4a-latm
m4p   audio/mp4a-latm
m4u   video/vnd.mpegurl
m4v   video/x-m4v
mac   image/x-macpaint
man   application/x-troff-man
mathml  application/mathml+xml
me   application/x-troff-me
mesh   model/mesh
mid   audio/midi
midi   audio/midi
mif   application/vnd.mif
mov   video/quicktime
movie   video/x-sgi-movie
mp2   audio/mpeg
mp3   audio/mpeg
mp4   video/mp4
mpe   video/mpeg
mpeg   video/mpeg
mpg   video/mpeg
mpga   audio/mpeg
ms   application/x-troff-ms
msh   model/mesh
mxu   video/vnd.mpegurl
nc   application/x-netcdf
oda   application/oda
ogg   application/ogg
pbm   image/x-portable-bitmap
pct   image/pict
pdb   chemical/x-pdb
pdf   application/pdf
pgm   image/x-portable-graymap
pgn   application/x-chess-pgn
pic   image/pict
pict   image/pict
png   image/png
pnm   image/x-portable-anymap
pnt   image/x-macpaint
pntg   image/x-macpaint
ppm   image/x-portable-pixmap
ppt   application/vnd.ms-powerpoint
ps   application/postscript
qt   video/quicktime
qti   image/x-quicktime
qtif   image/x-quicktime
ra   audio/x-pn-realaudio
ram   audio/x-pn-realaudio
ras   image/x-cmu-raster
rdf   application/rdf+xml
rgb   image/x-rgb
rm   application/vnd.rn-realmedia
roff   application/x-troff
rtf   text/rtf
rtx   text/richtext
sgm   text/sgml
sgml   text/sgml
sh   application/x-sh
shar   application/x-shar
silo   model/mesh
sit   application/x-stuffit
skd   application/x-koan
skm   application/x-koan
skp   application/x-koan
skt   application/x-koan
smi   application/smil
smil   application/smil
snd   audio/basic
so   application/octet-stream
spl   application/x-futuresplash
src   application/x-wais-source
sv4cpio application/x-sv4cpio
sv4crc  application/x-sv4crc
svg   image/svg+xml
swf   application/x-shockwave-flash
t    application/x-troff
tar   application/x-tar
tcl   application/x-tcl
tex   application/x-tex
texi   application/x-texinfo
texinfo application/x-texinfo
tif   image/tiff
tiff   image/tiff
tr   application/x-troff
tsv   text/tab-separated-values
txt   text/plain
ustar   application/x-ustar
vcd   application/x-cdlink
vrml   model/vrml
vxml   application/voicexml+xml
wav   audio/x-wav
wbmp   image/vnd.wap.wbmp
wbmxl   application/vnd.wap.wbxml
wml   text/vnd.wap.wml
wmlc   application/vnd.wap.wmlc
wmls   text/vnd.wap.wmlscript
wmlsc   application/vnd.wap.wmlscriptc
wrl   model/vrml
xbm   image/x-xbitmap
xht   application/xhtml+xml
xhtml   application/xhtml+xml
xls   application/vnd.ms-excel
xml   application/xml
xpm   image/x-xpixmap
xsl   application/xml
xslt   application/xslt+xml
xul   application/vnd.mozilla.xul+xml
xwd   image/x-xwindowdump
xyz   chemical/x-xyz
zip   application/zip

Friday, August 28, 2009

Read - Write SMTP settings Web.Config with Asp.net runtime

//Read SMTP Settings

System.Configuration.Configuration config = System.Web.Configuration.WebConfigurationManager.OpenWebConfiguration(HttpContext.Current.Request.ApplicationPath);
System.Net.Configuration.MailSettingsSectionGroup settings = (System.Net.Configuration.MailSettingsSectionGroup)config.GetSectionGroup("system.net/mailSettings");
txtSmtpHostAddr.Text = settings.Smtp.Network.Host;
txtSmtpUserName.Text = settings.Smtp.Network.UserName;
txtSmtpPortNo.Text = settings.Smtp.Network.Port.ToString();
txtSmtpEmail.Text = settings.Smtp.From;

//Write SMTP Settings

System.Configuration.Configuration config = System.Web.Configuration.WebConfigurationManager.OpenWebConfiguration(HttpContext.Current.Request.ApplicationPath);
System.Net.Configuration.MailSettingsSectionGroup settings = (System.Net.Configuration.MailSettingsSectionGroup)config.GetSectionGroup("system.net/mailSettings");
settings.Smtp.Network.Host = txtSmtpHostAddr.Text.Trim();
settings.Smtp.Network.UserName = txtSmtpUserName.Text.Trim();
settings.Smtp.Network.Password = txtSmtpPassword.Text.Trim();
settings.Smtp.Network.Port = txtSmtpPortNo.Text == "" ? 25 : Convert.ToInt32(txtSmtpPortNo.Text.Trim());
settings.Smtp.From = txtSmtpEmail.Text.Trim();
config.Save();

Thursday, August 27, 2009

Read,Write,Edit Resource File Asp.Net C#

//READ RESOURCE

ResXResourceReader reader = new ResXResourceReader(Server.MapPath("~/App_GlobalResources/test.resx"));

IDictionaryEnumerator ide = reader.GetEnumerator();

int i = 0;

//COUNTING FOR THE RESOURCE KEYS

while (ide.MoveNext())

{

i++;

}

//ASSIGN THE DICTIONARY ENTRY ARRAY FOR STORING KEYS

DictionaryEntry[] de = new DictionaryEntry[i];

i = 0;

//RESET DICTIONARY TO INITIAL POSITION

ide.Reset();

while (ide.MoveNext())

{

de[i] = ide.Entry;

Response.Write(ide.Key + " - " + ide.Value);

}

reader.Close();

//WRITE RESOURCE

ResXResourceWriter writer = new ResXResourceWriter(Server.MapPath("~/App_GlobalResources/test.resx"));

foreach (DictionaryEntry del in de)

{

//YOUR CODE HERE IF YOU WANT TO CHANGE VALUES

writer.AddResource(del.Key.ToString(), del.Value.ToString() + "*");

}

//SAVE CHANGES

writer.Generate();

//CLOSE RESOURCE FILE

writer.Close();

//DESPOSE RESOURCE

writer.Dispose();

Wednesday, August 12, 2009

Drop Everything in SQL Server 2005 Database

/* Drop all non-system stored procs */
DECLARE @name VARCHAR(128)
DECLARE @SQL VARCHAR(254)
SELECT @name = (SELECT TOP 1 [name] FROM sysobjects WHERE [type] = 'P' AND category = 0 ORDER BY [name])
WHILE @name is not null
BEGIN
SELECT @SQL = 'DROP PROCEDURE [' + RTRIM(@name) +']'
EXEC (@SQL)
PRINT 'Dropped Procedure: ' + @name
SELECT @name = (SELECT TOP 1 [name] FROM sysobjects WHERE [type] = 'P' AND category = 0 AND [name] > @name ORDER BY [name])
END
GO
/* Drop all views */
DECLARE @name VARCHAR(128)
DECLARE @SQL VARCHAR(254)
SELECT @name = (SELECT TOP 1 [name] FROM sysobjects WHERE [type] = 'V' AND category = 0 ORDER BY [name])
WHILE @name IS NOT NULL
BEGIN
SELECT @SQL = 'DROP VIEW [' + RTRIM(@name) +']'
EXEC (@SQL)
PRINT 'Dropped View: ' + @name
SELECT @name = (SELECT TOP 1 [name] FROM sysobjects WHERE [type] = 'V' AND category = 0 AND [name] > @name ORDER BY [name])
END
GO
/* Drop all functions */
DECLARE @name VARCHAR(128)
DECLARE @SQL VARCHAR(254)
SELECT @name = (SELECT TOP 1 [name] FROM sysobjects WHERE [type] IN (N'FN', N'IF', N'TF', N'FS', N'FT') AND category = 0 ORDER BY [name])
WHILE @name IS NOT NULL
BEGIN
SELECT @SQL = 'DROP FUNCTION [' + RTRIM(@name) +']'
EXEC (@SQL)
PRINT 'Dropped Function: ' + @name
SELECT @name = (SELECT TOP 1 [name] FROM sysobjects WHERE [type] IN (N'FN', N'IF', N'TF', N'FS', N'FT') AND category = 0 AND [name] > @name ORDER BY [name])
END
GO
/* Drop all Foreign Key constraints */
DECLARE @name VARCHAR(128)
DECLARE @constraint VARCHAR(254)
DECLARE @SQL VARCHAR(254)
SELECT @name = (SELECT TOP 1 TABLE_NAME FROM INFORMATION_SCHEMA.TABLE_CONSTRAINTS WHERE constraint_catalog=DB_NAME() AND CONSTRAINT_TYPE = 'FOREIGN KEY' ORDER BY TABLE_NAME)
WHILE @name is not null
BEGIN
SELECT @constraint = (SELECT TOP 1 CONSTRAINT_NAME FROM INFORMATION_SCHEMA.TABLE_CONSTRAINTS WHERE constraint_catalog=DB_NAME() AND CONSTRAINT_TYPE = 'FOREIGN KEY' AND TABLE_NAME = @name ORDER BY CONSTRAINT_NAME)
WHILE @constraint IS NOT NULL
BEGIN
SELECT @SQL = 'ALTER TABLE [' + RTRIM(@name) +'] DROP CONSTRAINT ' + RTRIM(@constraint)
EXEC (@SQL)
PRINT 'Dropped FK Constraint: ' + @constraint + ' on ' + @name
SELECT @constraint = (SELECT TOP 1 CONSTRAINT_NAME FROM INFORMATION_SCHEMA.TABLE_CONSTRAINTS WHERE constraint_catalog=DB_NAME() AND CONSTRAINT_TYPE = 'FOREIGN KEY' AND CONSTRAINT_NAME <> @constraint AND TABLE_NAME = @name ORDER BY CONSTRAINT_NAME)
END
SELECT @name = (SELECT TOP 1 TABLE_NAME FROM INFORMATION_SCHEMA.TABLE_CONSTRAINTS WHERE constraint_catalog=DB_NAME() AND CONSTRAINT_TYPE = 'FOREIGN KEY' ORDER BY TABLE_NAME)
END
GO
/* Drop all Primary Key constraints */
DECLARE @name VARCHAR(128)
DECLARE @constraint VARCHAR(254)
DECLARE @SQL VARCHAR(254)
SELECT @name = (SELECT TOP 1 TABLE_NAME FROM INFORMATION_SCHEMA.TABLE_CONSTRAINTS WHERE constraint_catalog=DB_NAME() AND CONSTRAINT_TYPE = 'PRIMARY KEY' ORDER BY TABLE_NAME)
WHILE @name IS NOT NULL
BEGIN
SELECT @constraint = (SELECT TOP 1 CONSTRAINT_NAME FROM INFORMATION_SCHEMA.TABLE_CONSTRAINTS WHERE constraint_catalog=DB_NAME() AND CONSTRAINT_TYPE = 'PRIMARY KEY' AND TABLE_NAME = @name ORDER BY CONSTRAINT_NAME)
WHILE @constraint is not null
BEGIN
SELECT @SQL = 'ALTER TABLE [' + RTRIM(@name) +'] DROP CONSTRAINT ' + RTRIM(@constraint)
EXEC (@SQL)
PRINT 'Dropped PK Constraint: ' + @constraint + ' on ' + @name
SELECT @constraint = (SELECT TOP 1 CONSTRAINT_NAME FROM INFORMATION_SCHEMA.TABLE_CONSTRAINTS WHERE constraint_catalog=DB_NAME() AND CONSTRAINT_TYPE = 'PRIMARY KEY' AND CONSTRAINT_NAME <> @constraint AND TABLE_NAME = @name ORDER BY CONSTRAINT_NAME)
END
SELECT @name = (SELECT TOP 1 TABLE_NAME FROM INFORMATION_SCHEMA.TABLE_CONSTRAINTS WHERE constraint_catalog=DB_NAME() AND CONSTRAINT_TYPE = 'PRIMARY KEY' ORDER BY TABLE_NAME)
END
GO
/* Drop all tables */
DECLARE @name VARCHAR(128)
DECLARE @SQL VARCHAR(254)
SELECT @name = (SELECT TOP 1 [name] FROM sysobjects WHERE [type] = 'U' AND category = 0 ORDER BY [name])
WHILE @name IS NOT NULL
BEGIN
SELECT @SQL = 'DROP TABLE [' + RTRIM(@name) +']'
EXEC (@SQL)
PRINT 'Dropped Table: ' + @name
SELECT @name = (SELECT TOP 1 [name] FROM sysobjects WHERE [type] = 'U' AND category = 0 AND [name] > @name ORDER BY [name])
END
GO

Thursday, August 6, 2009

SQL to Select a random row from a database table

There are lots of ways to select a random record or row from a database table. Here are some example SQL statements that don't require additional application logic, but each database server requires different SQL syntax.

Select a random row with MySQL:

SELECT column FROM table
ORDER BY RAND()
LIMIT 1

Select a random row with PostgreSQL:

SELECT column FROM table
ORDER BY RANDOM()
LIMIT 1

Select a random row with Microsoft SQL Server:

SELECT TOP 1 column FROM table
ORDER BY NEWID()

Select a random row with IBM DB2

SELECT column, RAND() as IDX
FROM table
ORDER BY IDX FETCH FIRST 1 ROWS ONLY

Select a random record with Oracle:

SELECT column FROM
( SELECT column FROM table
ORDER BY dbms_random.value )
WHERE rownum = 1

Saturday, July 25, 2009

Common IM Acronyms

afaik	as far as I know
afaict	as far as I can tell
afk	away from keyboard
atm	at the moment
bbiab	be back in a bit
bbiaf	be back in a few (minutes)
bbl	be back later
bbs	be back soon
b/c	because
bf	boyfriend
bfo	blinding flash of the obvious
brb	be right back
bsod	blue screen of death
btw	by the way
ciao	Italian for goodbye
ctrn	can't talk right now
cul8r	see you later
cya	see ya
dhtb	don't have the bandwidth
f2f	face to face
fubar	f***ed up beyond all recognition
fwiw	for what it's worth
fyi	for your information
gmta	great minds think alike
iam	in a meeting
ianal	I am not a lawyer
ihmb	I hate my boss
iirc	if I recall correctly
imho	in my humble opinion
imo	in my opinion
iow	in other words
irl	in real life
	grin
g	grin
gf	girlfriend
gmta	great minds think alike
gtg	got to go
jid	jabber identifier
j/k	just kidding
k	okay
lol	laugh out loud
l8r	later
msg	message
n/m	never mind
n/p	no problem
oAo	over and out!
omg	oh my god
oob	out of band
otoh	on the other hand
oww	oops, wrong window!
otp	on the phone
pita	pain in the ass
pov	point of view
pw	password
rotfl	rolling on the floor laughing
rsn	real soon now
rtfm	read the friendly manual
slap	sounds like a plan
thx	thanks
tia	thanks in advance
tla	three-letter arconym
ttfn	ta ta for now
ttyl	talk to you later
wb	welcome back
wfm	works for me
wtf	what the f***?!
wtg	way to go!
xfer	transfer
ymmv	your mileage may vary

Wednesday, July 22, 2009

Gujarati Jokes 4

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

એક વ્યકિતએ ૧૦૦ નંબર લગાવી પૂછ્યું, હેલો શું

આ ફાયરબ્રિગેડ છે? જવાબ મળ્યો : ના, તમે ૧૦૧ પર લગાવો.

વ્યકિત : તમે જ જરા તમારી બાજુવાળાને કહી દોને કે મારા ઘરમાં આગ લાગી ગઇ છે. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

નર હાથીઓનું એક ઝૂંડ માદા હાથીઓની પાસેથી પસાર થયું.

અચાનક અવાજ આવ્યો. શું ફિગર છે.

૩૬૬૦-૨૬૦૦-૩૬૦૦

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

એક નિરક્ષર મહિલાએ શહેરમાં જઇ ફોટો પડાવ્યો.

તેની પાડોશમાં રહેતી રીનાને આ ફોટો બતાવ્યો એટલે રીનાએ કહ્યું,

‘અરે! ફોટામાં તો તું બહુ સુંદર લાગે છે?’

‘હા, ફોટો તો બહુ સરસ પાડયો છે.

પણ ફોટોગ્રાફર બહુ બદમાશ હતો.

વારંવાર કહેતો હતો મારી તરફ જોઈને હસો.’ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

એક વ્યકિતએ પોતાનો કૂવો પાડોશીને વેચી દીધો.

જયારે પાડોશી પાણી ભરવા લાગ્યો ત્યારે તે વ્યકિત બોલી, ‘મેં કૂવો વેચ્યો છે, પાણી નહીં. જો પાણી ભરવું હોય તો તેનો અલગ ચાર્જ થશે.’ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

ચોર (બંદૂક સામે રાખી ચંદુભાઈને): જીવતા રહેવું હોય તો તમારું પર્સ મને આપી દો.

ચંદુભાઈ: આ લો.

ચોર: કેટલો મૂર્ખ છે તું, મારી બંદૂકમાં તો ગોળી જ નથી.

ચંદુભાઈ: મારા પર્સમાં પણ કયાં રૂપિયા છે? હા...હા.. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

એક દિવસે મગન રેલવેની મુસાફરી કરી રહ્યો હતો,

ટીટીએ આવીને તેને પૂછ્યુ- તમારે ક્યા જવાનુ છે ?

મગન - રામના જન્મસ્થાન.

ટીટી - ટિકિટ લીધી છે ?

મગન - એની શી જરૂર છે ?

ટીટી - તો પછી ચાલો મારી સાથે.

મગન - ક્યા ? ટીટી - કૃષ્ણના જન્મસ્થાને. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Gujarati Jokes 3

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
છોકરો - નાઈસ ડ્રેસ છોકરી - થેંક્સ
છોકરો - લિપસ્ટીક પણ સારી છે
છોકરી - થેંક્સ
છોકરો - મેક-અપ પણ સારો છે
છોકરી - થેક્યુ ભાઈ
છોકરો - છતા સારી નથી લાગતી. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
બે દેડકા બેઠા હતા એક બોલ્યો -ટર્રર્ર
બીજો બોલ્યો - ટર્રર્ર
પહેલો ફરી બોલ્યો - ટર્રર્ર
બીજો ફરી બોલ્યો - ટર્રર્ર
પહેલો બોલ્યો - ફર્રર્ર
બીજો બોલ્યો - એય તૂ ટોપિક ચેંજ ના કરીશ... ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
એક દિવસ મગન નોકરી માટે ઈંટરવ્યુ આપવા ગયો.
મેનેજર (ઈંટરવ્યુના સમયે) તમારી સૌથી મોટી યોગ્યતા કંઈ છે ?
મગન - મારી પત્ની. મેનેજર - ગુડ. અને સૌથી મોટી નબળાઈ ?
મગન - બીજાની પત્ની.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
એકવાર એક પડોશીએ પોતાની ગર્લફ્રેંડના ખભા પર ધીરેથી હાથ મૂક્યો અને બોલ્યો - આઈ લવ યૂ
છોકરીએ એકદમ હાથ ઝટકીને બોલી - ધીરેથી શુ બોલો છો, જરા જોરથી બોલોને.
પડોશી - જય માતા દી, જય માતા દી.~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
એક વાર પ્રેમિકાના પિતાએ પ્રેમીને કહ્યુ - હુ નથી ઈચ્છતો કે કોઈ મારી છોકરી આખી જીંદગી એક ગધેડા સાથે વિતાવે.
પ્રેમી - હું પણ નથી ઈચ્છતો, તેથી જ તો તેનો હાથ માંગી રહ્યો છુ. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
સરદારનુ મૃત્યુ વીજળી પડવાથી થયુ. તેની લાશ હસતી જોવા મળી.
ભગવાને કહ્યુ - આવુ કેમ ?
સરદાર બોલ્યા - મને લાગ્યુ કે કોઈ ફોટો ખેંચી રહ્યુ છે.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Gujarati Jokes 2

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

પુત્ર દારૂડિયા પિતાને - જુઓ અમારા પુસ્તકમાં દારૂ પીવાથી થતાં નુકશાનો લખ્યા છે પપ્પા તમે રાત-દિવસ નશામાં કેમ રહો છો. પિતાજી - બસ, બહુ થયું, કાલથી બિલકુલ બંધ. પુત્ર - (ખુશ થઈને) સાચે જ, કાલથી દારૂ પીવાનુ બંધ કરી દેશો ? પિતાજી - ના, કાલથી શાળામાં જવાનું બંધ. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

એક દિવસ બે મિત્રો એક કવિ સંમેલનમાં ગયા. થોડીવાર પછી એક મિત્રએ બીજાને ધીરેથી કાનમાં કહ્યું - જો તારી બાજુવાળા કાકા ઉંધી રહ્યા છે. બીજો ખિજાઈને બોલ્યો - ઓહ હો...આટલી અમથી વાત કહેવા માટે તે મારી ઉંધ બગાડી ?

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
બે મિત્રો કોફી શોપમાં કોફી પીવા બેઠા હતા. અચાનક એક મિત્રએ બીજાને કહ્યુ - અરે યાર, જલ્દી કોફી પી લે નહી તો ગડબડ થઈ જશે. બીજો મિત્ર - કેમ યાર, શુ થયુ ? પહેલો મિત્ર - સામે બોર્ડ પર જો શુ લખ્યુ છે, હોટ કોફી 10 રૂપિયા, કોલ્ડ કોફી 25 રૂપિયા. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

એક છોકરો એક છોકરી એલ કે જીમાં ભણતા હતા છોકરો - તૂ માલી જોલે લદન કરીશ ? છોકરી - નહી. છોકરો - કલી લે ને. છોકરી - હું નહી કલુ. છોકરો - કલીલે ને પ્લીજ બેન. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

છોકરાવાળા - અમને છોકરી પસંદ છે, લગ્ન ક્યારે કરવાના છે ? છોકરીવાળા - હજુ તો છોકરી ભણી રહી છે. છોકરાવાળા - તો અમારો છોકરો કોઈ વાંદરો થોડી છે કે ચોપડી ફાડી નાખે. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Gujarati Jokes 1

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
મગન - છગન, તુ ખૂબ પરેશાન લાગી રહ્યો છે ? શુ થયુ ? છગન - હુ બાપ બનવાનો છુ. મગન - અરે આ તો ખુશખબર છે. છગન - આમા સારુ શુ છે ? આ વાત મારી પત્નીને હજુ સુધી નથી ખબર.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
ભાણિયો - મામા, મને પચાસ રૂપિયા આપો ને. મામા - તને રૂપિયાની નહી અક્કલની જરૂર છે ભાણિયો - પણ મામા, તમારી પાસે અક્કલ તો છે જ નહી, એવુ ગઈકાલે મામી કહી રહી હતી.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
એકવાર શાયરનો પુત્ર લંગડો ચાલી રહ્યો હતો એ પડોશી મિત્રને બોલ્યો - મારા કાનપુરી ચંપલ ખૂબ જ કરડે છે. પડોશી બોલ્યો - જરૂર તારા પિતાજી મુશાયરા ગયા હશે ત્યાંથી લાવ્યા હશે. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
છગન - યાર, તુ એક જ મેસેજને બે વાર કેમ મોકલે છે ? મગન - યાર, એ માટે કે જો એક મેસેજ તને ફોરવર્ડ પણ કરવો પડે, તો બીજો તો સુરક્ષિત રહે. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
એક પરીક્ષામાં પ્રશ્ન હતો, ચેલેન્જ કેવી રીતે કરી શકાય છે? વિધાર્થીએ આખું પાનું કોરું છોડી દીધું અને નીચે લખ્યું, હિંમત હોય, તો પાસ કરી બતાવ. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
મોહન : દોસ્ત, મારે મારા કોમ્પ્યૂટર માટે એક ખીલી અને હથોડી જોઇએ છે. સોહન : પરંતુ કમ્પ્યૂટરમાં હથોડી અને ખીલીની શું જરૂર છે? મોહન : મારે કમ્પ્યૂટરમાં વિન્ડોઝ લગાવવાની છે ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
ઉદરને બિલાડી સાથે પ્રેમ થઇ જાય, તો તે એને કેવી રીતે કહેશે? આ તો ખૂબ જ સહેલું છે. ઉદર કહેશે, ‘બિલ્લો રાની, કહો તો અભી જાન દેદુ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Wednesday, June 24, 2009

Duplicat Remover Microsoft Exel Macro

Sub KillDupes()

Dim rConstRange As Range, rFormRange As Range
Dim rAllRange As Range, rCell As Range
Dim iCount As Long
Dim strAdd As String

On Error Resume Next
Set rAllRange = Selection

If WorksheetFunction.CountA(rAllRange) < 2 Then
MsgBox "You selection is not valid", vbInformation
On Error GoTo 0
Exit Sub
End If

Set rConstRange = rAllRange.SpecialCells(xlCellTypeConstants)
Set rFormRange = rAllRange.SpecialCells(xlCellTypeFormulas)

If Not rConstRange Is Nothing And Not rFormRange Is Nothing Then
Set rAllRange = Union(rConstRange, rFormRange)

ElseIf Not rConstRange Is Nothing Then
Set rAllRange = rConstRange

ElseIf Not rFormRange Is Nothing Then
Set rAllRange = rFormRange

Else
MsgBox "You selection is not valid", vbInformation
On Error GoTo 0
Exit Sub
End If

Application.Calculation = xlCalculationManual

For Each rCell In rAllRange
strAdd = rCell.Address
strAdd = rAllRange.Find(What:=rCell, After:=rCell, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Address

If strAdd <> rCell.Address Then
rCell.Clear
End If
Next rCell

Application.Calculation = xlCalculationAutomatic

On Error GoTo 0

End Sub

Saturday, June 6, 2009

BIND MULTIPLE VALUES IN GRIDVIEW WITH ITEAM TEMPLATE

Text = '<%# DataBinder.Eval(Container.DataItem, "sResumeTitle") + " [" + DataBinder.Eval(Container.DataItem, "sCareerLevel") + "]" %>'
Just use DataBinder.Eval(Container.DataItem, "sResumeTitle") on muliple and join it with + sign. You can also put string on that.

Friday, May 29, 2009

View Understanding Full Text Search in SQL Server 2005

Wednesday, May 13, 2009

Nested GridView Asp.Net

Nested GridView With ASP.net C#

Friday, May 8, 2009

JQuery Tutorials

Live Demo
Video
Source Code

http://blog.themeforest.net/screencasts/jquery-for-absolute-beginners-video-series/

Monday, April 27, 2009

Proxy List

https://www.123icugo.com
http://richlike.com
http://www.virtualbypass.com
http://imhidden.info
http://antarmuka.com
http://www.hiddenjack.com
http://proxyrekaza.info
http://www.dodgetheblock.com
http://www.qualitysurf.info/
http://JUSTRUN.INFO
http://ky8.info
http://JUSTSHOW.INFO
http://proxyreed.info
http://www.evadethefilter.info/
http://falln.com
http://unblockmyspace.ws
http://WeHidden.info
http://RUNGREAT.INFO
http://proxysugar.info
http://www.silentfox.info
http://www.surfenglish.info
http://proxyteach.info
http://watchyournet.info/
http://bypasstrick.info/
http://surfproxy.us
http://www.prxypast.com
http://2eo.org/
http://www.proxykey.com
http://JUSTANY.INFO
http://www.theinvisiblejesus.com/
http://huntsome.info
http://www.filtered.nl
http://mulc.info
http://newbizsolution.web.id
http://likeall.info
http://www.hidemee.net
http://ectr.info
http://www.nofilters.net
http://internettoy.info
http://www.niceprox.net
http://browseatskool.info/
http://SchoolGood.info
http://xene.info
http://www.facebookproxyz.com
http://www.surfprotection.info/
http://www.bypasstrick.info/
http://www.webmasterfresh.com
http://www.pzeg.com
http://www.moep.us/
http://longsurf.info
http://www.sneakboxonline.com
http://hunthere.info
http://huntall.info
http://www.onlockdown.info/
http://www.chinagrows.com/
http://www.passme.in
http://proxify.biz
http://www.myavoider.info/
http://hit12.info
http://sugarproxy.info
http://a1proxy.co.cc
http://proxy.switchproxy.com
http://www.proxyboxonline.com
http://enterin.info
http://succentor.com
http://entrythere.info
http://phas.info
http://slipar.com
http://www.netevader.org
http://proxify.de
http://phas.info
http://enterall.info
http://surfanonymously.cn
http://catchhere.info
http://www.jokemyspace.info
http://www.netevader.org
http://dragonballevolution.biz
http://springsurf.info/
https://proxify.co.uk
http://youtubeunblock.org
http://Anonyman.info
http://www.mycollegefun.info
http://6sd.info
http://surf-browsing.info
http://RUNFAST.INFO
http://RUNAGAIN.INFO
http://proxypier.com
http://2lg.org/
http://twai.info
http://www.blockedass.com
http://www.blowthat.info
http://lalasurf.info
http://TAKETHEM.INFO
http://www.webanonymize.info
http://TAKETRY.INFO
http://vunderpass.com
http://www.proxiesdaily.com
http://alienbrowse.info/
http://NiceProgress.com
http://bypass-myspace.com/
http://JUSTWANT.INFO
http://proxywomen.info
http://www.surfitfree.com
http://www.freeonlineproxyserver.com
http://JUSTNEED.INFO
http://www.sneakboxonline.com
http://proxeasy.com
http://ugate.info
http://www.foodclock.info
http://gozend.com
http://www.SilentNinja.info
http://totalnetprivacy.com
http://auxo.info
http://www.guardtunnel.com
http://oxyb.info
http://Acmebypass.info
http://falln.com
http://proxywheep.info
http://www.browseitfree.com
http://proxness.com
http://proxy.virtual-browser.com
http://www.httpsglype.com
http://www.77p.info
http://bigbambi.com
http://www.mrshellman.com
http://www.hideroot.com
http://proxytop.cn
http://facebookproxyz.com

Wednesday, April 1, 2009

"www.areyoucertifiable.com"

Monday, March 30, 2009

Difference between JQuery and Javascript

JQuery and Javascript

Sunday, March 29, 2009

Gujarati Jokes Part 2

Gujarati Jokes Part 2 - ગુજરાતી જોક્સ ભાગ 2

Gujarati Jokes Part 2

Saturday, March 28, 2009

The Statue of Liberty's Under Construction

Simple Nested GridView Asp.Net C#

Thursday, March 26, 2009

Dynamic Gridview Asp.Net 2.0

This file shows how to bind gridview dynamic with delete,select,edit functionality.

Microsoft.Net 3.5 Name Space Poster

Download Commonly used Microsoft.Net 3.5 Name Space Poster.

Click Image to Download

It covers Windows Presentation Foundation, Windows Forms, Asp.Net, Communication and Work flow, Data, XML, LINQ, Fundamentals

Diffence Microsoft.Net 2.0 -3.5

This is the difference between the Microsoft.Net Versions 2.0, 3.0 and 3.5+sp1

Wednesday, March 25, 2009

Gujarati Jokes ગુજરાતી જોક્સ

Hi Friends I have some of the great Gujarati Jokes that I would like to share with you all. I hope you will enjoy them.

Friday, March 13, 2009

Get Worksheet Tab Names List Ms Excel with hyperlink

Publish at Scribd or explore others: Education How-To Guides & DIY tab name Ms Excel

Saturday, March 7, 2009

Hi

Hi Friends
I am Kashyap Patel form Ahmedabad, Gujarat, India

I completed my Master of Computer Application recently.

My lead subject is Microsoft.Net Technology.