ASP VBscript

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
</head>

<body>
<%
'Strings have green text now, while Attributes are light blue
Response.Write("Hello World")

'Numbers are red
Dim a = 0
a = a + 5 mod 2 * 1 / 100 - 0.2

'other stuff is just one big palette :D

Call Statement
Const Statement
Do...Loop Statement
Execute Statement
Exit Statement
For...Next Statement
If...Then...Else Statement
Option Explicit Statement
Property Get Statement
Property Set Statement
Randomize Statement
Rem Statement
Set Statement
Sub Statement
With Statement
Class Statement
Dim Statement
Erase Statement
ExecuteGlobal Statement
For Each...Next Statement
Function Statement
On Error Statement
Private Statement
Property Let Statement
Public Statement
ReDim Statement
Select Case Statement
Stop Statement
While...Wend Statement


VBScript
The following words are reserved in Microsoft VBScript:

And|As|ByRef|ByVal|Call|Case|Class|Const|Dim|Do|Each|Else|ElseIf|Empty|End|Eqv|Exit|False|
For|Function|Get|GoTo|If|Imp|In|Is|Let|Loop|Me|Mod|Enum|New|Next|Not|Nothing|Null|On|Option|
Or|Private|Public|ReDim|Rem|Resume|Select|Set|Stop|Sub|Then|To|True|Until|Wend|While|With|Xor|Execute|Explicit

Currency|Debug|EndIf|Optional|Event|Implements|Like|LSet|ParamArray|Preserve|RaiseEvent|RSet|Shared|Single|Static|TypeOf|Variant|



Boolean|Byte|Integer|Long|Double|Type|Eof|Bof|Error|Property
 
Currency|Debug|EndIf|Optional|Event|Implements|Like|LSet|ParamArray|Preserve|RaiseEvent|RSet|Shared|Single|Static|TypeOf|Variant|

Abs|Array|Asc|Atn|CBool|CByte|CCur|CDate|CDate|CDbl|Chr|CInt|CLng|Cos|CSng|CStr|
Date|DateAdd|DateDiff|DatePart|DateSerial|DateValue|Day|Exp|Filter|Fix|FormatCurrency|
FormatDateTime|FormatDateTime|FormatNumber|FormatPercent|Hex|Hex|Hour|InStr|InStrRev|
Int|IsArray|IsDate|Join|LBound|LCase|Left|Len|Log|LTrim|Mid|Minute|Month|MonthName|Now|
Oct|Oct|Replace|Right|Rnd|RTrim|Second|Sgn|Sin|Space|Split|Sqr|StrComp|String|StrReverse|
Tan|Time|Timer|TimeSerial|TimeValue|Trim|UBound|UCase|Weekday|WeekdayName|Year



JScript
The following words are reserved in Microsoft JScript:

• break 
• case 
• catch 
• class 
• const 
• continue 
• debugger 
• default 
• delete 
• do 
• else 
• enum 
• export 
• extends 
• false 
• finally 
• for 
• function 
• if 
• import 
• in 
• instanceof 
• new 
• null 
• return 
• super 
• switch 
• this 
• throw 
• true 
• try 
• typeof 
• var 
• void 
• while 
• with 


vbBlack|vbRed|vbGreen|vbYellow|vbBlue|vbMagenta|vbCyan|vbWhite|vbBinaryCompare|
vbTextCompare|vbSunday|vbMonday|vbTuesday|vbWednesday|vbThursday|vbFriday|vbSaturday|
vbUseSystemDayOfWeek|vbFirstJan1|vbFirstFourDays|vbFirstFullWeek|vbGeneralDate|vbLongDate|
vbShortDate|vbLongTime|vbShortTime|vbObjectError|vbCr|VbCrLf|vbFormFeed|vbLf|vbNewLine|
vbNullChar|vbNullString|vbTab|vbVerticalTab|vbUseDefault|vbTrue|vbFalse|vbEmpty|vbNull|
vbInteger|vbLong|vbSingle|vbDouble|vbCurrency|vbDate|vbString|vbObject|vbError|vbBoolean|
vbVariant|vbDataObject|vbDecimal|vbByte|vbArray
Option Explicit

