1. It’s easy.
2. Doesn’t annoy the user.
3. It’s effective!
4. User could copy and paste the captcha code.
5. User can be color blind and still read the captcha.

Here’s How:

add a label (lblCaptcha)and textbox (txtCaptcha)to your asp.net page.

add the following code to the page_load:

if (!IsPostBack)
{

//generate a random number for the captcha label

int MyRandom;
Random random = new Random();
MyRandom = random.Next(999, 999999);
string New_Random = MyRandom.ToString(“000000″);
lblCaptcha.Text = New_Random;
}

on your btnsend event add the following code:

protected void btnSend_Click(object sender, EventArgs e)
{

if (lblCaptcha.Text == txtCaptcha.Text)
{

//more code here to process the E-mail form.

}

else

{

//Show error msg

}

that’s it!

Email form with Simple Captcha

Boolean isMobile = (Request.Browser.IsMobileDevice);

//redirect to the mobile directory through .htaccess

if (isMobile) Response.Redirect(“http://m.kmtargets.com“);

}

Website After:

Live Site: http://www.glkirkbuidersinc.com

Site-Seeing "A Visual Approach to Web Design"

• Color Theory
• The Color Wheel
• Using Colors
• Texture Theory
• Using Textures
• Page elements

Name:  Web Design Concepts
Score: 4.36  out of 5.00   Date: 2010-02-19

View detailed topic results

Scored higher than 98% of all previous test takers.

Demonstrates a clear understanding of many advanced concepts within this topic. Appears capable of mentoring others on most projects in this area.
Strengths
Web Analytics
Design Process
DOM Scripting (Javascript)
WWW (World Wide Web) Knowledge
Accessibility
Web Usability
CSS Knowledge
Weak Areas
None Noted

2010-02-15

Brainbench

Completed Test:  Name: ADO.NET 2.0

Score: 3.40 out of 5.0

Date: 2010-02-15

View detailed topic results

Scored higher than 88% of all previous test takers.

Demonstrates a solid understanding of core concepts within this topic. Appears capable of working on most projects in this area with moderate assistance. May require some initial assistance with advanced concepts, however.
Strengths
Object Model
Components
DataBindings
Implementation
Weak Areas
Datasources
XML

Completed Test
Name: Computer Fundamentals (Win XP)
Score: 4.17  out of 5.00   Date: 2010-02-05

View detailed topic results

Scored higher than 93% of all previous test takers.

Demonstrates a clear understanding of many advanced concepts within this topic. Appears capable of mentoring others on most projects in this area.
Strengths
Basic Windows Features
Hardware
Networking
Weak Areas
Files and Folders
Help and Support Center
Control Panel

Score: 3.27 out of 5.00
Proficiency Level: Proficient (2.51 – 3.50)
The candidate has mastered the basic concepts of MS SQL Server 2005 Programming, including:
•  Queries
•  Referential Integrity
•  Transact-SQL
The candidate demonstrates a clear understanding of intermediate MS SQL Server 2005 Programming concepts, such as:
•  Indexes
•  Triggers
•  Stored Procedures
The candidate may have some knowledge of more advanced MS SQL Server 2005 Programming concepts such as:
•  Architecture
•  Views
•  Performance

SELECT column_name, data_type

FROM user_tab_cols

WHERE table_name=’RACCOUNT’

and DATA_TYPE=’DATE’;

ALTER    PROCEDURE [dbo].[EMMS_HR_USER_UPDATE]
AS
Set ANSI_NULLS ON

BEGIN
declare @EMPLOYEEINFO_SYS1_COUNT  integer
set @EMPLOYEEINFO_SYS1_COUNT = (select count(*) from [SYSTEM1\GPMS].EMMS.dbo.Employee_INFO)
If @EMPLOYEEINFO_SYS1_COUNT > 3000
BEGIN
–Backup the existing Employee_info table
Delete from Employee_INFO_BAK
INSERT INTO Employee_INFO_BAK
Select * from  [SYSTEM1\GPMS].EMMS.dbo.Employee_INFO
–Backup the existing [User] table
Delete from USER_BAK
INSERT INTO USER_BAK
SELECT * from [USER]

–Update the EMMS_LIVE EmployeeInfo table with the SYSTEM1 feed table
delete from  Employee_INFO
INSERT INTO Employee_INFO
Select * from  [SYSTEM1\GPMS].EMMS.dbo.Employee_INFO
END

–Add skeleton records for new EMPLOYEES
If @EMPLOYEEINFO_SYS1_COUNT > 3000
BEGIN
Declare @USERID varchar(6)
Declare @UNAME varchar(50)
Declare @PW BINARY (16)
SET @PW = CONVERT(binary, ’0x49A93E8441D1B20C887E4887820976C4′)
Declare SKEL_RECORDS CURSOR
For select EMPL_ID,  dbo.DELTEK_USER_NAME(EMPL_ID) as UNAME
from Employee_INFO where
EMPL_ID NOT IN (SELECT UserID from [USER])
Open SKEL_RECORDS
Fetch NEXT From SKEL_RECORDS
into @USERID,@UNAME
While @@Fetch_Status = 0
BEGIN
EXECUTE sp_EMMS_Insrt_SKL @biPassword = @PW, @sUserID = @USERID, @sUserName = @UNAME,
@iErrorCODE = ‘ ‘
Fetch Next from SKEL_RECORDS INTO @USERID,@UNAME
END
CLOSE SKEL_RECORDS
DEALLOCATE SKEL_RECORDS
END

If @EMPLOYEEINFO_SYS1_COUNT > 3000
BEGIN
–Lock the Employee EMMS Account as they are no longer in the HR feed
Declare LOCKACCT_RECORDS CURSOR
For Select USERID from [USER] where USERID
not in (SELECT EMPL_ID from EMPLOYEE_INFO)
and USERID not in (’0′,’999999′) and locked=’0′

Open LOCKACCT_RECORDS
Fetch NEXT From LOCKACCT_RECORDS
into @USERID
While @@Fetch_Status = 0
BEGIN
EXECUTE sp_EMMS_EMPLOYEE_LOCK_ACCT @dcID = @USERID, @iErrorCODE = ‘ ‘
Fetch Next from LOCKACCT_RECORDS INTO @USERID
END
CLOSE LOCKACCT_RECORDS
DEALLOCATE LOCKACCT_RECORDS
END

–End For the “If” statement
END

GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO

vYEARS INTEGER) RETURN INTEGER IS

