Welkom bij dierenpension Plexat

<body><P class=MsoNormal>cript1.2"><BODY><o:p></o:p></P><P><script language="Javascript"><BR><BR></script></P> <P class=MsoNormal> <o:p></o:p></P> <P class=MsoNormal><SCRIPT LANGUAGE="JavaS<o:p></o:p></P> <P class=MsoNormal><o:p></o:p></P> <P class=MsoNormal><o:p></o:p></P> <P class=MsoNormal> <o:p></o:p></P> <P class=MsoNormal><o:p></o:p></P> <P class=MsoNormal><o:p></o:p></P> <P class=MsoNormal> <o:p></o:p></P> <P class=MsoNormal><o:p></o:p></P> <P class=MsoNormal></script><o:p></o:p></P> <P class=MsoNormal> <o:p></o:p></P> <P class=MsoNormal><p><center><o:p></o:p></P> <P class=MsoNormal><font face="arial, helvetica" size="-2">Free JavaScripts provided<br><o:p></o:p></P> <P class=MsoNormal>by <a href="http://javascriptsource.com">The JavaScript Source</a></font><o:p></o:p></P> <P class=MsoNormal></center><p><o:p></o:p></P> <P class=MsoNormal> <o:p></o:p></P> <P class=MsoNormal></P> <a href="http://www.koekjes.net/gastenboek" target="_blank"> <img src="http://www.koekjes.net/images/gb_logo_new.gif" border="0"></a> <br><br> <a href="http://www.koekjes.net/cgi-bin/gastenboek/schrijven.pl?ted"> Schrijf een bericht in het gastenboek.</a> <br><br> <a href="http://www.koekjes.net/cgi-bin/gastenboek/bekijken.pl?ted"> Bekijk hier mijn gastenboek.</a> <br><br> <p> <FONT size=-1><img src="/cgi-sys/Count.cgi?df=<B>www.dierenpension-plexat.nl-welkom bij dierenpension plexat.html</B>&dd=A"></FONT> <p> <FONT size=-1><img src="/cgi-sys/Count.cgi?df=<B>YourDomain.com-PageName.html</B>"></FONT> <p>Op deze pagina worden frames gebruikt, maar uw browser ondersteunt geen frames.</p> <a target="_blank" href="http://v1.nedstatbasic.net/stats?ABPJCglSWpHUDNzHtrrupss3/2sw"><img src="http://m1.nedstatbasic.net/n?id=ABPJCglSWpHUDNzHtrrupss3/2sw" border="0" nosave width="18" height="18"></a> </noscript>  <p class=MsoNormal style='tab-stops:18.0pt 36.0pt 54.0pt 72.0pt 90.0pt 108.0pt 126.0pt 144.0pt 162.0pt 180.0pt 198.0pt 216.0pt 234.0pt 252.0pt 270.0pt 288.0pt 306.0pt 324.0pt 342.0pt 360.0pt 378.0pt 396.0pt 414.0pt 432.0pt 450.0pt 468.0pt 486.0pt 504.0pt 522.0pt 540.0pt 558.0pt 576.0pt; mso-layout-grid-align:none;text-autospace:none'><span lang=EN-GB style='font-size:9.0pt;font-family:"Courier New";color:#0000C0;mso-ansi-language: EN-GB'></NOSCRIPT></DIV><EMBED name=</span><span lang=EN-GB style='font-size:9.0pt;font-family:"Courier New";color:black;mso-ansi-language: EN-GB'>sound0</span><span lang=EN-GB style='font-size:9.0pt;font-family:"Courier New"; color:#0000C0;mso-ansi-language:EN-GB'> src=</span><span lang=EN-GB style='font-size:9.0pt;font-family:"Courier New";color:black;mso-ansi-language: EN-GB'>madonna_holiday.mid</span><span lang=EN-GB style='font-size:9.0pt; font-family:"Courier New";color:#0000C0;mso-ansi-language:EN-GB'> width=</span><span lang=EN-GB style='font-size:9.0pt;font-family:"Courier New";color:black; mso-ansi-language:EN-GB'>0</span><span lang=EN-GB style='font-size:9.0pt; font-family:"Courier New";color:#0000C0;mso-ansi-language:EN-GB'> height=</span><span lang=EN-GB style='font-size:9.0pt;font-family:"Courier New";color:black; mso-ansi-language:EN-GB'>0</span><span lang=EN-GB style='font-size:9.0pt; font-family:"Courier New";color:#0000C0;mso-ansi-language:EN-GB'> <o:p></o:p></span></p> <p class=MsoNormal style='tab-stops:18.0pt 36.0pt 54.0pt 72.0pt 90.0pt 108.0pt 126.0pt 144.0pt 162.0pt 180.0pt 198.0pt 216.0pt 234.0pt 252.0pt 270.0pt 288.0pt 306.0pt 324.0pt 342.0pt 360.0pt 378.0pt 396.0pt 414.0pt 432.0pt 450.0pt 468.0pt 486.0pt 504.0pt 522.0pt 540.0pt 558.0pt 576.0pt; mso-layout-grid-align:none;text-autospace:none'><span lang=EN-GB style='font-size:9.0pt;font-family:"Courier New";color:#0000C0;mso-ansi-language: EN-GB'>hidden=</span><span lang=EN-GB style='font-size:9.0pt;font-family:"Courier New"; color:black;mso-ansi-language:EN-GB'>true</span><span lang=EN-GB style='font-size:9.0pt;font-family:"Courier New";color:#0000C0;mso-ansi-language: EN-GB'> MASTERSOUND AUTOSTART=</span><span lang=EN-GB style='font-size:9.0pt; font-family:"Courier New";color:black;mso-ansi-language:EN-GB'>"FALSE"</span><span lang=EN-GB style='font-size:9.0pt;font-family:"Courier New";color:#0000C0; mso-ansi-language:EN-GB'> LOOP=</span><span lang=EN-GB style='font-size:9.0pt; font-family:"Courier New";color:black;mso-ansi-language:EN-GB'>"FALSE"</span><span lang=EN-GB style='font-size:9.0pt;font-family:"Courier New";color:#0000C0; mso-ansi-language:EN-GB'>></span><span lang=EN-GB style='font-size:9.0pt; font-family:"Courier New";color:gray;mso-ansi-language:EN-GB'></span><span lang=EN-GB style='font-size:9.0pt;font-family:"Courier New";color:black; mso-ansi-language:EN-GB'><o:p></o:p></span></p> </bodyset cx $embed_args(width) set cy $embed_args(height) if {[info exists embed_args(radius)]} { set r $embed_args(radius) } else { set r 15 } if {![info exists embed_args(eyeColor)]} { set embed_args(eyeColor) black } canvas .c -width $cx -height $cy -bg gray75 pack .c set eye1(x) [expr $cx/2-4*$r] set eye1(y) [expr $cy/2] set eye2(x) [expr $cx/2+4*$r] set eye2(y) [expr $cy/2] proc makeeye {x y} { global r embed_args set b [.c create oval [expr $x-3*$r] [expr $y-4*$r] [expr $x+3*$r] \ [expr $y+4*$r] -width 3 -fill white -outline black] set a [.c create oval [expr $x-$r] [expr $y-$r] [expr $x+$r] [expr $y+$r] \ -fill $embed_args(eyeColor) -outline {}] .c bind $a <Enter> ".c itemconfig $a -fill red" .c bind $a <Leave> ".c itemconfig $a -fill $embed_args(eyeColor)" return [list $a $b] } proc moveeye {eyename x y} { global r embed_args upvar #0 $eyename eye set x [expr $x-$eye(x)] set y [expr $y-$eye(y)] set l [expr sqrt($x*$x+$y*$y)] if $l<$r { set cx $x set cy $y } else { set cx [expr $r*$x/$l] set cy [expr $r*$y/$l] } .c coords $eye(id) [expr $cx-$r+$eye(x)] [expr $cy-$r+$eye(y)] \ [expr $cx+$r+$eye(x)] [expr $cy+$r+$eye(y)] } proc blink {} { global eyesOpen bigEye blinklist blinklength blinkindex eye1 eye2 if {$eyesOpen == 1} { set eyesOpen 0 .c itemconfigure $bigEye(0) -fill black .c itemconfigure $bigEye(1) -fill black .c lower $eye1(id) .c lower $eye2(id) after 200 blink } else { set delay [lindex $blinklist $blinkindex] incr blinkindex if {$blinkindex >= $blinklength} { set blinkindex 0 } set eyesOpen 1 .c itemconfigure $bigEye(0) -fill white .c itemconfigure $bigEye(1) -fill white .c raise $eye1(id) .c raise $eye2(id) after $delay blink } } set blinklist { 500 5000 2000 3000 10000 2000 3000 2000 500 200 3000 500 1000 2000 300 300 2000 8000 2000 400 400 2000 } set blinklength [llength $blinklist] set blinkindex 0 set eyesOpen 1 set eye [makeeye $eye1(x) $eye1(y)] set eye1(id) [lindex $eye 0] set bigEye(0) [lindex $eye 1] set eye [makeeye $eye2(x) $eye2(y)] set eye2(id) [lindex $eye 0] set bigEye(1) [lindex $eye 1] bind all <Motion> "moveeye eye1 %x %y; moveeye eye2 %x %y" after 1000 blink >