Oprettet lør. d. 09. oktober 2004 kl. 16:56:34

200 point uddelt | 20 kommentarer

jesper2003 (10.880 point. Point ude: 170)

rejne ud hvor gammel man er

Jeg har et community men sår vel jeg gerne ha vis man skriver sin fødselsdags dato sår når man klikker på opret sår inde i profilen skriver den hvor gammel man er. Eks når man opretter sig skriver man eks 30/09/1989 sår inde i profilen står der Alder: 15

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet lør. d. 09. oktober 2004 kl. 17:07:28| #1

ffn (24.968 point)

kan det bruges? http://support.microsoft.com/ (...)

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet lør. d. 09. oktober 2004 kl. 17:19:15| #2

arne_v (1.005.623 point)

Hvis d indeholder fødselsdatoen så:

agey = DateDiff("yyyy", d, Now())
If DatePart("y", d) > DatePart("y", Now()) Then
agey = agey - 1
End If

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet lør. d. 09. oktober 2004 kl. 17:19:38| #3

arne_v (1.005.623 point)

agey indeholder så alderen

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet lør. d. 09. oktober 2004 kl. 17:20:56| #4

arne_v (1.005.623 point)

Og ja det ligner meget den MS kode som ffn linkede til

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet lør. d. 09. oktober 2004 kl. 17:24:29| #5

jesper2003 (10.880 point)

Det skal ind i denne kode

<html>
<body>

<div align="center">

<table width="334" border="0" cellpadding="0" cellspacing="0">
<tr bordercolor="#FFFFFF">
<td>
<p></p>

<%
Response.Buffer = True

' tjekker om disse 5 felter er udfyldt !

brugernavn = Request("brugernavn")
password = Request("password")
navn = Request("navn")
alder = Request("alder")
kon = Request("kon")
email = Request("email")
regler = Request("regler")
Fuldenavn = Request("regler")

Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=guf4you;USER=root;PASSWORD=;OPTION=3;"

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From community"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
%>
<% if Request.ServerVariables("REQUEST_METHOD") = "POST" then

' Skriver fejl, hvis der ikke er indtastet en oplysning.
if brugernavn = "" then
Response.Write("Du skal vælge et brugernavn<br></font>")
end if

if fuldtnavn = "" then
Response.Write("Du skal angive dit Fulde navn!<br></font>")
end if

if email = "" then
Response.Write("Du skal angive din EMail!<br></font>")
end if

if password = "" then
Response.Write("Du skal vælge et password!<br></font>")
end if

if navn= "" then
Response.Write("Du skal angive et vist navn på mindst 2 tegn!<br></font>")
end if

if alder= "" then
Response.Write("Du skal angive din alder!<br></font>")
end if

if kon= "" then
Response.Write("Du skal angive dit køn!<br></font>")
end if

if regler = "" then
Response.Write("Du skal acceptere reglerne!<br></font>")
end if

' opretter brugeren i databasen !

