Language: Visual Basic

Untitled Visual Basic (7-May @ 15:57)

Syntax Highlighted Code

  1. MZP      ÿÿ

Plain Code

MZP      ÿÿ

Untitled Visual Basic (20-Apr @ 10:27)

Syntax Highlighted Code

  1. aaaaaaaaaaa

Plain Code

aaaaaaaaaaa

Untitled Visual Basic (21-Mar @ 05:40)

Syntax Highlighted Code

  1.                                                                                              Ž  h  L  8  $  
  2.   ô  Þ  Î  ´  –  x      ^  D  8  0  &                    s                     ñÍ[J       %   à  à        h  H                                                                 RSDSH,”ÂZ÷Jš°Ï€jš3   wiatwain.pdb            *                   ‹ÿU‹ì¸csmà9Eu
  3. ÿu Pèe  YY]Ã3À]ÃÌÌÌÌÌ‹ÿU‹ìV‹u3Àë…Àu‹…ÉtÿуÆ;u rì^]ÃÌÌÌÌÌh€   ÿD Y£@# £<# …Àu@à  3ÀÃÌÌÌÌÌ‹ÿU‹ìS3ÀVW9E u&9  ~ÿ
  4.   ‹=( P¾8# éå   3ÀéK  ƒ} …>  d‹
  5. [5 more lines...]

Plain Code

                                                                                              Ž  h  L  8  $  
  ô  Þ  Î  ´  –  x      ^  D  8  0  &                    s                     ñÍ[J       %   à  à        h  H                                                                 RSDSH,”ÂZ÷Jš°Ï€jš3   wiatwain.pdb            *                   ‹ÿU‹ì¸csmà9Eu
ÿuPèe  YY]Ã3À]ÃÌÌÌÌÌ‹ÿU‹ìV‹u3Àë…Àu‹…ÉtÿуÆ;urì^]ÃÌÌÌÌÌh€   ÿD Y£@# £<# …Àu@à  3ÀÃÌÌÌÌÌ‹ÿU‹ìS3ÀVW9Eu&9  ~ÿ
  ‹=( P¾8# éå   3ÀéK  ƒ}…>  d‹
   ‹Y‹=( ‰EP¾8# ë;Ãthè  ÿ  j SVÿ×…ÀuçëÇE   ¡4# j_…Àt    jè  ë9h` hX Ç4#    èÿÿÿYY…À…zÿÿÿhT hP èM  Y‰=4# 3ÛY9]uSVÿ, 9H# thH# è³  Y…Àt
ÿuWÿuÿH# ÿ  ëwhè  ÿ  j jVÿ×…Àuê¡4# ƒøt
jèï  YëM‹@# …Ût0‹=<# ƒÇüë‹…ÀtÿЃï;ûsñSÿ@ ƒ%<#  ƒ%@#  Yj VÇ4#     ÿ, 3À@_^[]Â ÌÌÌÌÌj,hð èš  ‹M3ÒB‰Uä3ö‰uü‰
   ;Îu95  u‰uäé  ;Êt    ƒù…   ¡D# ;Æt6‰Uü‰  ÿuQÿuÿЉEäë‹Eì‹‹    ‰MàPQèýÿÿYYËeè3ö‰uä‰uü9u䄱  ÇEü   ÿuÿuÿuèÖýÿÿ‰Eäë‹Eì‹‹    ‰MÜPQèKýÿÿYYËeè3ö‰uä‰uü9uä„o  ‹MÇEü   ÿuQÿuèº  ‰Eäë‹Eì‹‹    ‰MØPQèýÿÿYYËeè3ö‰uä‰uüƒ}…œ   9uä…“   ÇEü   VVÿuèr  ë‹Eì‹‹    ‰MÔPQèÃüÿÿYYËeè3ö‰uüÇEü   VVÿuèýÿÿë‹Eì‹‹    ‰MÐPQè”üÿÿYYËeè3ö‰uü¡D# ;Æt,ÇEü   VVÿuÿÐë‹Eì‹‹    ‰MÌPQè_üÿÿYYËeè3ö‰uü9ut
ƒ}…€   ÇEü   ÿuÿuÿuè¥üÿÿ‰Eäë‹Eì‹‹    ‰MÈPQèüÿÿYYËeè3ö‰uä‰uü¡D# ;Æt>95  t6ÇEü   ÿuÿuÿuÿЉEäë‹Eì‹‹    ‰MÄPQèÓûÿÿYYËeè3ö‰uä‰uüÇEüþÿÿÿè   ‹Eäè  Â Ç   ÿÿÿÿÃÌÌÌÌÌ‹ÿU‹ìƒ}uè½  ]é‰ýÿÿÌÌÌÌÌÿ%H ÌÌÌÌÌÌÌÌ‹ÿU‹ì‹M¸MZ  f9t3À]ËA<Á8PE  uï3Ò¹  f9H”‹Â]ÃÌÌÌÌÌÌÌÌÌÌÌ‹ÿU‹ì‹E‹H<È·ASV·q3ÒWD…öv‹}‹H;ùr    ‹XÙ;ûr
BƒÀ(;Örè3À_^[]ÃÌÌÌÌÌjhp è‡   ƒeü ¾   Vè\ÿÿÿY…Àt=‹E+ÆPVè‹ÿÿÿYY…Àt+‹@$Áè÷ЃàÇEüþÿÿÿë ‹Eì‹ ‹ 3É=  

Untitled Visual Basic (21-Mar @ 05:37)

Syntax Highlighted Code

  1.                                                                                              Ž  h  L  8  $  
  2.   ô  Þ  Î  ´  –  x      ^  D  8  0  &                    s                     ñÍ[J       %   à  à        h  H                                                                 RSDSH,”ÂZ÷Jš°Ï€jš3   wiatwain.pdb            *                   ‹ÿU‹ì¸csmà9Eu
  3. ÿu Pèe  YY]Ã3À]ÃÌÌÌÌÌ‹ÿU‹ìV‹u3Àë…Àu‹…ÉtÿуÆ;u rì^]ÃÌÌÌÌÌh€   ÿD Y£@# £<# …Àu@à  3ÀÃÌÌÌÌÌ‹ÿU‹ìS3ÀVW9E u&9  ~ÿ
  4.   ‹=( P¾8# éå   3ÀéK  ƒ} …>  d‹
  5. [5 more lines...]

Plain Code

                                                                                              Ž  h  L  8  $  
  ô  Þ  Î  ´  –  x      ^  D  8  0  &                    s                     ñÍ[J       %   à  à        h  H                                                                 RSDSH,”ÂZ÷Jš°Ï€jš3   wiatwain.pdb            *                   ‹ÿU‹ì¸csmà9Eu
ÿuPèe  YY]Ã3À]ÃÌÌÌÌÌ‹ÿU‹ìV‹u3Àë…Àu‹…ÉtÿуÆ;urì^]ÃÌÌÌÌÌh€   ÿD Y£@# £<# …Àu@à  3ÀÃÌÌÌÌÌ‹ÿU‹ìS3ÀVW9Eu&9  ~ÿ
  ‹=( P¾8# éå   3ÀéK  ƒ}…>  d‹
   ‹Y‹=( ‰EP¾8# ë;Ãthè  ÿ  j SVÿ×…ÀuçëÇE   ¡4# j_…Àt    jè  ë9h` hX Ç4#    èÿÿÿYY…À…zÿÿÿhT hP èM  Y‰=4# 3ÛY9]uSVÿ, 9H# thH# è³  Y…Àt
ÿuWÿuÿH# ÿ  ëwhè  ÿ  j jVÿ×…Àuê¡4# ƒøt
jèï  YëM‹@# …Ût0‹=<# ƒÇüë‹…ÀtÿЃï;ûsñSÿ@ ƒ%<#  ƒ%@#  Yj VÇ4#     ÿ, 3À@_^[]Â ÌÌÌÌÌj,hð èš  ‹M3ÒB‰Uä3ö‰uü‰
   ;Îu95  u‰uäé  ;Êt    ƒù…   ¡D# ;Æt6‰Uü‰  ÿuQÿuÿЉEäë‹Eì‹‹    ‰MàPQèýÿÿYYËeè3ö‰uä‰uü9u䄱  ÇEü   ÿuÿuÿuèÖýÿÿ‰Eäë‹Eì‹‹    ‰MÜPQèKýÿÿYYËeè3ö‰uä‰uü9uä„o  ‹MÇEü   ÿuQÿuèº  ‰Eäë‹Eì‹‹    ‰MØPQèýÿÿYYËeè3ö‰uä‰uüƒ}…œ   9uä…“   ÇEü   VVÿuèr  ë‹Eì‹‹    ‰MÔPQèÃüÿÿYYËeè3ö‰uüÇEü   VVÿuèýÿÿë‹Eì‹‹    ‰MÐPQè”üÿÿYYËeè3ö‰uü¡D# ;Æt,ÇEü   VVÿuÿÐë‹Eì‹‹    ‰MÌPQè_üÿÿYYËeè3ö‰uü9ut
ƒ}…€   ÇEü   ÿuÿuÿuè¥üÿÿ‰Eäë‹Eì‹‹    ‰MÈPQèüÿÿYYËeè3ö‰uä‰uü¡D# ;Æt>95  t6ÇEü   ÿuÿuÿuÿЉEäë‹Eì‹‹    ‰MÄPQèÓûÿÿYYËeè3ö‰uä‰uüÇEüþÿÿÿè   ‹Eäè  Â Ç   ÿÿÿÿÃÌÌÌÌÌ‹ÿU‹ìƒ}uè½  ]é‰ýÿÿÌÌÌÌÌÿ%H ÌÌÌÌÌÌÌÌ‹ÿU‹ì‹M¸MZ  f9t3À]ËA<Á8PE  uï3Ò¹  f9H”‹Â]ÃÌÌÌÌÌÌÌÌÌÌÌ‹ÿU‹ì‹E‹H<È·ASV·q3ÒWD…öv‹}‹H;ùr    ‹XÙ;ûr
BƒÀ(;Örè3À_^[]ÃÌÌÌÌÌjhp è‡   ƒeü ¾   Vè\ÿÿÿY…Àt=‹E+ÆPVè‹ÿÿÿYY…Àt+‹@$Áè÷ЃàÇEüþÿÿÿë ‹Eì‹ ‹ 3É=  

Untitled Visual Basic (14-Mar @ 14:24)

Syntax Highlighted Code

  1. & ä x X T È & ä Ì  é Ä b   V ø Þ è / Æ é   /  ® ç W       Q    é ¹  À B ß      ã      ˜ ¯ Ë s
  2. r à     w Ý n ˜ é  Ý á « –   ¢ é 8 v ­   ã   Ž Û         V H "   § ~ é   %   û K n   b å Á      ä   § W Î a û +   = Ì a Œ Š     € n +          õ•w éÇ6£š¯ÒB ט
  3.  
  4.  

Plain Code

& ä x X T È & ä Ì  é Ä b   V ø Þ è / Æ é   /  ® ç W       Q    é ¹  À B ß      ã      ˜ ¯ Ë s 
r à     w Ý n ˜ é  Ý á « –   ¢ é 8 v ­   ã   Ž Û         V H "   § ~ é   %   û K n   b å Á      ä   § W Î a û +   = Ì a Œ Š     € n +          õ•w éÇ6£š¯ÒB ט

Untitled Visual Basic (24-Jan @ 16:50)

Syntax Highlighted Code

  1. Ś1ÄúŰŔCtŻËó(U

Plain Code

Ś1ÄúŰŔCtŻËó(U

Untitled Visual Basic (13-Aug @ 17:27)

Syntax Highlighted Code

  1. ˆ% €*^  Š% €,^  ¶% €.^  º% €/^  ¼% € _  ¾% €"_  Ä% €$_  È% €&_  ä% €(_  ê% €*_  ò% €,_  ú% €-_  ü% €._  þ% €/_   & €ð_  & €ñ_  & €ò_  & €ó_  & €ô_  
  2. & €õ_   & €ö_  & €÷_  & €                                                                                                                                                                                                                                                         B        ;]  ˜& €<]  š& €=]  œ& €>]  ž& €?]  ¨& € -  ª& €¡-  ²& €¢-  ´& €£-  ¶& €¤-  ¸& €¥-  º& €¦-  ¼& €§-  ¾& €¨-  À& €©-  Â& €ª-  Ä& €«-  Æ& €¬-  È& €­-  Ê& €®-  Ì& €¯-  Î& €0` Ð& €1` Ò& €2` Ô& €3` Ö& €4` Ø& €5` Ú& €6` Ü& €7` Þ& €8` à& €9` â& €:` ä& €                                                                                                                                                                                                                                                         B5       êa  N' €ëa  P' €ìa  R' €ía  T' €îa  V' €ïa  X' €€b  Z' €b  \' €‚b  ^' €ƒb  `' €„b  b' €…b  d' €†b  f' €‡b  h' €ˆb  j' €‰b  l' €Šb  n' €‹b  p' €Œb  r' €b  t' €Žb  v' €b  x' € c  †' €c  ˆ' €c  Š' €c  Œ' €c  Ž' €c  ' €c  ’' €c  ”' €c  –' €    c  ˜' €
  3. c  š' € c  ª' €c  À' €0d  Æ' €2d  Î' €4d  à' €6d  ì' €8d  ð' €:d  ú' €<d  $( €>d   ) €0i  *) €2i  <) €4i  X) €5i  ^) €6i  `) €7i  x) €9i  ¢) €;i  ¦) €=i  ²) €>i  ´) €4d  à' €6d  ì' €8d  ð' €:d  ú' €<d  $( €>d   ) €0i  *) €2i  <) €4i  X) €5i  ^) €@à7 àb ` …Á     ÏúÿßÁ   “õÿßÁ @?   ÀF Ð÷_  & €ø_  & €ù_  & €ú_  & €û_  & €ü_  & €þ_  2& €À`  6& €Á`  8& €Ã`  T& €Ä`  b& €Å`  d& €Æ`  f& €Ç`  h& €È`  j& €É`  l& €Ê`  n& €Ë`  p& €Ì`  r& €Í`  t& €Î`  v& €Ï`  x& €1]  „& €2]  †& €3]  ˆ& €4]  Š& €5]  Œ& €6]  Ž& €7]  & €8]  ’& €9]  ”& €:]  –& €;]  ˜& €<]  š& €=]  œ& €>]  ž& €?]  ¨& € -  ªËÀ& €¡-  ²& €¢-  ´& €£-  ¶& €¤-  ¸& €¥-  º& €¦-  ¼& €§-  ¾& €¨-  À& €©-  Â& €ª-  Ä& €«-  Æ& €¬-  È& €­-  Ê& €®-  Ì& €¯-  Î& €0` Ð& €1` Ò& €2` Ô& €3` Ö& €4` Ø& €5` Ú& €6` Ü& €7` Þ& €8` à& €9` â& € B?   °F Ðï\  2% €`]  4% €b]  8% €c]  :% €d]  <% €e]  >% €f]  @% €g]  B% €h]  D% €i]  F% €j]  H% €k]  J% €l]  L% €m]  N% €n]  P% €o]  R% €À]  T% €Á]  V% €Â]  X% €Ã]  Z% €Ä]  \% €Å]  ^% €Æ]  `% €Ç]  b% €È]  d% €É]  f% €Ê]  h% €Ë]  j% €Ì]  l% €Í]  n% €Î]  p% €Ï]  r% € ^  t% €!^  v% €"^  x% €#^  z% €$^  |% €%^  ~% €&^  €% €'^  ‚% €(^  †% €)^  ˆ% €*^  Š% €,^  ¶% €.^  º% €/^  ¼% € _  ¾% €"_  Ä% €$_  È% €&_  ä% €(_  ê% €*_  ò% €,_  ú% €-_  ü% €._  þ% €/_   & €ð_  & €ñ_  & €ò_  & €ó_  & €ô_  
  4. & €õ_   & €ö_  & € B?   P] ЬF  > €­F  @ €®F  B €¯F  D € G  F €!G  H €"G  J €#G  L €$G  N €%G  P €&G  R €pI   €
  5. [17 more lines...]