On Error Resume Next
Err.Raise 6   ' Raise an overflow error.
MsgBox ("Error # " & CStr(Err.Number) & " " & Err.Description)
Err.Clear      ' Clear the error.

Function RegExpTest(patrn, strng)
   Dim regEx, Match, Matches   ' Create variable.
   Set regEx = New RegExp   ' Create regular expression.
   regEx.Pattern = patrn   ' Set pattern.
   regEx.IgnoreCase = True   ' Set case insensitivity.
   regEx.Global = True   ' Set global applicability.
   Set Matches = regEx.Execute(strng)   ' Execute search.
   For Each Match in Matches   ' Iterate Matches collection.
      RetStr = RetStr & "Match " & I & " found at position "
      RetStr = RetStr & Match.FirstIndex & ". Match Value is "'
      RetStr = RetStr & Match.Value & "'." & vbCRLF
   Next
   RegExpTest = RetStr
End Function

MsgBox(RegExpTest("is.", "IS1 is2 IS3 is4"))

Function RegExpTest(patrn, strng)
   Dim regEx, Match, Matches   ' Create variable.
   Set regEx = New RegExp   ' Create regular expression.
   regEx.Pattern = patrn   ' Set pattern.
   regEx.IgnoreCase = True   ' Set case insensitivity.
   regEx.Global = True   ' Set global applicability.
   Set Matches = regEx.Execute(strng)   ' Execute search.
   For Each Match in Matches   ' Iterate Matches collection.
      RetStr = RetStr & "Match found at position "
      RetStr = RetStr & Match.FirstIndex & ". Match Value is '"
      RetStr = RetStr & Match.Value & "'." & vbCRLF
   Next
   RegExpTest = RetStr
End Function
MsgBox(RegExpTest("is.", "IS1 is2 IS3 is4"))

Function SubMatchTest(inpStr)
  Dim oRe, oMatch, oMatches
  Set oRe = New RegExp
  ' Look for an e-mail address (not a perfect RegExp)
  oRe.Pattern = "(\w+)@(\w+)\.(\w+)"
  ' Get the Matches collection
  Set oMatches = oRe.Execute(inpStr)
  ' Get the first item in the Matches collection
  Set oMatch = oMatches(0)
  ' Create the results string.
  ' The Match object is the entire match - dragon@xyzzy.com
  retStr = "Email address is: " & oMatch & vbNewline
  ' Get the sub-matched parts of the address.
  retStr = retStr & "Email alias is: " & oMatch.SubMatches(0)  ' dragon
  retStr = retStr & vbNewline
  retStr = retStr & "Organization is: " & oMatch. SubMatches(1)' xyzzy
  SubMatchTest = retStr
End Function

Negation (-)
Exponentiation (^)
Multiplication and division (*, /)
Integer division (\)
Modulus arithmetic (Mod)
Addition and subtraction (+, -)
String concatenation (&)

Equality (=)
Inequality (<>)
Less than (<)
Greater than (>)
Less than or equal to (<=)
Greater than or equal to (>=)
Is

Not
And
Or
Xor
Eqv
Imp
&

Description Property
Global Property
HelpFile Property
Length Property
Pattern Property
Value Property

FirstIndex Property
HelpContext Property
IgnoreCase Property
Number Property
Source Property

Call Statement
Const Statement
Do...Loop Statement
Execute Statement
Exit Statement
For...Next Statement
If...Then...Else Statement
Option Explicit Statement
Property Get Statement
Property Set Statement
Randomize Statement
Rem Statement
Set Statement
Sub Statement
With Statement