if brugernavn <> "" AND password <> "" AND navn <> "" AND alder <> "" AND kon <> "" then
rs.AddNew
rs("brugernavn") = Request.form("brugernavn")
rs("kode") = Request.form("password")
rs("fuldtnavn") = Request.form("Fulde navn")
rs("vistnavn") = Request.form("navn")
rs("fødselsdagdag") = Request.form("alder")
rs("køn") = Request.form("kon")
rs("email") = Request.form("email")
rs("Msn") = Request.form("icq")
rs("landsdel") = Request.form("website")
rs("om") = Request.form("om")
rs("hits") = "0"
rs.update
Response.Redirect("opretok.asp")
end if
end if %>
<p align="center">Du skal udfylde alle felterne med <font color="#FF0000">*</font></p>
<form method="POST" action="opret.asp" id=form name=form>
<table border="0" cellpadding="0" cellspacing="0" width="236">
<tr>
<td width="140" valign="top" class="skrift">Brugernavn: <font color="#FF0000">*</font></td>
<td> <input type="text" name="brugernavn" value="" maxlength="50" class="bottom" size="30">
</td>
</tr>
<tr>
<td width="140" valign="top" class="skrift">Password: <font color="#FF0000">*</font></td>
<td> <input type="password" name="password" value="" maxlength="50" class="bottom" size="30">
</td>
</tr>
<tr>
<td width="110" valign="top">Fulde navn<font color="#FF0000"> *</font></td>
<td>
<input name="Fulde navn" value="" maxlength="50" class="bottom" size="30"></td>
</tr>
<tr>
<td width="140" valign="top" class="skrift"> Vist navn: <font color="#FF0000">*</font></td>
<td> <input type="text" name="navn" value="" size="30" maxlength="50" class="bottom">
</td>
</tr>
<tr>
<td width="140" valign="top" class="skrift">Fødselsdagdag: <font color="#FF0000">*</font></td>
<td>
<select size="1" name="Dag">
<option>1</option>
<option>2</option>
<option>3</option>
<option>4</option>
<option>5</option>
<option>6</option>
<option>7</option>
<option>8</option>
<option>9</option>
<option>10</option>
<option>11</option>
<option>12</option>
<option>13</option>
<option>14</option>
<option>15</option>
<option>16</option>
<option>17</option>
<option>18</option>
<option>19</option>
<option>20</option>
<option>21</option>
<option>22</option>
<option>23</option>
<option>24</option>
<option>25</option>
<option>26</option>
<option>27</option>
<option>28</option>
<option>29</option>
<option>30</option>
<option>31</option>
</select> <select size="1" name="Måned">
<option>Januar</option>
<option>Februar</option>
<option>Marts</option>
<option>April</option>
<option>Maj</option>
<option>Juni</option>
<option>Juli</option>
<option>August</option>
<option>September</option>
<option>Oktober</option>
<option>November</option>
<option>December</option>
</select><select size="1" name="År">
<option>1960</option>
<option>1961</option>
<option>1962</option>
<option>1963</option>
<option>1964</option>
<option>1965</option>
<option>1966</option>
<option>1967</option>
<option>1968</option>
<option>1969</option>
<option>1970</option>
<option>1971</option>
<option>1972</option>
<option>1973</option>
<option>1974</option>
<option>1975</option>
<option>1976</option>
<option>1977</option>
<option>1978</option>
<option>1980</option>
<option>1981</option>
<option>1982</option>
<option>1983</option>
<option>1984</option>
<option>1985</option>
<option>1986</option>
<option>1987</option>
<option>1988</option>
<option>1989</option>
<option>1990</option>
<option>1991</option>
<option>1992</option>
<option>1993</option>
<option>1994</option>
<option>1995</option>
<option>1996</option>
<option>1997</option>
<option>1998</option>
<option>1999</option>
<option>2000</option>
</select></td>
</tr>
<tr>
<td width="140" valign="top" class="skrift">Køn: <font color="#FF0000">*</font></td>
<td> <select name="kon" class="bottom" size="1">
<option value="-" selected>Ikke angivet</option>
<option value="Mand">Mand</option>
<option value="Kvinde">Kvinde</option>
</select> </td>
</tr>
<tr>
<td width="140" valign="top" class="skrift">Email: <font color="#FF0000">*</font></td>
<td> <input type="text" name="email" value="" size="30" maxlength="255" class="bottom">
</td>
</tr>
<tr>
<td width="140" valign="top" class="skrift">Msn:</td>
<td> <input type="text" name="icq" size="30" maxlength="15" class="bottom">
</td>
</tr>
<tr>
<td width="140" valign="top" class="skrift">Landsdel:</td>
<td> <select size="1" name="website" tabindex="10">
<option selected>Ikke angivet</option>
<option>Bornholm</option>
<option>Fyn</option>
<option>Færøerne</option>
<option>Grønland</option>
<option>Lolland/Falster</option>
<option>Midtjylland</option>
<option>Nordjylland</option>
<option>Sjælland</option>
<option>Sønderjylland</option>
<option>Udlandet</option>
<option>Andet sted</option>
</select>
</td>
</tr>
<tr>
<td width="140" valign="top" class="skrift">Info:</td>
<td> <textarea name="om" rows="4" cols="30" class="bottom"></textarea>
</td>
</tr>
<tr>
<td width="110" valign="top">Regler <font color="#FF0000">*</font></td>
<td> <input type="checkbox" name="regler" value="ON"></td>
</tr>
<tr>
<td width="110" valign="top"> </td>
<td> <input type="submit" value="opret bruger" class="bottom"></td>
</tr>
</table>
</form></td>
</tr>
</table></div>

</body>
</html>

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet lør. d. 09. oktober 2004 kl. 17:29:31| #6

arne_v (1.005.623 point)

Du kan enten:

udfylde dag+måned+år på formen, submitte den, beregne alder på server og vise alder

eller:

udfylde dag+måned+år på formen, lade noget JavaScript udregne alder på client,
submitte formen med alder

Hvad vil du ?

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet lør. d. 09. oktober 2004 kl. 17:31:56| #7

arne_v (1.005.623 point)

Hvis det første kan du vel stort set erstatte

alder = Request("alder")

med

d = Request("Dag") & "/" & Request("Måned") & "/" & Request("År")
alder = DateDiff("yyyy", d, Now())
If DatePart("y", d) > DatePart("y", Now()) Then
alder = alder - 1
End If

[utestet !!!!]

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet lør. d. 09. oktober 2004 kl. 17:42:49| #8

jesper2003 (10.880 point)

Gør den også sår når man har fødselsdag skifter den automatisk fra 15 til 16?

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet lør. d. 09. oktober 2004 kl. 17:49:38| #9

arne_v (1.005.623 point)

Hvis du vil det så skal du gemme fødselsdag i databasen og udregne
alder ved visning.

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet lør. d. 09. oktober 2004 kl. 17:51:28| #10

jesper2003 (10.880 point)