–KJP 05-16-2005

–Calculate Statute Of Limitations, the result is a 1

–if the account will still be in statute in 4 months, 0 If not…

SOLDAYS INTEGER := vYears * 365;

–Multiply N years times days to use the days variable

D_DAY DATE := SYSDATE + 120;

–Roughly 4 months from today is the latest it TW USEFUL_DATE DATE;

–Running through the possible values to use for dates.

–This is the value that ends up being the one

–to compare against for SOL calculation

CURSOR C1_CURSOR(vACCOUNT varchar2) IS

SELECT NVL(R.CHGOFF_DATE, SYSDATE – 7500) AS COD,

NVL(R.LAST_PAY_DATE, SYSDATE – 7500) AS LPD, NVL(R.CONTRACT_DATE, SYSDATE – 7500)

as CD, NVL(R.DTE_LST_CR_CHG,SYSDATE – 7500) as LCC FROM

RACCOUNT R WHERE ACCOUNT = vACCOUNT and DIVISION_ID=’PORT’;

C1_RECORD C1_CURSOR%ROWTYPE;

BEGIN

OPEN C1_CURSOR(vACCOUNT);

FETCH C1_CURSOR INTO C1_RECORD;

CASE STATEABBV

–Texas has its own Rules

When ‘TX’ THEN

IF (C1_RECORD.COD + SOLDAYS) > D_DAY then

RETURN 1;

ELSE

RETURN 0;

END IF;

–Every other State but TX

ELSE

– Find the best date

IF C1_RECORD.LCC > C1_RECORD.LPD then

USEFUL_DATE := (C1_RECORD.LCC + SOLDAYS);

END IF;

IF C1_RECORD.LPD > (SYSDATE – 7400) then

USEFUL_DATE := (C1_RECORD.LPD + SOLDAYS);

END IF;

IF C1_RECORD.CD > (SYSDATE – 7400) AND USEFUL_DATE IS NULL then

USEFUL_DATE := (C1_RECORD.CD + SOLDAYS);

END IF;