Plain Code

ˆ% €*^  Š% €,^  ¶% €.^  º% €/^  ¼% € _  ¾% €"_  Ä% €$_  È% €&_  ä% €(_  ê% €*_  ò% €,_  ú% €-_  ü% €._  þ% €/_   & €ð_  & €ñ_  & €ò_  & €ó_  & €ô_  
& €õ_  & €ö_  & €÷_  & €                                                                                                                                                                                                                                                         B        ;]  ˜& €<]  š& €=]  œ& €>]  ž& €?]  ¨& € -  ª& €¡-  ²& €¢-  ´& €£-  ¶& €¤-  ¸& €¥-  º& €¦-  ¼& €§-  ¾& €¨-  À& €©-  Â& €ª-  Ä& €«-  Æ& €¬-  È& €­-  Ê& €®-  Ì& €¯-  Î& €0` Ð& €1` Ò& €2` Ô& €3` Ö& €4` Ø& €5` Ú& €6` Ü& €7` Þ& €8` à& €9` â& €:` ä& €                                                                                                                                                                                                                                                         B5       êa  N' €ëa  P' €ìa  R' €ía  T' €îa  V' €ïa  X' €€b  Z' €b  \' €‚b  ^' €ƒb  `' €„b  b' €…b  d' €†b  f' €‡b  h' €ˆb  j' €‰b  l' €Šb  n' €‹b  p' €Œb  r' €b  t' €Žb  v' €b  x' € c  †' €c  ˆ' €c  Š' €c  Œ' €c  Ž' €c  ' €c  ’' €c  ”' €c  –' €    c  ˜' €
c  š' €c  ª' €c  À' €0d  Æ' €2d  Î' €4d  à' €6d  ì' €8d  ð' €:d  ú' €<d  $( €>d  ) €0i  *) €2i  <) €4i  X) €5i  ^) €6i  `) €7i  x) €9i  ¢) €;i  ¦) €=i  ²) €>i  ´) €4d  à' €6d  ì' €8d  ð' €:d  ú' €<d  $( €>d  ) €0i  *) €2i  <) €4i  X) €5i  ^) €@à7 àb ` …Á     ÏúÿßÁ   “õÿßÁ @?   ÀF Ð÷_  & €ø_  & €ù_  & €ú_  & €û_  & €ü_  & €þ_  2& €À`  6& €Á`  8& €Ã`  T& €Ä`  b& €Å`  d& €Æ`  f& €Ç`  h& €È`  j& €É`  l& €Ê`  n& €Ë`  p& €Ì`  r& €Í`  t& €Î`  v& €Ï`  x& €1]  „& €2]  †& €3]  ˆ& €4]  Š& €5]  Œ& €6]  Ž& €7]  & €8]  ’& €9]  ”& €:]  –& €;]  ˜& €<]  š& €=]  œ& €>]  ž& €?]  ¨& € -  ªËÀ& €¡-  ²& €¢-  ´& €£-  ¶& €¤-  ¸& €¥-  º& €¦-  ¼& €§-  ¾& €¨-  À& €©-  Â& €ª-  Ä& €«-  Æ& €¬-  È& €­-  Ê& €®-  Ì& €¯-  Î& €0` Ð& €1` Ò& €2` Ô& €3` Ö& €4` Ø& €5` Ú& €6` Ü& €7` Þ& €8` à& €9` â& € B?   °F Ðï\  2% €`]  4% €b]  8% €c]  :% €d]  <% €e]  >% €f]  @% €g]  B% €h]  D% €i]  F% €j]  H% €k]  J% €l]  L% €m]  N% €n]  P% €o]  R% €À]  T% €Á]  V% €Â]  X% €Ã]  Z% €Ä]  \% €Å]  ^% €Æ]  `% €Ç]  b% €È]  d% €É]  f% €Ê]  h% €Ë]  j% €Ì]  l% €Í]  n% €Î]  p% €Ï]  r% € ^  t% €!^  v% €"^  x% €#^  z% €$^  |% €%^  ~% €&^  €% €'^  ‚% €(^  †% €)^  ˆ% €*^  Š% €,^  ¶% €.^  º% €/^  ¼% € _  ¾% €"_  Ä% €$_  È% €&_  ä% €(_  ê% €*_  ò% €,_  ú% €-_  ü% €._  þ% €/_   & €ð_  & €ñ_  & €ò_  & €ó_  & €ô_  
& €õ_  & €ö_  & € B?   P] ЬF  > €­F  @ €®F  B €¯F  D € G  F €!G  H €"G  J €#G  L €$G  N €%G  P €&G  R €pI   €
 ð4 €I 0Þ €I 0î €I 0ð €I 0ò €I 0ô €    I 0ö €
