Maanfase script
Posted: Fri Feb 11, 2011 5:43 pm
Hier is eens kleine bijdrage van mijn kant.
Ik wilde de verschillende maanfases op mij Android (HSTouch) tablet tonen.
Onderstaande maanfase.asp pagina heb ik in de HS html folder gezet en de afbeeldingen in html\images
De url heb ik in de text property gezet van een text object op het scherm
De refresh tijd staat op 3600 sec.
Ik wilde de verschillende maanfases op mij Android (HSTouch) tablet tonen.
Onderstaande maanfase.asp pagina heb ik in de HS html folder gezet en de afbeeldingen in html\images
De url heb ik in de text property gezet van een text object op het scherm
De refresh tijd staat op 3600 sec.
Code: Select all
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<HTML>
<HEAD>
<META HTTP-EQUIV="refresh" CONTENT="3600;">
<style type="text/css">
img
{
position:fixed;
top:0px;
left:0px;
}
</style>
</HEAD>
<BODY>
<%
Dim MaanCyclus
Dim NieuweMaan
Dim AantalDagen
Dim CyclusDag
Dim Id
MaanCyclus = 29.530589
NieuweMaan = "4-1-2011 00:00:00"
AantalDagen = DateDiff("d", NieuweMaan, Now())
while AantalDagen > Maancyclus
Aantaldagen = Aantaldagen - MaanCyclus
wend
Cyclusdag = Round(Aantaldagen)
Id = "<img src=""images/dag" & CyclusDag & ".gif"" width=68px height=68px >"
Response.Write Id
%>
</BODY>
</HTML>