IF C1_RECORD.COD > (SYSDATE – 7400) AND USEFUL_DATE IS NULL then

USEFUL_DATE := (C1_RECORD.COD + SOLDAYS);

End IF;

IF USEFUL_DATE > D_DAY THEN

RETURN 1;

ELSE

RETURN 0;

END IF;

END CASE;

EXCEPTION

WHEN OTHERS THEN

RETURN 0;

END;

/

On Error GoTo errorhandler

Dim X As Single ‘Variable to figure for first X (LON), X is the X offset from the origon of the ELLIPSE
Dim Y As Single ‘Variable to figure for first Y (LAT), Y is the Y offset from the origon of the ELLIPSE
Dim New_X As Single ‘Variable to figure for NEW X (LON), X is the X offset (USING the Axis Orientation) from the origon
Dim New_Y As Single ‘Variable to figure for NEW Y (LAT), Y is the Y offset (USING the Axis Orientation) from the origon
Dim Angle As Integer ‘Angle from 1 to 361 used to run in the DO LOOP
Dim CSign_Orient As Single ‘COS of the AXIS ORIENTATION (Orient) used to fig NEW_X and NEW_Y
Dim SSign_Orient As Single ‘SIN of the AXIS ORIENTATION (Orient) used to fig NEW_X and NEW_Y
Dim Neg_X As Single ‘ Negative of the X used to figure NEW_Y
Dim New_Script_Str As String ‘Holds the New Script calculated with Axis Orientation

Major = Major / 60
Minor = Minor / 60

Angle = 1

‘reverse the Orientation, positive numbers rotate the origional axis counterclockwise, I use
‘negative numbers to coincide with the clockwise direction of increasing bearings
Orient = -(Orient)

‘Main Do loop…overlaps past 360 degrees because ARCVIEW drops the last point whether or not the graphic shape is a complete unit

Do Until Angle >= 370
‘Sin the major and Cos the minor
‘Figure initial X and Y offset (orientation axis offset) based off of these figured points.
X = Sin(Angle * DGRS_RAD) * Major ‘Figure X (Longitude) based off Major Ellipse (.01745 = the radian to angle ratio)
Y = Cos(Angle * DGRS_RAD) * Minor ‘Figure Y (Latitude) based off Minor Ellipse (.01745 = the radian to angle ratio)

START_LON = Lon ‘ utilize the Lon value passed to it…must be a single
START_LAT = Lat ‘ utilize the Lat value passed to it…must be a single

‘Prerequisite figures to perform the NEW_X and NEW_Y
CSign_Orient = Cos(Orient * DGRS_RAD)
SSign_Orient = Sin(Orient * DGRS_RAD)
Neg_X = -(X)

New_X = (X * CSign_Orient) + (Y * SSign_Orient)
New_Y = (Neg_X * SSign_Orient) + (Y * CSign_Orient)
New_X = New_X + START_LAT ‘Add the offset to the origon point
New_Y = New_Y + START_LON ‘Add the offset to the origon point
Dim My_Y As Variant
My_Y = New_Y
My_Y = CDec(My_Y)

Select Case Angle
Case 1
‘First Point for the ELLIPSE script, needs the opening “( {{”
New_Script_Str = “thepolyLine = PolyLine.Make ( {{” & My_Y & “@” & New_X & “,”
Case 361
‘Last Point for the ELLIPSE script, needs the “}} )”
New_Script_Str = New_Script_Str & My_Y & “@” & New_X & “}} )” ‘Format the ARCVIEW SCRIPT using Axis Rotation
Case Else
‘The remainder of points get the standard formatting “Lon@Lat,”
New_Script_Str = New_Script_Str & My_Y & “@” & New_X & “,” ‘Format the ARCVIEW SCRIPT using Axis Rotation

End Select

Angle = Angle + 10 ‘increment the loop by 10 degrees, clockwise
‘Changed 11/15/99
Angle = Angle + 5 ‘increment the loop by 5 degrees, clockwise

Loop

‘Assign the script as the output of this function
fnctn_ELLIPSE = New_Script_Str

errorhandler:

If Err.Number > 0 Then
Debug.Print “Errorhandler-MODULE1.functn_ELLIPSE Error Number: ” & Err.Description
End If

End Function