Class Statement
Dim Statement
Erase Statement
ExecuteGlobal Statement
For Each...Next Statement
Function Statement
On Error Statement
Private Statement
Property Let Statement
Public Statement
ReDim Statement
Select Case Statement
Stop Statement
While...Wend Statement


	Application.Contents("ASD")
	Application.Contents.Remove("ASD")
	Application.Contents.Remove(0)
	Application.Contents.RemoveAll()
	Application.Lock()
	Application.StaticObjects("ASD")
	Application.UnLock()
	
	ObjectContext.SetAbort()
	ObjectContext.SetComplete()
	
	Request.BinaryRead(123)
	Request.ClientCertificate()
	Request.Cookies()
	Request.Form()
	Request.QueryString()
	Request.ServerVariables()
	Request.TotalBytes
	
	Response.AddHeader()
	Response.AppendToLog()
	Response.BinaryWrite()
	Response.Buffer
	Response.CacheControl
	Response.Charset
	Response.Clear()
	Response.ContentType
	Response.Cookies()
	Response.End()
	Response.Expires
	Response.ExpiresAbsolute
	Response.Flush()
	Response.IsClientConnected
	Response.PICS
	Response.Redirect()
	Response.Status
	Response.Write()
	
	Server.CreateObject()
	Server.Execute()
	Server.GetLastError()
	Server.HTMLEncode()
	Server.MapPath()
	Server.ScriptTimeout
	Server.Transfer()
	Server.URLEncode()
	
	Session.Abandon()
	Session.CodePage
	Session.Contents()
	Session.Contents.Remove()
	Session.Contents.RemoveAll()
	Session.LCID
	Session.SessionID
	Session.StaticObjects()
	Session.Timeout
		
	response.write("<h2>You can use HTML tags to format the text!</h2>")
%>
<%
	response.write("<p style='color:#0000ff'>This text is styled with the style attribute!</p>")
%>
<%
	dim name
	name = "Donald Duck"
	response.write("My name is: " & name)
%>
<%
	Dim famname(5),i
	famname(0) = "Jan Egil"
	famname(1) = "Tove"
	famname(2) = "Hege"
	famname(3) = "Stale"
	famname(4) = "Kai Jim"
	famname(5) = "Borge"
	
	For i = 0 to 5
		  response.write(famname(i) & "<br />")
	Next
%>

<%
	dim i
	for i=1 to 6
	   response.write("<h" & i & ">Header " & i & "</h" & i & ">")
	next
%>
<%
	dim h
	h=hour(now())
	
	response.write("<p>" & now())
	response.write(" (Norwegian Time) </p>")
	If h<12 then
	   response.write("Good Morning!")
	else
	   response.write("Good day!")
	end if
%>
Today's date is: <%response.write(date())%>.
<br>
The server's local time is: <%response.write(time())%>.

<p>
VBScripts' function <b>WeekdayName</b> is used to get a weekday:
</p>
<%
	response.Write(WeekDayName(1))
	response.Write("<br>")
	response.Write(WeekDayName(2))
%>

<p>Abbreviated name of a weekday:</p>
<%
	response.Write(WeekDayName(1,true))
	response.Write("<br>")
	response.Write(WeekDayName(2,true))
%>

<p>Current weekday:</p>
<%
	response.Write(WeekdayName(weekday(date)))
	response.Write("<br>")
	response.Write(WeekdayName(weekday(date), true))
%>
<p>VBScripts' function <b>MonthName</b> is used to get a month:</p>
<%
	response.Write(MonthName(1))
	response.Write("<br>")
	response.Write(MonthName(2))
%>

<p>Abbreviated name of a month:</p>
<%
	response.Write(MonthName(1,true))
	response.Write("<br>")
	response.Write(MonthName(2,true))
%>

<p>Current month:</p>
<%
	response.Write(MonthName(month(date)))
	response.Write("<br>")
	response.Write(MonthName(month(date), true))
%>
Today it is
<%response.write(WeekdayName(weekday(date)))%>,
<br />
and the month is
<%response.write(MonthName(month(date)))%>

<p>Countdown to year 3000:</p>

<p>
<% millennium = cdate("1/1/3000 00:00:00") %>

