dim mode

  mode=1

  '********************************************************************************

  '**          TARTAN SAMANEH (C) All Rights Reserved

  '** *****************************************************************************

  '**   Farsi HTML Key Mapping for IE 5.0

  '** Copyright (c) 1999 , Islamic Republic of Iran 1378/05/20

  '** *****************************************************************************

  '** Usage Notes:

  '**

  '**  1- This code only works on IE 5.0 and Above with Arabic Display

  '**     Support. With this code you can type Farsi in any Windows.

  '**

  '**  1- If you are an ASP programmer Add this directive to first line

  '**     of your asp source:

  '**                           <%@CODEPAGE = "1256"%>

  '**

  '**  2- Use farsi functions in INPUT and TEXTAREA tags in your html

  '**

  '**     <input type="text" name="txt_example" size="10"

  '**       onkeydown="TartanKeyDown()" onkeypress="TartanKeyPress()" dir="RTL"

  '**     style="text-align:right; direction=rtl; font-family:Traditional Arabic">

  '**

  '**  3- You must include this code in your source files. If you are

  '**     an ASP programmer include this file at the end of your file as

  '**

  '**           </body>

  '**           <!-- #include file="tartan.asp" -->

  '**           </html>

  '**

  '**  4- Since this is a client side VBScript code you may use it in normal HTML

  '**     files. Only copy and paste all of this source in your HTML file.

  '**

  '**  Thank you for using Tartan Farsi Utilities.

  '********************************************************************************

  ' Keyboard Switching like as Arabic Windows 95!

  sub TartanKeyDown()

    if (window.event.shiftKey and window.event.altKey) then

      if (mode=0) then

        mode=1

        'Copyright Notice: Do not delete or change  the following message

//        window.defaultStatus = "Farsi Mode - Tartan Samaneh Co. Tehran 98-021-6460511,12"

      else

        mode=0

        'Copyright Notice: Do not delete or change the followin message

//        window.defaultStatus = "English Mode - Tartan Samaneh Co. Tehran 98-021-6460511,12"

      end if

      window.event.returnValue=FALSE

      exit sub

    end if

    window.event.returnValue=TRUE

  end sub



  ' Keyboard Mapping to Unicode characters

  sub TartanKeyPress()

    dim key
    key=window.event.keyCode

    if key>127 then exit sub

    if (mode=1) then

      select case chr(key)

        case "&"     : window.event.keyCode =  1548

        case "?"     : window.event.keyCode =  1567

        case "H"     : window.event.keyCode =  1570

        case "h"     : window.event.keyCode =  1575

        case "f","F" : window.event.keyCode =  1576

        case "`"     : window.event.keyCode =  1662

        case "j","J" : window.event.keyCode =  1578

        case "e","E" : window.event.keyCode =  1579

        case "["     : window.event.keyCode =  1580

        case "]"     : window.event.keyCode =  1670

        case "p","P" : window.event.keyCode =  1581

        case "o","O" : window.event.keyCode =  1582

        case "n","N" : window.event.keyCode =  1583

        case "b","B" : window.event.keyCode =  1584

        case "v","V" : window.event.keyCode =  1585

        case "c","C" : window.event.keyCode =  1586

        case "\"     : window.event.keyCode =  1688

        case "s","S" : window.event.keyCode =  1587

        case "a","A" : window.event.keyCode =  1588

        case "w","W" : window.event.keyCode =  1589

        case "q","Q" : window.event.keyCode =  1590

        case "x","X" : window.event.keyCode =  1591

        case "z","Z" : window.event.keyCode =  1592

        case "u","U" : window.event.keyCode =  1593

        case "y","Y" : window.event.keyCode =  1594

        case "t","T" : window.event.keyCode =  1601

        case "r","R" : window.event.keyCode =  1602

        case ";"     : window.event.keyCode =  1603

        case "'"     : window.event.keyCode =  1711

        case "g","G" : window.event.keyCode =  1604

        case "l","L" : window.event.keyCode =  1605

        case "k","K" : window.event.keyCode =  1606

        case ","     : window.event.keyCode =  1608

        case "i","I" : window.event.keyCode =  1607

        case "d"     : window.event.keyCode =  1610

        case "D"     : window.event.keyCode =  1609

        case "m","M" : window.event.keyCode =  1574

        case "?"     : window.event.keyCode =  1567

      end select

    end if

    window.event.returnValue=TRUE

  end sub


sub keybord(k1)