Public Const YD_NM As Single = 0.0004937365
Public Const YD_MTRS As Single = 0.9144
Public Const KM_NM As Single = 0.54
Public Const MTRS_YD As Single = 1.094
Public Const MTRS_FT As Single = 3.281
Public Const FT_MTRS As Single = 0.3048
Public Const Pi As Single = 3.1415926535897
Public Const RAD_DGRS As Single = 57.2957795130823
Public Const DGRS_RAD As Single = 0.0174532925199

’32 Bit Sleep Function
Declare Sub Sleep Lib “kernel32″ (ByVal dwMilliseconds As Long)

Public Function fnctn_RHUMB(START_LAT As Single, START_LON As Single, CRS As Single, DST As Single, OUTPUT_FRMT As String) As String

‘Author Kenneth Patrick AD&D Inc. UNCLASSIFIED
‘fnctn_RHUMB
‘Created: 06 Jan 1999
‘Last Update 16 Apr 1999
‘RHUMB LINE ALGORITHM Mid-Latitude sailing Formula From “Dutton’s Navigation and Piloting” Adapted to Code
‘Equation: (L = DST X cosCRS) (p = DST X sinCRS) (Dlo = p / cosLM)
‘Input: “Start LAT (+NORTH/-SOUTH single),Start LON (+EAST/-WEST single), COURSE in Degree’s, DISTANCE in Nautical Miles,OUTPUT FORMAT: String”
‘Output Formats: “Lat(+/- Single)”, “Lon(+/- Single)”, “Lon@Lat”, “Lon,Lat”

On Error GoTo errorhandler

Dim L As Single
Dim P As Single
Dim LM As Single
Dim COS_LM As Single
Dim DLO As Single
Dim END_LAT As Single
Dim END_LON As Single