It is
<%response.write(DateDiff("yyyy", Now(), millennium))%>
years to year 3000!
<br>
It is
<%response.write(DateDiff("m", Now(), millennium))%>
months to year 3000!
<br>
It is
<%response.write(DateDiff("ww", Now(), millennium))%>
weeks to year 3000!
<br>
It is
<%response.write(DateDiff("d", Now(), millennium))%>
days to year 3000!
<br>
It is
<%response.write(DateDiff("h", Now(), millennium))%>
hours to year 3000!
<br>
It is
<%response.write(DateDiff("n", Now(), millennium))%>
minutes to year 3000!
<br>
It is
<%response.write(DateDiff("s", Now(), millennium))%>
seconds to year 3000!
</p>
<%
	response.write(DateAdd("d",30,date()))
%>
<%

	response.write(FormatDateTime(date(),vbgeneraldate))
	response.write("<br />")
	response.write(FormatDateTime(date(),vblongdate))
	response.write("<br />")
	response.write(FormatDateTime(date(),vbshortdate))
	response.write("<br />")
	response.write(FormatDateTime(now(),vblongtime))
	response.write("<br />")
	response.write(FormatDateTime(now(),vbshorttime))
%>
<%
	somedate="10/30/99"
	response.write(IsDate(somedate))
%>
<%
	name = "Bill Gates"
	response.write(ucase(name))
	response.write("<br>")
	response.write(lcase(name))
%>
<%
	name = " W3Schools "
	response.write("visit" & name & "now<br />")
	response.write("visit" & trim(name) & "now<br />")
	response.write("visit" & ltrim(name) & "now<br />")
	response.write("visit" & rtrim(name) & "now")
%>
<%
	sometext = "Hello Everyone!"
	response.write(strReverse(sometext))
%>
<%
	i = 48.66776677
	j = 48.3333333
	response.write(Round(i))
	response.write("<br>")
	response.write(Round(j))
%>

<%
	randomize()
	response.write(rnd())
%>
<%
	sometext="Welcome to this Web"
	response.write(Left(sometext,5))
	response.write("<br>")
	response.write(Right(sometext,5))
%>
<%
	sometext="Welcome to this Web!!"
	response.write(Replace(sometext, "Web", "Page"))
%>
<%
	sometext="Welcome to this Web!!"
	response.write(Mid(sometext, 9, 2))
%>
<%
	sub vbproc(num1,num2)
	response.write(num1*num2)
	end sub
%>

<p>
	You can call a procedure like this:
</p>
<p>
	Result: <%call vbproc(3,4)%>
</p>
<p>
	Or, like this:
</p>
<p>
	Result: <%vbproc 3,4%>
</p>

</body>
</html>

New files / edited: last update 11-may-07

codepress.css
language / aspvb.css
language / aspvb.js

New files / edited: last update 11-may-07

engines / msie.js - Better Snippet detection + Added [ 1693760 ] Autocomplete ending awareness
engines / gecko.js - Better Snippet detection + Added [ 1693760 ] Autocomplete ending awareness

add aspvb : 'ASPVB' to the CodePress.languages to enable the language

Another SQL Flavor...

-- MYSQL 
CREATE PROCEDURE simpleproc (OUT param1 INT)
BEGIN
	SELECT COUNT(*) INTO param1 FROM t;
END;

-- MS SQL
CREATE PROCEDURE spMyProc
(
	@lang as integer,
	@id as uniqueidentifier
)
AS
	Select * from Tbl where (lang=@lang) AND (id=@id)
GO

---- simple select example-- 
SELECT * FROM books WHERE price > 100.00 and price < 150.00	ORDER BY title


SELECT books.title, count(*) AS Authors	FROM books	
	JOIN book_authors ON books.book_number = book_authors.book_number	
GROUP BY books.title


-- insert, update and delete examples	
INSERT INTO my_table (field1, field2, field3) VALUES ('test', 'N', NULL);