Og hvor dan gør man det?

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet lør. d. 09. oktober 2004 kl. 18:06:30| #11

arne_v (1.005.623 point)

Du henter fra databasen med:

d = rs("fødselsdagdag")

og konverterer med helt samme kode:

alder = DateDiff("yyyy", d, Now())
If DatePart("y", d) > DatePart("y", Now()) Then
alder = alder - 1
End If

og viser med:

Du er <%=alder%> år gammel.

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet lør. d. 09. oktober 2004 kl. 18:14:44| #12

jesper2003 (10.880 point)

Alser denne kode skal ind i opret
alder = DateDiff("yyyy", d, Now())
If DatePart("y", d) > DatePart("y", Now()) Then
alder = alder - 1
End If

Og denne skal bruges til at hente med <%=alder%> år gammel.

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet lør. d. 09. oktober 2004 kl. 18:22:49| #13

arne_v (1.005.623 point)

Nej - alle 3 skal bruges i vis.

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet lør. d. 09. oktober 2004 kl. 18:23:35| #14

arne_v (1.005.623 point)

I opret skal du kun bruge:

rs("fødselsdagdag") = Request("Dag") & "/" & Request("Måned") & "/" & Request("År")

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet lør. d. 09. oktober 2004 kl. 18:50:12| #15

jesper2003 (10.880 point)

Okay nu virker det men hvor dan hiver man den sår ud igen bare hvor der står 15 år.

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet lør. d. 09. oktober 2004 kl. 18:52:31| #16

arne_v (1.005.623 point)

Du laver en SELECT der henter rækken og bruger de 3 dele fra 18:06:30 kommentaren

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet lør. d. 09. oktober 2004 kl. 19:14:01| #17

jesper2003 (10.880 point)

Hvor dan laver man det har prøvet

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet lør. d. 09. oktober 2004 kl. 22:05:32| #18

arne_v (1.005.623 point)

Du laver connection, executer SQL sætning, henter fødselsdag ud af record set, omregner
til alder.

Prøv.

Og hvis det ikke virker så post et lille kode fragment, så kigger vi på det.

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet lør. d. 09. oktober 2004 kl. 22:48:29| #19

jesper2003 (10.880 point)

arne_v Skriv et svar fik det til at du

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet lør. d. 09. oktober 2004 kl. 22:49:43| #20

Accepteret svar!200 point tildelt

arne_v (1.005.623 point)

kommer her

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Log ind

Opret bruger | Glemt adgangskode

Seneste spørgsmål

Udskrive mappens navn

Oprettet den 8. februar 2012 kl. 13.32

no_doubt giver 60 point for svar | Giv et svar »

Flere tæller/counter SQL og ASP!

Oprettet den 7. februar 2012 kl. 20.09

denny giver 30 point for svar | Giv et svar »

hjælp til fejl

Oprettet den 1. februar 2012 kl. 10.54

sth giver 100 point for svar | Giv et svar »

Seneste guides

Installer win 7

9. februar 2012 kl. 14.11 | Læs »

Installation af Apache2, PHP5, MySQL5, Phpmyadmin og...

8. februar 2012 kl. 20.05 | Læs »

Den hurtige og effektive metoder til at knække...

4. februar 2012 kl. 23.16 | Læs »

Guide til usb internet også kaldet mobilt bredbånd

4. februar 2012 kl. 22.33 | Læs »

Den gode bruger

30. januar 2012 kl. 04.45 | Læs »

Se alle guides »

Seneste nyheder

Måske snart slut med Androids helt store problem

10. februar 2012 kl. 13.40 | Læs »

Her er fem sjove danske websider du skal kende

10. februar 2012 kl. 13.31 | Læs »

NemId sprængt: Hackere bryder ind i Danske Bank

10. februar 2012 kl. 13.06 | Læs »

Danmark kigger langt efter musikbranchens guldkalv

10. februar 2012 kl. 12.20 | Læs »

Nu kan du snart hente Windows 8

10. februar 2012 kl. 11.41 | Læs »

Se alle nyheder »

Tips & Tricks fra PC World

Her er fem sjove danske websider du skal kende

Trænger dine lattermuskler til en omgang fitness på dansk? Vi viser vej til fem websider fyldt med humor og vanvittig satire.

Læs mere »

Anmeldelser fra PC World

Test: Denne super-tablet er iPads hårdeste konkurrent

Eee Pad Transformer Prime er frygtindgydende med sin quadcore processor og evne til at trylle sig om til bærbar. Apple bør kigge i bagspejlet, for Asus' tablet-pc kommer buldrende - og gør det...

Læs mere »

Seneste blogindlæg

Tvangslukke spørgsmål: Hvad er den bedste løsning?

Hej Vi har mange åbne spørgsmål på Eksperten. Vi ville gerne tvangslukke dem - så et spørgsmål efter f.eks. 6 måneder lukkes. Men der er et par uklarheder som ville være gode at få lidt input til:...

Læs mere »