Script til beregning af killingefødsler

http://perserina.dk/ny/mating.htm

kan du bruge denne?

Det er bla den jeg har haft lidt kig på men kan ikke greje den

ja det kunne jeg næsten regne ud,
den er så lavet i asp - har du mulighed for dette?

http://www.shaggytail.dk/parringskalender.php
Det var faktisk denne jeg gerne ville have.

asp h ar jeg aldrig arbejdet med

kan hverken få det ene eller andet link til at virke hos mig

den er så lavet i php,

men hvilket programmeringssprog kender du?

Har mest brugt alm html code. Har programmeret lidt i delphi 5, men det er jo noget andet. Faktisk plejer jeg bare at bruge Noteblok til mine hjemmesider

Har installeret programmet Apache på min computer så jeg kan se php. filer

du kan så ikke bare se koden fra en php/asp side, da den afvikles på serveren, og der ændres til ren html.

den skal laves nøjagtig ligesom delphi skal....

men du skal have fat i noget dato-difference for det første, hvilket jo også kan laves i javascript.

Har fundet et script, der gør lidt det jeg skal bruge:

<SCRIPT language="JavaScript">
<!-- Original:  Kevin Myers (kevinmyers@unforgettable.com) -->
<!-- Web Site:  http://www.geocities.com/SiliconValley/Bay/7554 -->

<!-- Begin
function AddDays() {
DaysToAdd=document.getElementById("DaysToAdd").value;

var now=new Date();
var newdate=new Date();
var newtimems=newdate.getTime()+(DaysToAdd*24*60*60*1000);
newdate.setTime(newtimems);
document.getElementById("display").value=newdate.toLocaleString();
}
// End -->
</SCRIPT>

Her er bare ikke nogen datopicker

Jeg tænkte nok der var noget skummelt med et der asp. og php. Ha ha :)
Kan du ikke hjælpe mig med sådan et script?

har ikke rigtig tid...
men du kan få min asp-kode,
så kan du hygge dig med den

http://www.debbiejensen.com/date.html

er en anden sjov en
den er lavet i javascript og kan kopieres, og ændres så den passer til dit behov

Tak skal du have. jeg prøver

sender du din asp kode til uthsen@uthsen.dk?

ok

mens jeg prøver er forslag stadig velkommen :)

<%
session.lcid = Cint(request("lang"))
if request("test") = "ok" then
dato = "" & request("dag") & "-" & request("md") & "-" & request("aar") & ""
if isDate(dato) then
if session.lcid = 1030 then
d = " d. "
else
d = " the "
end if
%>
<div align="center">
  <br>
&nbsp;<table border="2" cellpadding="2" id="table1" width="500" bordercolorlight="#C0C0C0" bordercolordark="#808080" >
    <tr>
      <td  bgcolor="#6A9978" colspan="3" align="center"><font size="2" face="Verdana">
      Date of mating: <%=(WeekdayName(weekday(dato))) & d &CDate(dato)%></font></td>
    </tr>
    <tr>
      <td  bgcolor="#CCCCCC" colspan="3" align="center"><font size="2" face="Verdana">
      Change of nipplecolor between: <%=formatdatetime((DateAdd("d",16,dato)),vbshortdate)&" and " &formatdatetime((DateAdd("d",21,dato)),vbshortdate)%></font></td>
    </tr>
    <tr>
      <td bgcolor="#CCCCCC" align="center"><font size="2" face="Verdana"><b>Birth after 59 days</b></font></td>
      <td bgcolor="#6A9978" align="center"><font size="2" face="Verdana"><b>Birth after 63 days</b></font></td>
      <td bgcolor="#CCCCCC" align="center"><font size="2" face="Verdana"><b>Birth after 68 days</b></font></td>
    </tr>
    <tr><font size="2" face="Verdana">
      <td bgcolor="#CCCCCC" align="center"><font size="2" face="Verdana"><%=(WeekdayName(weekday((DateAdd("d",59,dato))))) & d & (formatdatetime((DateAdd("d",59,dato)),vbshortdate))%></font></td>
      <td bgcolor="#6A9978" align="center"><font size="2" face="Verdana"><%=(WeekdayName(weekday((DateAdd("d",63,dato))))) & d & (formatdatetime((DateAdd("d",63,dato)),vbshortdate))%></font></td>
      <td bgcolor="#CCCCCC" align="center"><font size="2" face="Verdana"><%=(WeekdayName(weekday((DateAdd("d",68,dato))))) & d & (formatdatetime((DateAdd("d",68,dato)),vbshortdate))%></font></td>
    </tr>
    <tr>
      <td  bgcolor="#6A9978" colspan="3" align="center"><font size="2" face="Verdana"><b>Ready for sale</b></font></td>
    </tr>
    <tr>
      <td bgcolor="#CCCCCC" align="center"><font size="2" face="Verdana"><%=(WeekdayName(weekday((DateAdd("d",143,dato))))) & d & (formatdatetime((DateAdd("d",143,dato)),vbshortdate))%></font></td>
      <td bgcolor="#6A9978" align="center"><font size="2" face="Verdana"><%=(WeekdayName(weekday((DateAdd("d",147,dato))))) & d & (formatdatetime((DateAdd("d",147,dato)),vbshortdate))%></font></td>
      <td bgcolor="#CCCCCC" align="center"><font size="2" face="Verdana"><%=(WeekdayName(weekday((DateAdd("d",152,dato))))) & d & (formatdatetime((DateAdd("d",152,dato)),vbshortdate))%></font></td>
    </tr></font>
  </table>
  <p><br>
  </div>