BEGIN WORK;	
	UPDATE inventory SET quantity = quantity - 3 
	WHERE item = 'pants';
COMMIT;

New files / edited: last update 11-may-07

language / sql.css
language / sql.js

Javascript Function Scope...

/*
 *  NOW TRY THIS: write the starting charecters of one of the functions within the script
 *  try: 'key' or 'meta' and press tab, its awesome !
 *  Also works with functions you've just created !
 */


CodePress = {
	scrolling : false,
	autocomplete : true,
	
	// set initial vars and start sh
	initialize : function() {
		if(typeof(editor)=='undefined' && !arguments[0]) return;
		chars = '|32|46|62|'; // charcodes that trigger syntax highlighting
		cc = '\u2009'; // control char
		editor = document.getElementsByTagName('pre')[0];
		editor.contentEditable = 'true';
		document.getElementsByTagName('body')[0].onfocus = function() {editor.focus();}
		document.attachEvent('onkeydown', this.metaHandler);
		document.attachEvent('onkeypress', this.keyHandler);
		window.attachEvent('onscroll', function() { if(!CodePress.scrolling) setTimeout(function(){CodePress.syntaxHighlight('scroll')},1)});
		completeChars = this.getCompleteChars();
		/**/
		completeEndingChars =  this.getCompleteEndingChars();
		/**/
//		CodePress.syntaxHighlight('init');
		setTimeout(function() { window.scroll(0,0) },50); // scroll IE to top
	},
	
	// treat key bindings
	keyHandler : function(evt) {
		charCode = evt.keyCode;
		
		if( (completeEndingChars.indexOf('|'+String.fromCharCode(charCode)+'|')!= -1 ||	completeChars.indexOf('|'+String.fromCharCode(charCode)+'|')!=-1  ) && CodePress.autocomplete) { 
			// auto complete
			var found = CodePress.completeEnding(String.fromCharCode(charCode));
			if(found == false)
			     CodePress.complete(String.fromCharCode(charCode));
		}else if(chars.indexOf('|'+charCode+'|')!=-1||charCode==13) { 
			// syntax highlighting
		 	CodePress.syntaxHighlight('generic');
		}
		
		/* OLD VERSION
		if(completeChars.indexOf('|'+String.fromCharCode(charCode)+'|')!=-1 && CodePress.autocomplete) { // auto complete
			CodePress.complete(String.fromCharCode(charCode))
		}else if(chars.indexOf('|'+charCode+'|')!=-1||charCode==13) { 
			// syntax highlighting
		 	CodePress.syntaxHighlight('generic');
		}*/
	},

	metaHandler : function(evt) {
		keyCode = evt.keyCode;
		if(keyCode==9 || evt.tabKey) { 
			CodePress.snippets();
		}
		else if((keyCode==122||keyCode==121||keyCode==90) && evt.ctrlKey) { // undo and redo
			(keyCode==121||evt.shiftKey) ? CodePress.actions.redo() :  CodePress.actions.undo(); 
			evt.returnValue = false;
		}
		else if(keyCode==34||keyCode==33) { // handle page up/down for IE
			self.scrollBy(0, (keyCode==34) ? 200 : -200); 
			evt.returnValue = false;
		}
		else if(keyCode==46||keyCode==8) { // save to history when delete or backspace pressed
		 	CodePress.actions.history[CodePress.actions.next()] = editor.innerHTML;
		}
		else if((evt.ctrlKey || evt.metaKey) && evt.shiftKey && keyCode!=90)  { // shortcuts = ctrl||appleKey+shift+key!=z(undo) 
			CodePress.shortcuts(keyCode);
			evt.returnValue = false;
		}
		else if(keyCode==86 && evt.ctrlKey)  { // paste
			// TODO: pasted text should be parsed and highlighted
		}
	},

	// put cursor back to its original position after every parsing
	findString : function() {
	    range = self.document.body.createTextRange();
		if(range.findText(cc)){
			range.select();
			range.text = '';
		}
	},
	
	// split big files, highlighting parts of it
	split : function(code,flag) {
		if(flag=='scroll') {
			this.scrolling = true;
			return code;
		}
		else {
			this.scrolling = false;
			mid = code.indexOf(cc);
			if(mid-2000<0) {ini=0;end=4000;}
			else if(mid+2000>code.length) {ini=code.length-4000;end=code.length;}
			else {ini=mid-2000;end=mid+2000;}
			code = code.substring(ini,end);
			return code.substring(code.indexOf('<P>'),code.lastIndexOf('</P>')+4);
		}
	},
	
	// syntax highlighting parser
	syntaxHighlight : function(flag) {
		if(flag!='init') document.selection.createRange().text = cc;
		o = editor.innerHTML;
		o = o.replace(/<P>/g,'\n');
		o = o.replace(/<\/P>/g,'\r');
		o = o.replace(/<.*?>/g,'');
		o = o.replace(/ /g,'');			
		o = '<PRE><P>'+o+'</P></PRE>';
		o = o.replace(/\n\r/g,'<P></P>');
		o = o.replace(/\n/g,'<P>');
		o = o.replace(/\r/g,'<\/P>');
		o = o.replace(/<P>(<P>)+/,'<P>');
		o = o.replace(/<\/P>(<\/P>)+/,'</P>');
		o = o.replace(/<P><\/P>/g,'<P><BR/></P>');
		x = z = this.split(o,flag);

		if(arguments[1]&&arguments[2]) x = x.replace(arguments[1],arguments[2]);
	
		for(i=0;i<Language.syntax.length;i++) 
			x = x.replace(Language.syntax[i].input,Language.syntax[i].output);
			
		editor.innerHTML = this.actions.history[this.actions.next()] = (flag=='scroll') ? x : o.replace(z,x);
		if(flag!='init') this.findString();
	},
	getRangeAndCaret : function() {	
		var range = document.selection.createRange();
		var caret = Math.abs(range.moveStart('character', -1000000)+1);
		range = this.getCode();
		range = range.replace(/\n\r/gi,'  ');
		range = range.replace(/\n/gi,'');
		return [range.toString(),caret];
	},
	getLastWord : function() {
		var rangeAndCaret = CodePress.getRangeAndCaret();
		words = rangeAndCaret[0].substring(rangeAndCaret[1]-40,rangeAndCaret[1]);
		words = words.replace(/[\s\n\r\);\W]/g,'\n').split('\n');
		return words[words.length-1].replace(/[\W]/gi,'').toLowerCase();
	},
	snippets : function(evt) {
		var snippets = Language.snippets;
		var trigger = this.getLastWord();

		var o = editor.innerHTML;
		var funcs = o.match(Functions[0])
		alert( funcs )
		
		for (var i=0; i<snippets.length; i++) {
			if(snippets[i].input == trigger) {
				var content = snippets[i].output.replace(/</g,'<');
				content = content.replace(/>/g,'>');
				if(content.indexOf('$0')<0) content += cc;
				else content = content.replace(/\$0/,cc);
				content = content.replace(/\n/g,'</P><P>');
				var pattern = new RegExp(trigger+cc);
				this.syntaxHighlight('snippets',pattern,content);
			}
		}
	},
	
	readOnly : function() {
		editor.contentEditable = (arguments[0]) ? 'false' : 'true';
	},
	
	complete : function(trigger) {
		var complete = Language.complete;
		for (var i=0; i<complete.length; i++) {
			if(complete[i].input == trigger) {
				var pattern = new RegExp('\\'+trigger+cc);
				var content = complete[i].output.replace(/\$0/g,cc);
				setTimeout(function () { CodePress.syntaxHighlight('complete',pattern,content)},0); // wait for char to appear on screen
			}
		}
	},
