<% Dim lr, rgb lr = 0 rgb = 0 %><% Randomize initCol = Int((7 * Rnd)) ic = CStr(initCol) & CStr(initCol) Dim mcol(8) mcol(0) = ic & "6666" '' R mcol(1) = ic & "6666" mcol(2) = ic & "7777" '' G mcol(3) = ic & "7777" mcol(4) = ic & "8888" '' B mcol(5) = ic & "8888" mcol(6) = ic & "6666" '' R mcol(7) = ic & "6666" %>

kokogiak media Eintagsfliegen
Ephemera [rss]
 
 <% upper = UBound(lscreech)-1 ''if (upper>19) Then upper = 19 For i = 0 to (upper) If i < (upper) Then If ((lr Mod 2) = 0) Then Response.write("" & vbCrLf) Else Response.write("" & vbCrLf) End if Response.write("") If ((lr Mod 2) = 0) Then Response.write("" & vbCrLf) Response.write("" & vbCrLf) Response.write("" & vbCrLf) Else Response.write("" & vbCrLf) Response.write("" & vbCrLf) Response.write("" & vbCrLf) End if Response.write("") Else If ((lr Mod 2) = 0) Then Response.write("" & vbCrLf) Else Response.write("" & vbCrLf) End if End if lr = lr + 1 rgb = rgb + 2 If rgb = 6 Then rgb = 0 Next %>
 

 
" & vbCrLf) Else Response.write("
" & vbCrLf) End if Response.write(lscreech(i) & "
" & vbCrLf) If ((lr Mod 2) = 0) Then Response.write("
 
 
 
 
 
 
" & vbCrLf) Else Response.write("
" & vbCrLf) End if Response.write(lscreech(i) & "
" & vbCrLf) If ((lr Mod 2) = 0) Then Response.write("


 

 

©copyright 2003 kokogiak media 		 

 

 

Eintagsfliegen:
  main
  ephemera [rss]
  main archive
  contact

Kokogiak:
  home
  about
  luciferous logolepsy
  megafauna
  300 miles high
  megapenny project
  seattle stories
  photographs
  strangest town
  klondike
  original images