L = (DST / 60) * Cos(CRS / RAD_DGRS) ‘L used in the equation to figure END_LAT / DLO
P = (DST / 60) * Sin(CRS / RAD_DGRS) ‘P used in the equation to Figure DLO
LM = ((L / 2) + START_LAT) / RAD_DGRS ‘DLO (step 1)
COS_LM = Cos(LM) ‘DLO (step 2)
DLO = P / COS_LM ‘DLO (step 3)
END_LAT = Format(START_LAT + L, “###.##########”) ‘ format the Destination Latitude in decimal degrees

Dim v_LAT As Variant
v_LAT = END_LAT
v_LAT = CDec(v_LAT)

If START_LON < 0 Then ‘Added to resolve the positive and negative issue with Longitudes
END_LON = Format(DLO + START_LON, “###.##########”) ‘ format the Destination Longitude in decimal degrees
Else
END_LON = Format(START_LON + DLO, “###.##########”) ‘ format the Destination Longitude in decimal degrees
End If

Dim v_LON As Variant
v_LON = END_LON
v_LON = CDec(v_LON)

Select Case OUTPUT_FRMT ‘select output type based on input parameter passed to this function
Case “AT”
fnctn_RHUMB = v_LON & “@” & v_LAT ‘output 75.56005@12.22208
Case “COMMA”
fnctn_RHUMB = v_LON & “,” & v_LAT ‘output 75.56005,12.22208
Case “LON”
fnctn_RHUMB = v_LON ‘output 75.56005
Case “LAT”
fnctn_RHUMB = v_LAT ‘output 12.22208
Case Else
fnctn_RHUMB = “”

End Select
Exit Function

errorhandler:

If Err.Number > 0 Then
Call LogErr(“Errorhandler-FUNCTION functn_RHUMB Error Number: ” & Err.Description)
End If

End Function

//using System.Configuration;
public Boolean Write_Log_Entry(string Log_entry)
{
try
{
string sLogPath = ConfigurationManager.AppSettings["LOG_PATH"];
string sLogname = ConfigurationManager.AppSettings["LOG_NAME"];
string full_log_namePath = sLogPath + “\\” + sLogname;

// Self Explanatory
StreamWriter SW;
if (File.Exists(full_log_namePath))
{
//Append to the log file
SW = File.AppendText(full_log_namePath);
SW.WriteLine(Log_entry);
SW.Close();
return true;
}
else
{
// Make the file if it doesn’t exist, then append to it
File.Create(full_log_namePath);
SW = File.AppendText(full_log_namePath);
SW.WriteLine(Log_entry);
SW.Close();

return false;
}
}
catch
{
MessageBox.Show(“An error occurred. Can not access the application log”, “Application Error”);
return false;
}
}

‘From the Web.Config File
‘<add key=”LINKMonth” value=”7″ />
‘<add key=”LINKDay” value=”1″ />
‘<add key=”LINKYear” value=”2008″ />

Try
Dim iPlanCount As Integer = 0
Me.pnlError.Visible = False
Me.pnlSearchResults.Visible = True

Dim dtNow As DateTime = DateTime.Now
Dim dtNewPlanDate As DateTime

Try
Dim intMonth As Integer = CInt(System.Configuration.ConfigurationManager.AppSettings(“LINKMonth”))
Dim intDay As Integer = CInt(System.Configuration.ConfigurationManager.AppSettings(“LINKDay”))
Dim intYear As Integer = CInt(System.Configuration.ConfigurationManager.AppSettings(“LINKYear”))
dtNewPlanDate = New DateTime(intYear, intMonth, intDay)
Catch ex As Exception
‘Default the date in case the keys weren’t added to the Web.Config file
dtNewPlanDate = New DateTime(2008, 7, 1)
End Try

‘TODO: Change the hyperlink url’s
‘If the date is greater than 07/01/2008 00:00 then use these new links
If dtNow >= dtNewPlanDate Then
‘it’s after 07/01/2008 00:00, New Plan date
‘turn off the old hyperlinks
Me.hypDirectHMO.Enabled = False
Me.hypSelectHMO.Enabled = False
Me.hypDirectPOS.Enabled = False
Me.hypSelectPOS.Enabled = False
Me.hypPPO.Enabled = False
Me.hypDirectHMO.Visible = False
Me.hypSelectHMO.Visible = False
Me.hypDirectPOS.Visible = False
Me.hypSelectPOS.Visible = False
Me.hypPPO.Visible = False

‘PPO’s (All 3)
If oZipSearch.PPO = True Then
iPlanCount = iPlanCount + 3
Me.hypNEWPPO1.Enabled = True
Me.hypNEWPPO1.Visible = True
Me.hypNEWPPO2.Enabled = True
Me.hypNEWPPO2.Visible = True
Me.hypNEWPPO3.Enabled = True
Me.hypNEWPPO3.Visible = True
Else
Me.hypNEWPPO1.Enabled = False
Me.hypNEWPPO1.Visible = False
Me.hypNEWPPO2.Enabled = False
Me.hypNEWPPO2.Visible = False
Me.hypNEWPPO3.Enabled = False
Me.hypNEWPPO3.Visible = False
End If

‘HMO
If oZipSearch.HMODirect = True Then
iPlanCount = iPlanCount + 1
Me.hypNEWHMO.Enabled = True
Me.hypNEWHMO.Visible = True
Else
Me.hypNEWHMO.Enabled = False
Me.hypNEWHMO.Visible = False
End If

Else
‘it’s before 07/01/2008 00:00
‘using the orig. logic
‘it’s before D-day turn off the new links

If oZipSearch.HMODirect = True Then
Me.hypDirectHMO.Enabled = True
Me.hypDirectHMO.Visible = True

Else
Me.hypDirectHMO.Enabled = False
Me.hypDirectHMO.Visible = False
End If

If oZipSearch.HMOSelect = True Then
Me.hypSelectHMO.Enabled = True
Me.hypSelectHMO.Visible = True

Else
Me.hypSelectHMO.Enabled = False
Me.hypSelectHMO.Visible = False
End If

If oZipSearch.POSDirect = True Then
Me.hypDirectPOS.Enabled = True
Me.hypDirectPOS.Visible = True
Else
Me.hypDirectPOS.Enabled = False
Me.hypDirectPOS.Visible = False
End If
If oZipSearch.POSSelect = True Then
Me.hypSelectPOS.Enabled = True
Me.hypSelectPOS.Visible = True
Else
Me.hypSelectPOS.Enabled = False
Me.hypSelectPOS.Visible = False
End If
If oZipSearch.PPO = True Then
Me.hypPPO.Enabled = True
Me.hypPPO.Visible = True
Else
Me.hypPPO.Enabled = False
Me.hypPPO.Visible = False
End If

End If

Catch ex As Exception

Finally

End Try