//NEW *************************
/*
	returns a list of autocompletion ending
	characters. These characters come from the last characters in
	Language.complete's output string.
*/
	getCompleteEndingChars : function() {
	   var cChars = '';
		for(var i=0;i<Language.complete.length;i++)
			cChars += '|'+Language.complete[i].output.charAt(Language.complete[i].output.length-1);
		return cChars+'|';
	},
/*
	checks if the character after the cursor is the same
	character we just typed. If it is, it removes the next character, and
	returns true, otherwise it just returns false.
*/	
	completeEnding : function(trigger) {
       var range = document.selection.createRange();
       try{
            range.moveEnd('character', 1)
       }catch(e)
       {
        return false;
       }
       var next_character = range.text
       range.moveEnd('character', -1)
       if(next_character != trigger  )
		  return false;
	   else
       {
            range.moveEnd('character', 1)
            range.text=''
            return true;
       }
    },
//*	*******************************
	getCompleteChars : function() {
		var cChars = '';
		for(var i=0;i<Language.complete.length;i++)
			cChars += '|'+Language.complete[i].input;
		return cChars+'|';
	},

	shortcuts : function() {
		var cCode = arguments[0];
		if(cCode==13) cCode = '[enter]';
		else if(cCode==32) cCode = '[space]';
		else cCode = '['+String.fromCharCode(keyCode).toLowerCase()+']';
		for(var i=0;i<Language.shortcuts.length;i++)
			if(Language.shortcuts[i].input == cCode)
				this.insertCode(Language.shortcuts[i].output,false);
	},
	
	insertCode : function(code,replaceCursorBefore) {
		var repdeb = '';
		var repfin = '';
		
		if(replaceCursorBefore) { repfin = code; }
		else { repdeb = code; }
		
		if(typeof document.selection != 'undefined') {
			var range = document.selection.createRange();
			range.text = repdeb + repfin;
			range = document.selection.createRange();
			range.move('character', -repfin.length);
			range.select();	
		}	
	},

	// get code from editor	
	getCode : function() {
		var code = editor.innerHTML;
		code = code.replace(/<br>/g,'\n');
		code = code.replace(/<\/p>/gi,'\r');
		code = code.replace(/<p>/i,''); // IE first line fix
		code = code.replace(/<p>/gi,'\n');
		code = code.replace(/ /gi,'');
		code = code.replace(/\u2009/g,'');
		code = code.replace(/<.*?>/g,'');
		code = code.replace(/</g,'<');
		code = code.replace(/>/g,'>');
		code = code.replace(/&/gi,'&');
		return code;
	},

	// put code inside editor
	setCode : function() {
		var code = arguments[0];
		code = code.replace(/\u2009/gi,'');
		code = code.replace(/&/gi,'&');		
       	code = code.replace(/</g,'<');
        code = code.replace(/>/g,'>');
		editor.innerHTML = '<pre>'+code+'</pre>';
	},

	
	// undo and redo methods
	actions : {
		pos : -1, // actual history position
		history : [], // history vector
		
		undo : function() {
			if(editor.innerHTML.indexOf(cc)==-1){
				document.selection.createRange().text = cc;
			 	this.history[this.pos] = editor.innerHTML;
			}
			this.pos--;
			if(typeof(this.history[this.pos])=='undefined') this.pos++;
			editor.innerHTML = this.history[this.pos];
			CodePress.findString();
		},
		
		redo : function() {
			this.pos++;
			if(typeof(this.history[this.pos])=='undefined') this.pos--;
			editor.innerHTML = this.history[this.pos];
			CodePress.findString();
		},
		
		next : function() { // get next vector position and clean old ones
			if(this.pos>20) this.history[this.pos-21] = undefined;
			return ++this.pos;
		}
	}
}

Language={};
window.attachEvent('onload', function() { CodePress.initialize('new');});

New files / edited: last update 11-may-07

language / sql.css
language / sql.js
engines / msie.js - Function scope + Better Snippet detection + Autocomplete ending awareness
engines / gecko.js - Function scope + Better Snippet detection + Autocomplete ending awareness

each [language].js needs a Functions : [] method !