5 svar · 239 visningar · startad av Qimen
Hej
Hur kan man göra ett script som räknar hur gammal man är? Alltså den hämtar information från databasen, ex. 1980 och så skriver den ut att den personen är typ 22 år.
Användaren är sparad i en session som heter id.
------------------
... *hick*
Datediff("m",#2001-10-20#,Date)
datum måste vara inom #
Red. "M" bli månad, "yyyy" blir år
------------------
FEL!!
FÖR MYCKET NAKENHET I SIGNATUREN
[Redigerat av webzonen den 04 jan 2002]
mmm.
Kan du förklara lite mer. förstod inte riktigt. Det räcker med att den räknar ut kalenderår.
Jag vet inte riktigt hur jag ska lägga upp det. Jag har min databaskoppling till min medlemmsdatabas. Där har jag ett fält som heter "alder" och som kan ha värdet "1950" till och med "2002".
Den ska då gå in och hämta det (med select tror jag) räkna om det till år och sedan skriva ut det.
------------------
... *hick*
sql = "select alder from medlemmar"
set rs = connect.execute(sql)
while not rs.eof
response.write "År: " & datediff("yyyy",rs("alder"),date) & "<br>"
rs.movenext
wend
------------------
essentitia preter non sans multiplicandum
Men den koden listar väl alla i databasen? Alltså jag har en profil sida där den visar info för en medlem.
Jag vill bara visa åldern för den medlemen som man kollar in.
Koden för de övriga informations områdena är:
<%
If Session("login") <> "ok" Then
Session("meddelande") = "Du har blivit urloggad, var god logga in igen!"
Response.Redirect "../default.asp"
End If
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../db/members.mdb")&";pwd=000"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From members Where id = " &Request.QueryString("checkid")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>
Sedan hämtar jag det med recset. Kan man baka in den koden där?
------------------
... *hick*
Jo,
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../db/members.mdb")&";pwd=000"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From members Where id = " &Request.QueryString("checkid")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
response.write "År: " & datediff("yyyy",recset("alder"),date) & "<br>"
------------------
essentitia preter non sans multiplicandum