<p align="center">
<%









else
response.write "<center>" & dato & " is not a valid date<br></center>"
end if
end if
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Mating Calender</title>
</head>

<body bgcolor="#45646B">
<%if request("test")<>"ok"then%>
<br><center><font size="3" face="Verdana">
Here you can calculate the date of birth,<br>
and the date your kittens are ready for sale.<br>
Furthermore we give an estimate of when<br>
you can expect to see a change of nipplecolor<br>
on the pregnant cat.</font></center>
<%else%>
<center><font size="2" face="Verdana">Dates in the green area,<br>are normal length of pregnancy for cats!
<br></font></center>
<%end if%>
</p>
<center><img border="0" src="pictures/mates.gif" width="130" height="114"></center>
<form method="POST" action="parringskalender.asp">
  <input type="hidden" name="test" value="ok">
 
  <p align="center"><font size="3" face="Verdana">Choose<%if request("test")="ok" then response.write " new " end if%> Date of mating:</p></font>
  <p align="center"><select size="1" name="dag">
  <%if request("test") = "ok" then%>
              <option value="<%=request("dag")%>" selected><%=request("dag")%></option>
              <%else%>
              <option value="dag" selected>day</option>
              <%end if%>
  <% i = 1
  do while i < 32 %>
  <option value="<%=i%>"><%=i%></option>
  <% i = i+1 %>
  <% loop %>
  </select>
 
    <select size="1" name="md">
  <%if request("test") = "ok" then%>
              <option value="<%=request("md")%>" selected><%=request("md")%></option>
              <%else%>
              <option value="md" selected>month</option>
              <%end if%>
 
  <% i = 1
  do while i < 13 %>
  <option value="<%=i%>"><%=i%></option>
  <% i = i+1 %>
  <% loop %>
  </select>
 
 
              </select><select size="1" name="aar">
              <%if request("test") = "ok" then%>
              <option value="<%=request("aar")%>" selected><%=request("aar")%></option>
              <%else%>
              <option value="aar" selected>year</option>
              <%end if%>
              <%
              m = (year(date))-1
              do while m <= (year(date))+1
              response.write "<option value="&m&">"&m&"</option>"
              m = m + 1
              loop
              %>
              </select></p>
 
 
  <p align="center"><select size="1" name="lang">
  <option selected value="1030">Scandinavian calendar</option>
  <option value="1033">American calendar</option>
  </select> <input type="submit" value="Send" name="B1"></p>
</form>






<p align="center"><font face="Verdana" size="1"><u><font color="#45646B">
<a href="http://adweb.dk"><span style="text-decoration: none">
<font color="#45646B">©2004 Design and Code: </font></span></a></font></u>
<a target="_blank" href="http://adweb.dk"><font color="#45646B">
<span style="text-decoration: none">Adweb.dk</span></font></a></font></p>







</html>

så kan folk ikke øffe :D

Desværre står der i koden til
http://www.debbiejensen.com/date.html
*Do Not* copy, modify, or distribute this script
Det må jeg nok hellere lade være med !!! Det giver så dårlig samvittighed.
Desuden er Suzan van Prooijen hjemmeside lukket og hun modtager heller ikke mail, hvor jeg tidlige i dag har forespurgt.
ØV ØV

Tak skal du have.

Jeg ville lige give dig nogle point, men accpter knappen er vist lidt sløv i dag...hmmm

du skal nok highlighte mit navn først

ok du nu fik du lidt i kassen. Tak!!!!

takker - så blev jeg SÅ rig *G* :D