Trådstart#1
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.
Script som räknar ut hur gammal man är
5 svar · 263 visningar · startad av Qimen
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.
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
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?
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>"