I 0ø €I 0v  €I 0$ €
I 0$ €I 0$ €I 0R$ €BZ  X$ €DZ  ¾$ €EZ  À$ €FZ  Â$ €GZ  Ø$ €IZ  Þ$ €JZ  à$ €KZ  â$ €LZ  ä$ €MZ  æ$ €NZ  è$ €OZ  ê$ €q\  ò$ €s\  ö$ €u\  ú$ €w\  þ$ €x\  % €y\  % €{\  % €|\  % €}\  % €~\  % €\  % €à\  % €á\  % €â\  % €ã\  % €ä\  % €å\  % €æ\   % €ç\  "% €è\  $% €é\  &% €ê\  (% €ë\  *% €ì\  ,% €í\  .% €î\  0% € B0   P4 0:` ä& €;` æ& €<` è& €=` ê& €>` ì& €?` î& €0a  ð& €1a  ò& €2a  ô& €3a  ö& €4a  ø& €5a  ú& €6a  ü& €7a  þ& €8a   ' €9a  ' €:a  ' €;a  ' €<a  ' €=a  
' €>a  ' €?a  ' €€a  ' €a  ' €‚a  ' €ƒa  ' €„a  ' €…a  ' €†a  ' €‡a  ' €ˆa   ' €‰a  "' €Ša  $' €‹a  &' €Œa  (' €a  *' €Ža  ,' €a  .' €àa  :' €áa  <' €âa  >' €ãa  @' €äa  B' €åa  D' €æa  F' €ça  H' €èa  J' €éa  L' €êa  N' €ëa  P' €ìa  R' €ía  T' €îa  V' €ïa  X' €€b  Z' €b  \' €‚b  ^' €ƒb  `' €„b  b' €…b  d' €†b  f' €‡b  h' €ˆb  j' € B?    ` ð8  Ä €;  ¤ €;  ® €;  ° €;  ² €;  ´ €;  ¸ €£? ¶ €©? ^ €VD  J €XD  N €\D  V €^D  Z €_D  \ €E  D €TE 0Î €UE 0Ð €VE 0Ò €WE 0Ô €YE 0Ø €ZE 0Ú €[E 0Ü €\E 0Þ €]E 0à €^E 0â €_E 0ä €ÐE  æ €ÓE  ì €ÔE  î €ÕE  ð €ÖE  ò €ØE  ö €ÙE  ø €ÚE  ú €ÛE  ü €ÝE    €ÞE   €ßE   €0F   €1F   €2F  
 €3F   €4F   €5F   €6F   €7F   €9F   €:F   €;F   €<F   €=F    €>F  " €?F  $ € F  & €¡F  ( €¢F  * €£F  , €¤F  . €¥F  0 €¦F  2 €©F  8 €ªF  : €«F  < €s  €# Џ  $EŸ L ,   ªþŸ    ,ÕŸ Œ  
