www.anim.dk - Home.

<% curpage="index" language = Request.QueryString("language") if language="" then language = "uk" rh = Request.ServerVariables("REMOTE_HOST") Randomize() ' Get a random number from 0 to the size of the range NumImages = 22 RandomValue = int(Rnd() * NumImages)+1 ' Open Recordset. numimages=0 sqlImg = "SELECT id FROM images WHERE visible = 1 AND category<>'projects' ORDER BY id" set rsImg = conn.execute(sqlImg) Do while not rsImg.eof numimages=numimages+1 rsImg.movenext loop ' Generate random number from total number of records Dim intRnd Randomize Timer intRnd = (Int(RND * numimages)) sqlImg = "SELECT id, name, width, height, metode, hits, category FROM images WHERE visible = 1 AND category<>'projects' ORDER BY id" set rsImg = conn.execute(sqlImg) ' Now move the cursor to random record number. myCount = 0 do while myCount < intRnd rsImg.movenext myCount = myCount + 1 loop if rh <> ("62.79.92.85") then sqlHit = "UPDATE statistics set hits = hits+1 where pagename = '" & curpage & "'" set rsHits = conn.execute(sqlHit) sqlHit = "SELECT hits FROM statistics WHERE pagename = '" & curpage & "'" set rsHits = conn.execute(sqlHit) 'Set JMail = Server.CreateObject("JMail.SMTPMail") 'JMail.ServerAddress = "smtp.andersenit.dk" 'JMail.Sender = "info@anim.dk" 'JMail.Subject = "Hit nummer " & rsHits("hits") & "." 'JMail.AddRecipient "jakob@hjemmeerbedst.dk" 'JMail.Priority = 3 'JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR") 'JMail.Body = (Month(Date) & "/" & Day(Date) & "/" & Year(Date)) & " har http://azero.dk/support/vaerktoej/lookup/?domain=" & Request.ServerVariables("REMOTE_ADDR") & " været på besøg som nummer " & rsHits("hits") & "." 'JMail.Execute 'Set JMail = nothing else sqlHit = "SELECT hits FROM statistics WHERE pagename = '" & curpage & "'" set rsHits = conn.execute(sqlHit) end if %> www.anim.dk - Home.

<% if language="uk" then %>

home

<% end if if language="dk" then %>

<% end if %>

<% if language="uk" then %>

News:

Homepage has been reworked. Hope you like the new design.

Random Image:

<% response.write "" response.write "
Click here to see the next image.
" end if if language="dk" then %>
Nyheder:

Hjemmesiden har fået nyt design. Håber at du kan lide det.

Tilfældigt Billede:

<% response.write "" response.write "
Tryk her for at se det næste billede.
" end if %>

<% if language="uk" then %>

Home:

Welcome to Hjemmeerbedst.dk, the personal Homepage of Jakob Steffensen.

I am a computer graphic artist running my own company in Copenhagen, Denmark called Animation Invasion www.anim.dk

This homepage has been running since round 1996 and is a showcase of some of my work. I am always trying to finish some small film projects and even though it may take a long time I will put any progress up here.

I also dabble in Maya MEL-scripting and I've got a couple of scripts and tutorials online.

Jakob

Email: js@anim.dk

<% end if if language="dk" then %>

Hjem:

Velkommen til Anim.dk, Animation Invasions hjemmeside.

Vi er et lille firma som specialicerer sig inden for visuelle effekter, computer grafik og 3d animation. Firmaet ledes af Jakob Steffensen som har arbejdet proffesionelt de sidste 10 år i Københavbn & Soho, London.

Vi løser både fulde jobs, og arbejder som en del af kreative team på større projekter. Du kan checke CV´et for at få en udførlig liste over de forskellige arbejds områder vi kan hjælpe med.

Denne hjemmeside vil fungere både som professionel showcase og et samlingspunkt for 3D relaterede resourcer vi gør tilgængelige for folket.

Jakob Steffensen, email: js@anim.dk

Nørrebro, Danmark Jun. 2004

<% end if %>

<% Response.Write(Month(Date) & "/" & Day(Date) & "/" & Year(Date)) %> - <%=rsHits("hits")%> hits

<% if language="uk" then %> Copyright 1996-2004 © Animation Invasion. All rights reserved their respective owners. <% end if if language="dk" then %> Copyright 1996-2004 © Animation Invasion. Alle rettigheder reserveret deres rettige ejere. <% end if %>