document.write "<table width=100% border=0 cellspacing=3 align=center>"
document.write "<b>"
document.write "<tr>"
document.write "<font face=nazanin size=1>"

document.write "<td nowrap bgcolor='#ff9933'><b><a href=javascript:alfabet("""
document.write mid(k1,1,1)
document.write """)><font class=""1"">&nbsp;"
document.write mid(k1,1,1)
document.write "&nbsp;</a>"

document.write "<td nowrap bgcolor='#ff9933'><b><a href=javascript:alfabet("""
document.write mid(k1,2,1)
document.write """)><font class=""1"">&nbsp;"
document.write mid(k1,2,1)
document.write "&nbsp;</a>"

document.write "<td nowrap bgcolor='#ff9933'><b><a href=javascript:alfabet("""
document.write mid(k1,3,1)
document.write """)><font class=""1"">&nbsp;"
document.write mid(k1,3,1)
document.write "&nbsp;</a>"

document.write "<td nowrap bgcolor='#ff9933'><b><a href=javascript:alfabet("""
document.write mid(k1,4,1)
document.write """)><font class=""1"">&nbsp;"
document.write mid(k1,4,1)
document.write "&nbsp;</a>"

document.write "<td nowrap bgcolor='#ff9933'><b><a href=javascript:alfabet("""
document.write mid(k1,5,1)
document.write """)><font class=""1"">&nbsp;"
document.write mid(k1,5,1)
document.write "&nbsp;</a>"

document.write "<td nowrap bgcolor='#ff9933'><b><a href=javascript:alfabet("""
document.write mid(k1,6,1)
document.write """)><font class=""1"">&nbsp;"
document.write mid(k1,6,1)
document.write "&nbsp;</a>"

document.write "<td nowrap bgcolor='#ff9933'><b><a href=javascript:alfabet("""
document.write mid(k1,7,1)
document.write """)><font class=""1"">&nbsp;"
document.write mid(k1,7,1)
document.write "&nbsp;</a>"

document.write "<td nowrap bgcolor='#ff9933'><b><a href=javascript:alfabet("""
document.write mid(k1,8,1)
document.write """)><font class=""1"">&nbsp;"
document.write mid(k1,8,1)
document.write "&nbsp;</a>"

document.write "<td nowrap bgcolor='#ff9933'><b><a href=javascript:alfabet("""
document.write mid(k1,9,1)
document.write """)><font class=""1"">&nbsp;"
document.write mid(k1,9,1)
document.write "&nbsp;</a>"

document.write "<td nowrap bgcolor='#ff9933'><b><a href=javascript:alfabet("""
document.write mid(k1,10,1)
document.write """)><font class=""1"">&nbsp;"
document.write mid(k1,10,1)
document.write "&nbsp;</a>"

document.write "<td nowrap bgcolor='#ff9933'><b><a href=javascript:alfabet("""
document.write mid(k1,11,1)
document.write """)><font class=""1"">&nbsp;"
document.write mid(k1,11,1)
document.write "&nbsp;</a>"

document.write "<td nowrap bgcolor='#ff9933'><b><a href=javascript:alfabet("""
document.write mid(k1,12,1)
document.write """)><font class=""1"">&nbsp;"
document.write mid(k1,12,1)
document.write "&nbsp;</a>"

document.write "<td nowrap bgcolor='#ff9933'><b><a href=javascript:alfabet("""
document.write mid(k1,13,1)
document.write """)><font class=""1"">&nbsp;"
document.write mid(k1,13,1)
document.write "&nbsp;</a>"

document.write "<td nowrap bgcolor='#ff9933'><b><a href=javascript:alfabet("""
document.write mid(k1,14,1)
document.write """)><font class=""1"">&nbsp;"
document.write mid(k1,14,1)
document.write "&nbsp;</a>"

document.write "<td nowrap bgcolor='#ff9933'><b><a href=javascript:alfabet("""
document.write mid(k1,15,1)
document.write """)><font class=""1"">&nbsp;"
document.write mid(k1,15,1)
document.write "&nbsp;</a>"

document.write "<td nowrap bgcolor='#ff9933'><b><a href=javascript:alfabet("""
document.write mid(k1,16,1)
document.write """)><font class=""1"">&nbsp;"
document.write mid(k1,16,1)
document.write "&nbsp;</a>"

document.write "<td nowrap bgcolor='#ff9933'><b><a href=javascript:alfabet("""
document.write mid(k1,17,1)
document.write """)><font class=""1"">&nbsp;"
document.write mid(k1,17,1)
document.write "&nbsp;</a>"

document.write "<td nowrap bgcolor='#ff9933'><b><a href=javascript:alfabet("""
document.write mid(k1,18,1)
document.write """)><font class=""1"">&nbsp;"
document.write mid(k1,18,1)
document.write "&nbsp;</a>"

document.write "<td nowrap bgcolor='#ff9933'><b><a href=javascript:alfabet("""
document.write mid(k1,19,1)
document.write """)><font class=""1"">&nbsp;"
document.write mid(k1,19,1)
document.write "&nbsp;</a>"

document.write "<td nowrap bgcolor='#ff9933'><b><a href=javascript:alfabet("""
document.write mid(k1,20,1)
document.write """)><font class=""1"">&nbsp;"
document.write mid(k1,20,1)
document.write "&nbsp;</a>"

document.write "<td nowrap bgcolor='#ff9933'><b><a href=javascript:alfabet("""
document.write mid(k1,21,1)
document.write """)><font class=""1"">&nbsp;"
document.write mid(k1,21,1)
document.write "&nbsp;</a>"

document.write "<td nowrap bgcolor='#ff9933'><b><a href=javascript:alfabet("""
document.write mid(k1,22,1)
document.write """)><font class=""1"">&nbsp;"
document.write mid(k1,22,1)
document.write "&nbsp;</a>"

document.write "<td nowrap bgcolor='#ff9933'><b><a href=javascript:alfabet("""
document.write mid(k1,23,1)
document.write """)><font class=""1"">&nbsp;"
document.write mid(k1,23,1)
document.write "&nbsp;</a>"

document.write "<td nowrap bgcolor='#ff9933'><b><a href=javascript:alfabet("""
document.write mid(k1,24,1)
document.write """)><font class=""1"">&nbsp;"
document.write mid(k1,24,1)
document.write "&nbsp;</a>"

document.write "<td nowrap bgcolor='#ff9933'><b><a href=javascript:alfabet("""
document.write mid(k1,25,1)
document.write """)><font class=""1"">&nbsp;"
document.write mid(k1,25,1)
document.write "&nbsp;</a>"

document.write "<td nowrap bgcolor='#ff9933'><b><a href=javascript:alfabet("""
document.write mid(k1,26,1)
document.write """)><font class=""1"">&nbsp;"
document.write mid(k1,26,1)
document.write "&nbsp;</a>"

document.write "<td nowrap bgcolor='#ff9933'><b><a href=javascript:alfabet("""
document.write mid(k1,27,1)
document.write """)><font class=""1"">&nbsp;"
document.write mid(k1,27,1)
document.write "&nbsp;</a>"

document.write "<td nowrap bgcolor='#ff9933'><b><a href=javascript:alfabet("""
document.write mid(k1,28,1)
document.write """)><font class=""1"">&nbsp;"
document.write mid(k1,28,1)
document.write "&nbsp;</a>"

document.write "<td nowrap bgcolor='#ff9933'><b><a href=javascript:alfabet("""
document.write mid(k1,29,1)
document.write """)><font class=""1"">&nbsp;"
document.write mid(k1,29,1)
document.write "&nbsp;</a>"

document.write "<td nowrap bgcolor='#ff9933'><b><a href=javascript:alfabet("""
document.write mid(k1,30,1)
document.write """)><font class=""1"">&nbsp;"
document.write mid(k1,30,1)
document.write "&nbsp;</a>"

document.write "<td nowrap bgcolor='#ff9933'><b><a href=javascript:alfabet("""
document.write mid(k1,31,1)
document.write """)><font class=""1"">&nbsp;"
document.write mid(k1,31,1)
document.write "&nbsp;</a>"

document.write "<td nowrap bgcolor='#ff9933'><b><a href=javascript:alfabet("""
document.write mid(k1,32,1)
document.write """)><font class=""1"">&nbsp;"
document.write mid(k1,32,1)
document.write "&nbsp;</a>"

document.write "<td nowrap bgcolor='#ff9933'><b><a href=javascript:alfabet("""
document.write mid(k1,33,1)
document.write """)><font class=""1"">&nbsp;"
document.write mid(k1,33,1)
document.write "&nbsp;</a>"

document.write "<td nowrap bgcolor='#ff9933'><b><a href=javascript:sp()><font class=""1"">&nbsp;"
document.write mid(k1,34,5)
document.write "&nbsp;</a>"

document.write "</table>"

end sub