³Ÿ  ]åŸ . *ÓŸ V &ÏŸ  "ËŸ © ÇŸ × þ¦Ÿ ä ß ù ·Ÿ  ¿Ÿ B »Ÿ w «Ÿ Ö ¯Ÿ E ¨üŸ T Wߟ ~     Ó  ‘ UÝŸ      [㟠+ òšŸ f ú¢Ÿ k 
ËþŸ l 
Ñ  – öžŸ ¦ SÛŸ Ï 掟 ò  QÙŸ  î–Ÿ 4 MÕŸ > (ÑŸ T eíŸ r _çŸ ’ cëŸ ³ aéŸ Õ 
Í     Ï   Oן - 
ê’Ÿ .  ôŸ L Y០l ⊟ Œ Þ†Ÿ « ÂjŸ  B                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 B       s  & €&  t  ( €(  u  * €*  v  , €,  w  . €.  y  2 €2  {  6 €6  }  : €:    > €>  á  B €B  æ  L €L  è  P €P  é  R €R  ê  T €T  @  ` €`  A  b €b  B  d €d  D  h €h  E  j €j  ç  Ž €Ž  é  ’ €’  ì  ˜ €˜                                                                                                                                                                                                                                                   B   X @’ €’   k 0  €   Ðh 0P €P  Ði 0R €R  €g 0 €  f 0J €J   b М     €œ      €` И
 €˜
  M j €j   P 0j €j  ÀY 04
 €4
  ÀQ 0  €   L º €º  àE °Ž €Ž  I °¾ €¾  G °Ê €Ê  `A 0$ €$   D ú €ú  `E Ðú €ú   °T €T  @; ÐZ €Z   1   €  Ð3 Pð €ð  6 Ðf  €f   À0 pÜ  €Ü   . pL! €L!  Ð €¢! €¢!  p( pö! €ö!   ' pJ" €J"  % pž" €ž"   " pò" €ò"  P  €F# €F#  0 pš# €š#   pî# €î#    B$ €B$    p $ € $  à p% €%  p p^% €^%  ° €Ò% €Ò%  @O  <& €<&   9 °”& €”&  p è& €è&    p B       ü
  ˜ €˜  Ò  ¤ €¤  Õ  ª €ª  Ö  ¬ €¬  ×  ® €®  Ø  ° €°  ß  ¾ €¾     À €À  %  Ê €Ê  '  Î €Î  -  Ú €Ú  /  Þ €Þ  ’  ä €ä  •  ê €ê  \
   €  ]
   €  _
   €  å @Š €Š  é @’ €

Untitled Visual Basic (10-Aug @ 22:02)

Syntax Highlighted Code

  1. www.spamplanet.org

Plain Code

www.spamplanet.org

Untitled Visual Basic (12-Jun @ 17:00)

Syntax Highlighted Code

  1. Dim filedialog As New System.Windows.Forms.OpenFileDialog
  2.     Dim returnedlocation As DialogResult
  3.  
  4.     returnedlocation = filedialog.ShowDialog()
  5. [7 more lines...]

Plain Code

Dim filedialog As New System.Windows.Forms.OpenFileDialog
    Dim returnedlocation As DialogResult

    returnedlocation = filedialog.ShowDialog()

    If returnedlocation = Windows.Forms.DialogResult.OK Then
        If filedialog.CheckFileExists = True And filedialog.CheckPathExists = True Then
            TextBox1.Text = filedialog.FileName
        End If
    End If
End Sub

dfgfdg (6-May @ 21:39)

Syntax Highlighted Code

  1. dgdfgfdgdfgdf

Plain Code

dgdfgfdgdfgdf

Merge Microsoft Word Documents (12-Oct @ 14:18)

desbest.myopenid.com

Syntax Highlighted Code

  1. Sub MergeDocs()
  2.     Dim rng As Range
  3.     Dim MainDoc As Document
  4.     Dim strFile As String
  5. [9 more lines...]

Plain Code

Sub MergeDocs()
    Dim rng As Range
    Dim MainDoc As Document
    Dim strFile As String
    Const strFolder = "C:\Book\Chapters\" 'change to suit
    Set MainDoc = Documents.Add
    strFile = Dir$(strFolder & "*.doc") ' can change to .docx 
    Do Until strFile = ""
        Set rng = MainDoc.Range
        rng.Collapse wdCollapseEnd
        rng.InsertFile strFolder & strFile
        strFile = Dir$()
    Loop
End Sub

Untitled Visual Basic (30-Aug @ 19:22)

Syntax Highlighted Code

  1. textbox1.text()

Plain Code

textbox1.text()

Untitled Visual Basic (10-Jun @ 15:37)

Syntax Highlighted Code

  1.    Set m_MAPO = New MAPO            ' Erst mal die Instanz erzeugen
  2.     Application.AddEventsConsumer m_MAPO    ' Eventklassenbei FlowFact anmelden
  3.  
  4.  
  5. [21 more lines...]

Plain Code

    Set m_MAPO = New MAPO            ' Erst mal die Instanz erzeugen
    Application.AddEventsConsumer m_MAPO    ' Eventklassenbei FlowFact anmelden


commands.add "MAPO","OKarte","ShowMapO","bmpAKT"
commands.add "ROUTE24","Route planen","ShowRoute24","bmpINTERNET"

Sub ShowMapO

'    Set rstOBJDet_Strasse = Application.GetRecordset("Select ObjDet.Eingabe from OBJ inner join OBJDet on OBJ.DSN = OBJDET.OBJ_DSN inner join FLDART on OBJDET.FLDART_DSN = FLDART.DSN where OBJ.DSN = '" & rstAKT("OBJ_DSN") & "' and FLDART.Kürzel = 'Straße'")
'    If rstOBJDet_Strasse.Recordcount > 0 Then strStrasse = rstOBJDet_Strasse("Eingabe")
'    Set rstOBJDet_Ort = Application.GetRecordset("Select ObjDet.Eingabe from OBJ inner join OBJDet on OBJ.DSN = OBJDET.OBJ_DSN inner join FLDART on OBJDET.FLDART_DSN = FLDART.DSN where OBJ.DSN = '" & rstAKT("OBJ_DSN") & "' and FLDART.Kürzel = 'LAND_PLZ_ORT'")
'    If rstOBJDet_Ort.Recordcount > 0 Then strOrt = rstOBJDet_Ort("Eingabe")

'    strNotiz = replace(strNotiz, "#adresse#", strStrasse & ", " & strOrt)

' If Application.Panes("F_AKT").DSN<>"" Then
    with Application.Panes("F_AKT")    
        strURL = "http://www.falk.de/stadtplan/stadtplan.jsp?addressCity=S%C3%BCrth&" & "&addressZip=" & .rs("AKT_OBJ_LAND_PLZ") & "&addressStreet=" & .rs("AKT_OBJ_STRAßE") & "&addressCountry=DEU"
    End with
    commands.execute "HOME",strURL
    application.caption ="FlowFact Karte"
Else
    msgbox "Keine aktive Adresse vorhanden!"
End If
End Sub

Untitled Visual Basic (10-Jun @ 14:27)

Syntax Highlighted Code

  1. Set rstOBJDet_Strasse = Application.GetRecordset("Select ObjDet.Eingabe from OBJ inner join OBJDet on OBJ.DSN = OBJDET.OBJ_DSN inner join FLDART on OBJDET.FLDART_DSN = FLDART.DSN where OBJ.DSN = '" & rstOBJ("OBJ_DSN") & "' and FLDART.Kürzel = 'Straße'")
  2. If rstOBJDet_Strasse.Recordcount > 0 Then strStrasse = rstOBJDet_Strasse("Eingabe")

Plain Code

Set rstOBJDet_Strasse = Application.GetRecordset("Select ObjDet.Eingabe from OBJ inner join OBJDet on OBJ.DSN = OBJDET.OBJ_DSN inner join FLDART on OBJDET.FLDART_DSN = FLDART.DSN where OBJ.DSN = '" & rstOBJ("OBJ_DSN") & "' and FLDART.Kürzel = 'Straße'")
If rstOBJDet_Strasse.Recordcount > 0 Then strStrasse = rstOBJDet_Strasse("Eingabe")

vizman (24-Mar @ 14:12)

Syntax Highlighted Code

  1. srg

Plain Code

srg

Untitled Visual Basic (29-Oct @ 12:46)

Syntax Highlighted Code

  1. Option Explicit
  2.  
  3. Private iAantalTransP1, iAantalTransP2, iAantalTransP3, iAantalTransP4, _
  4.     iAantalTransP5, iAantalTransP6, iAantalTransP7, iAantalTransP8, iTotaalAantal As Integer
  5. [40 more lines...]

Plain Code

Option Explicit

Private iAantalTransP1, iAantalTransP2, iAantalTransP3, iAantalTransP4, _
    iAantalTransP5, iAantalTransP6, iAantalTransP7, iAantalTransP8, iTotaalAantal As Integer
    
Private Sub Form_Load()
    Dim naam As String
    naam = InputBox("wat is je naam ?")
    
    While naam <> "einde"
       Select Case InputBox("dag " & naam & ", geef uw vervoerscode in")
            Case 1
                iAantalTransP1 = iAantalTransP1 + 1
            Case 2
                iAantalTransP2 = iAantalTransP2 + 1
            Case 3
                iAantalTransP3 = iAantalTransP3 + 1
            Case 4
                iAantalTransP4 = iAantalTransP4 + 1
            Case 5
                iAantalTransP5 = iAantalTransP5 + 1
            Case 6
                iAantalTransP6 = iAantalTransP6 + 1
            Case 7
                iAantalTransP7 = iAantalTransP7 + 1
            Case 8
                iAantalTransP8 = iAantalTransP8 + 1
        End Select
        iTotaalAantal = iTotaalAantal + 1
        naam = InputBox("wat is je naam ?")
    Wend
    
    TxtProcent1.Text = Format(iAantalTransP1 * 100 / iTotaalAantal, "##.##")
    TxtProcent2.Text = Format(iAantalTransP2 * 100 / iTotaalAantal, "##.##")
    TxtProcent3.Text = Format(iAantalTransP3 * 100 / iTotaalAantal, "##.##")
    TxtProcent4.Text = Format(iAantalTransP4 * 100 / iTotaalAantal, "##.##")
    TxtProcent5.Text = Format(iAantalTransP5 * 100 / iTotaalAantal, "##.##")
    TxtProcent6.Text = Format(iAantalTransP6 * 100 / iTotaalAantal, "##.##")
    TxtProcent7.Text = Format(iAantalTransP7 * 100 / iTotaalAantal, "##.##")
    TxtProcent8.Text = Format(iAantalTransP8 * 100 / iTotaalAantal, "##.##")
    
    
    
End Sub

Untitled Visual Basic (27-Sep @ 20:00)

Syntax Highlighted Code

  1. Dim x As Integer
  2. x = 5
  3. MsgBox(x*5)

Plain Code

Dim x As Integer
x = 5
MsgBox(x*5)

Untitled Visual Basic (26-Aug @ 19:28)

Syntax Highlighted Code

  1. msgbox "ola mundo"

Plain Code

msgbox "ola mundo"

Untitled Visual Basic (28-Jul @ 18:43)

Syntax Highlighted Code

  1. <%
  2. '---------------------------------------------------------------------------------------------
  3. ' SOOP 2.0 - Phoenix (TNG)
  4. '
  5. [351 more lines...]

Plain Code

<%
'---------------------------------------------------------------------------------------------
' SOOP 2.0 - Phoenix (TNG)
'
' Revision 2.00 - initial 15/02/2008
'
' SOOPPortal All Rights Reserved - Other copyrights as mentioned in sources or joined licences
'---------------------------------------------------------------------------------------------
' QuickTools For SooP Phoenix 2.0 V1.0                                                          
' Written By Ph4nt0m                                                                          
' Based on original QuickTools for SooP V1 by Q                                                  
'---------------------------------------------------------------------------------------------
'---------------------------------------------------------------------------------------------
    
function Module_QuickTools(blnToggleModule,Module_Permission, Module_ID, Module_Parameters)
    
    if Module_Permission = 0 Then exit Function
    If Module_Parameters = "" Then exit Function
    
    'Define Variables
    Dim strBoxTitle,blnShowEmail,blnShowBookmark,blnShowPrintpage,blnShowContact,blnShowQContact
    Dim strSendPage,strSendQuickCommentsEmailTo,strSendEmailTo,strSendFromEmail,strBookMarkTitle
    Dim strYourEmailAddress,strQCemailsender,sTempName,arrUser,ssql,strContactURL
    Dim strCustomTitle1, strCustomLink1, strCustomTitle2, strCustomLink2, strCustomTitle3, strCustomLink3
    
    If ubound(split(Module_Parameters, ",")) <> 8 Then Exit Function
    %>
    <!--#include file="languages/QuickTools_Language.asp"-->
    <%
    'Get Module Parameters
    strBoxTitle = cor.filter.checkStr(split(Module_Parameters,",")(0))
    blnShowBookmark = CBool(split(Module_Parameters,",")(1))
    blnShowPrintpage = CBool(split(Module_Parameters,",")(2))
    blnShowContact = CBool(split(Module_Parameters,",")(3))
    blnShowEmail = CBool(split(Module_Parameters,",")(4))
    blnShowQContact = CBool(split(Module_Parameters,",")(5))
    strSendQuickCommentsEmailTo = cor.filter.checkStr(split(Module_Parameters,",")(6))
    strSendFromEmail = cor.filter.checkStr(split(Module_Parameters,",")(7))
    strContactURL = cor.filter.checkStr(split(Module_Parameters,",")(8))

    
    ' Load language files
    cor.lng.includeSection("mod_xmlQuickTools")
    
    ' Check to see if user has a email address
    If cor_sLoggedInUserEmail = "" Then
    strYourEmailAddress = strYourEmailAddressLabel
    Else
    strYourEmailAddress = cor_sLoggedInUserEmail
    End If
    
    ' Check to see if the user has a real name
    ssql = "SELECT mname FROM " & cor_dbpre & "members WHERE mid = {0}"
            cor.dal.open arrUser, ssql, array(cor_lUserID)
            if Not cor.butil.eof(arrUser) Then 
                sTempName = arrUser(0,0)
                if instr(sTempName," ")> 0 Then 
                    sTempName = left(sTempName,instrRev(sTempName," ")-1)
                end If
            Else
                sTempName = cor_sLoggedInUsername
            end If
            If sTempName = "" then sTempName = cor_sLoggedInUsername
            sTempName = ucase(left(sTempName,1)) & mid(sTempName,2)
            strQCemailsender = sTempName
    
    ' Javascript functions for forms etc
    %>
        <script type="text/javascript" src="<%= cor_sWebroot %>mods/jscss/jquery.livequery.js"></script>
        <script language="JavaScript">
        function addBookmark(title,url) { 
        if (window.sidebar) { 
        window.sidebar.addPanel(title, url,''); 
        } else if( document.all ) { 
        window.external.AddFavorite( url, title); 
        } else if( window.opera && window.print ) { 
        return true; 
        } 
        } 
        
        // prepare the form when the DOM is ready 
        $(document).ready(function() { 
            var options = { 
                target:        '#responsediv',   // target element(s) to be updated with server response 
                success:       showResponse  // post-submit callback 
            };
        
        // bind to form's submit events
        
        $('#qcmailus').submit(function() {
            $(this).ajaxSubmit(options);
                return false;
            });
            
        $('#epmailus').submit(function() {
            $(this).ajaxSubmit(options);
                return false;
            });
            
        $('#qcreturn').submit(function() {
            $(this).ajaxSubmit(options); 
                return false; 
            }); 
            
        $('#epreturn').submit(function() {
            $(this).ajaxSubmit(options); 
                return false; 
            }); 
        
        // Animate divs
        
        $('#qcmailus').submit(function () {
            $("#bookmarkdiv").slideUp("slow");
            $("#printpagediv").slideUp("slow");
            $("#contactdiv").slideUp("slow")
              $("#emailpagelink").slideUp("slow");
              $("#contactlink").slideUp("slow");
            $("#emailpagediv").slideUp("slow");
            $("#quickcontactdiv").slideUp("slow");
            $("#responsediv").show("slow");
            $("#qcreturndiv").show("slow");
            $("#epreturndiv").slideUp("slow");
        });
        
        $('#epmailus').submit(function () {
            $("#bookmarkdiv").slideUp("slow");
            $("#printpagediv").slideUp("slow");
            $("#contactdiv").slideUp("slow")
              $("#emailpagelink").slideUp("slow");
              $("#contactlink").slideUp("slow");
            $("#emailpagediv").slideUp("slow");
            $("#quickcontactdiv").slideUp("slow");
            $("#responsediv").show("slow");
            $("#qcreturndiv").slideUp("slow");
            $("#epreturndiv").show("slow");
        });
        
        $('#epreturn').submit(function () {
            $("#bookmarkdiv").slideUp("slow");
            $("#printpagediv").slideUp("slow");
            $("#contactdiv").slideUp("slow")
              $("#emailpagelink").show("slow");
              $("#contactlink").slideUp("slow");
            $("#emailpagediv").show("slow");
            $("#quickcontactdiv").slideUp("slow");
            $("#responsediv").slideUp("slow");
            $("#qcreturndiv").slideUp("slow");
            $("#epreturndiv").slideUp("slow");
        });
        
        $('#qcreturn').submit(function () {
            $("#bookmarkdiv").slideUp("slow");
            $("#printpagediv").slideUp("slow");
            $("#contactdiv").slideUp("slow")
              $("#emailpagelink").slideUp("slow");
              $("#contactlink").show("slow");
            $("#emailpagediv").slideUp("slow");
            $("#quickcontactdiv").show("slow");
            $("#responsediv").slideUp("slow");
            $("#qcreturndiv").slideUp("slow");
            $("#epreturndiv").slideUp("slow");
        });
        
        // Animate QC div toggle
        $(".contact").click(function () {
              $("#quickcontactdiv").slideToggle("slow");
              $("#captchadiv").slideToggle("slow");
              $("#emailpagelink").slideToggle("slow");
              $("#bookmarkdiv").slideToggle("slow");
              $("#printpagediv").slideToggle("slow");
              $("#contactdiv").slideToggle("slow");
              $("#qcimg").slideToggle(100);
              $("#qcimg2").slideToggle(100);
        });
        
        // Animate Email Page Div Toggle
        $(".email").click(function () {
              $("#captchadiv").slideToggle("slow");
              $("#emailpagediv").slideToggle("slow");
              $("#contactlink").slideToggle("slow");
              $("#bookmarkdiv").slideToggle("slow");
              $("#printpagediv").slideToggle("slow");
              $("#contactdiv").slideToggle("slow");
              $("#epimg").slideToggle(100);
              $("#epimg2").slideToggle(100);
        });
        
        });
         
        // post-submit callback 
        function showResponse(responseText, statusText)  {
        alert('status: ' + statusText + '\n\nresponseText: \n' + responseText +
        '\n\nThe output div should have already been updated with the responseText.');
        };
        
        </script>
        <%
'
    ' Get current URL for send page via email
    strSendPage = "http://" & request.servervariables("SERVER_NAME") & Request.Servervariables("SCRIPT_NAME") & "?" & Request.ServerVariables("QUERY_STRING")
    
    'Set Module Box
    Dim Module_Name : Module_Name = "QuickTools"
    Dim Header_Text : Header_Text = strBoxTitle 
    Dim Module_Hide : Module_Hide = blnToggleModule 
    Dim Module_tool_Tip : Module_tool_Tip = True
    Dim Module_Tool_Tip_Text : Module_Tool_Tip_Text = cor_sModTT
        
        'Main HTML For Module   
        cor.str.add "<dl>"
        If blnShowBookmark Then
        cor.str.add "<div id=""bookmarkdiv"">"
        cor.str.add "<dd class=""smText"" style=""float:left;"">"
        cor.str.add "<img style=""padding-left:5px; padding-right:5px"" src=""" & cor_sSkinImg & "topic_last.gif"">"
        cor.str.add "</dd>"
        cor.str.add "<dd class=""smText"">"
        cor.str.add "<a class=""SmLink"" href=""javascript:addBookmark('" & lngWebSiteTitle & "','http://" & Request.ServerVariables("Server_Name") & Request.ServerVariables("Script_Name") & "?" & Request.QueryString() & "')"">" & lngQTBookmarkPage & "</a>"
        cor.str.add "</dd>"
        cor.str.add "</div>"
        End If
        If blnShowPrintpage Then
        cor.str.add "<div id=""printpagediv"">"
        cor.str.add "<dd class=""smText"" style=""float:left;"">"
        cor.str.add "<img style=""padding-left:5px; padding-right:5px"" src=""" & cor_sSkinImg & "topic_last.gif"">"
        cor.str.add "</dd>"
        cor.str.add "<dd class=""smText"">"
        cor.str.add "<a href=""javascript:print()"">" & lngQTPrintPage & "</a>"
        cor.str.add "</dd>"
        cor.str.add "</div>"
        End If
        If blnShowContact Then
        cor.str.add "<div id=""contactdiv"">"
        cor.str.add "<dd class=""smText"" style=""float:left;"">"
        cor.str.add "<img style=""padding-left:5px; padding-right:5px"" src=""" & cor_sSkinImg & "topic_last.gif"">"
        cor.str.add "</dd>"
        cor.str.add "<dd class=""smText"">"
        cor.str.add "<a class=""openwn"" href=""" & strContactURL & """>" & lngQTContactPage & "</a>"
        cor.str.add "</dd>"
        cor.str.add "</div>"
        End If
        If blnShowEmail Then
        cor.str.add "<div id=""emailpagelink"">"
        cor.str.add "<dd class=""smText"" style=""float:left;"">"
        cor.str.add "<img id=""epimg"" style=""padding-left:5px; padding-right:5px"" src=""" & cor_sSkinImg & "topic_last.gif"">"
        cor.str.add "<a href=""javascript:void(0)"" class=""email""><img id=""epimg2"" style=""padding-left:5px; padding-right:5px; display:none;"" src=""" & cor_sSkinImg & "hide_min.gif""></a>"
        cor.str.add "</dd>"
        cor.str.add "<dd class=""smText"">"
        cor.str.add "<a href=""javascript:void(0)"" class=""email"">" & lngQTEmailPage & "</a>"
        cor.str.add "</dd>"
        cor.str.add "</div>"
        End If
        If blnShowQContact Then
        cor.str.add "<div id=""contactlink"">"
        cor.str.add "<dd class=""smText"" style=""float:left;"">"
        cor.str.add "<img id=""qcimg"" style=""padding-left:5px; padding-right:5px"" src=""" & cor_sSkinImg & "topic_last.gif"">"
        cor.str.add "<a href=""javascript:void(0)"" class=""contact""><img id=""qcimg2"" style=""padding-left:5px; padding-right:5px; display:none;"" src=""" & cor_sSkinImg & "hide_min.gif""></a>"
        cor.str.add "</dd>"
        cor.str.add "<dd class=""smText"">"
        cor.str.add "<a href=""javascript:void(0)"" class=""contact"">" & lngQTQCus & "</a>"
        cor.str.add "</dd>"
        cor.str.add "</div>"
        End If
        If blnShowEmail Then
        cor.str.add "<div id=""emailpagediv"" style=""display:none;"">"
        cor.str.add "<form method=""post"" action=""qmail.asp"" id=""epmailus"">"
        cor.str.add "<input Type=""hidden"" name=""faction"" Value=""epage"">"
        cor.str.add "<input type=""hidden"" name=""sessionName"" value=""" & cor.filter.encrypt("qcc") & """>"
        cor.str.add "<input type=""hidden"" name=""strlink"" value=""" & strSendPage & """>"
        cor.str.add "<dl>"
        cor.str.add "<dt class=""smText"" style=""width:100%; text-align:center"">"
        cor.str.add lngQTYourName & "<br /><Input class=""input"" Type=""text"" name=""name"" Value=""" & strQCemailsender & """ Size=""22"">"
        cor.str.add "</dt>"
        cor.str.add "<dt class=""smText"" style=""width:100%; text-align:center"">"
        cor.str.add lngQTYourEmailAddress & "<br /><Input class=""input"" Type=""text"" name=""email"" Value=""" & strYourEmailAddress & """ Size=""22"">"
        cor.str.add "</dt>"
        cor.str.add "<dt class=""smText"" style=""width:100%; text-align:center"">"
        cor.str.add lngQTEmailTo & "<br /><Input class=""input"" onFocus=""this.value=''"" Type=""text"" id=""toemail"" name=""toemail"" Value="""" Size=""22"">"
        cor.str.add "</dt>"
        cor.str.add "<dt class=""smText"" style=""width:100%; text-align:center"">"
        cor.str.add "<Textarea class=""input"" name=""comment"" Cols=""20"" Rows=""5"" Wrap=""SOFT"">" & lngQTHeyIFound & "</Textarea>"
        cor.str.add "</dt>"
        cor.str.add "<dt class=""smText"" style=""width:100%; text-align:center"">"
        cor.str.add "<img id=""secureImages" & cor.filter.encrypt("qcc") & """ src=""" & cor_sWebroot & "securecode.asp?r=" & clng(Rnd * 10000000) & "&id=" & cor.filter.encrypt("qcc") & """ alt="""" /><br />"
        cor.str.add "<a href=""javascript:void(0)"" class=""secureImg"" rel=""" & cor.filter.encrypt("qcc") & """>" & lngTextReload & "</a><br />"
        cor.str.add lngConfirmSecurityCode & "<br /><input onFocus=""this.value=''"" type=""text"" id=""securityCode"" value="""" name=""securityCode"" class="""" />"
        cor.str.add "</dt>"
        cor.str.add "<dt class=""smText"" style=""width:100%; text-align:center"">"
        cor.str.add "<Input Class=""frmButton"" Type=""submit"" Name=""epSendComments"" Value=""" & lngQTSendEmail & """>"
        cor.str.add "</dt>"
        cor.str.add "</dl>"
        cor.str.add "</form>"
        cor.str.add "</div>"
        End If
        If blnShowQContact Then
        cor.str.add "<form method=""post"" action=""qmail.asp"" id=""qcmailus"">"
        cor.str.add "<div id=""quickcontactdiv"" style=""display:none;"">"
        cor.str.add "<input Type=""hidden"" name=""faction"" Value=""cpage"">"
        cor.str.add "<dl>"
        cor.str.add "<dd class=""smText"">"
        cor.str.add "</dd>"
        cor.str.add "<dt class=""smText"" style=""width:80%; text-align:center; margin-left:10%; margin-right:10%; border-style:dashed; border-width:thin"">"
          cor.str.add lngQTHaveAQuestion
        cor.str.add "</dt>"
        cor.str.add "<dt class=""smText"" style=""width:100%; text-align:center"">"
        cor.str.add lngQTYourEmailAddress & "<br /><Input onFocus=""this.value=''"" class=""input"" Type=""text"" name=""email"" Value=""" & strYourEmailAddress & """ Size=""22"">"
        cor.str.add "</dt>"
        cor.str.add "<dt class=""smText"" style=""width:100%; text-align:center"">"
        cor.str.add "<Textarea class=""input"" onFocus=""this.value=''"" name=""comment"" Cols=""20"" Rows=""5"" Wrap=""SOFT"">" & lngQTEnterYourComment & "</Textarea>"
        cor.str.add "</dt>"
        cor.str.add "<dt class=""smText"" style=""width:100%; text-align:center"">"
        cor.str.add "<img id=""secureImages" & cor.filter.encrypt("epc") & """ src=""" & cor_sWebroot & "securecode.asp?r=" & clng(Rnd * 10000000) & "&id=" & cor.filter.encrypt("epc") & """ alt="""" /><br />"
        cor.str.add "<a href=""javascript:void(0)"" class=""secureImg"" rel=""" & cor.filter.encrypt("epc") & """>" & lngTextReload & "</a><br />"
        cor.str.add lngConfirmSecurityCode & "<br /><input onFocus=""this.value=''"" type=""text"" id=""securityCode"" value="""" name=""securityCode"" class="""" />"
        cor.str.add "</dt>"
        cor.str.add "<dt class=""smText"" style=""width:100%; text-align:center"">"
        cor.str.add "<Input Class=""frmButton"" Type=""submit"" Name=""qcSendComments"" Value=""" & lngQTSendEmail & """>"
        cor.str.add "<input type=""hidden"" name=""subject"" value=""" & lngQTNewQCEmail & """>"
        cor.str.add "<input type=""hidden"" name=""toemail"" value=""" & strSendQuickCommentsEmailTo & """>"
        cor.str.add "<input type=""hidden"" name=""sessionName"" value=""" & cor.filter.encrypt("epc") & """>"
        cor.str.add "</dt>"
        cor.str.add "</dl>"
        cor.str.add "</div>"
        cor.str.add "</form>"
        End If
        If blnShowQContact Or blnShowEmail Then
        cor.str.add "<div id=""responsediv"" style=""display:none;"">"
        cor.str.add "<dl class=""text"" id=""responsedivchild"" style=""padding:15px; text-align:center"">"
        cor.str.add "<img id=""loading"" src=""" & cor_sSkinImg & "ajax_busy.gif"">"
        cor.str.add "</dl>"
        cor.str.add "</div>"
        End If
        If blnShowQContact Then
        cor.str.add "<dl class=""text"" id=""qcreturndiv"" style=""display:none; padding-left:10px;"">"
        cor.str.add "<form method=""post"" id=""qcreturn"" action=""qmail.asp"">"
        cor.str.add "<Input Class=""frmButton"" Type=""submit"" Name=""Back"" Value=""Back"">"
        cor.str.add "</form>"
        cor.str.add "</dl>"
        End If
        If blnShowEmail Then
        cor.str.add "<dl class=""text"" id=""epreturndiv"" style=""display:none; padding-left:10px;"">"
        cor.str.add "<form method=""post"" id=""epreturn"" action=""qmail.asp"">"
        cor.str.add "<Input Class=""frmButton"" Type=""submit"" Name=""Back"" Value=""Back"">"
        cor.str.add "</form>"
        cor.str.add "</dl>"
        End If
        cor.str.add "</dl>"
        'cor.str.add "</div>"

    '===========================================================
    call cor.modbox.printBox(blnToggleModule,Module_Hide,Module_tool_Tip,Module_Name,Module_ID,Header_Text,cor.str.build,Module_Tool_Tip_Text)
end Function
'
'<#late-binding hook (do not remove)
function boot_Module_QuickTools : boot_Module_QuickTools = true : end function
'/>
%>