Notifikationer

Markér alle som læst Log ud

jesper2003 Nybegynder

09. oktober 2004 - 16:56 Der er 19 kommentarer og
1 løsning

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

Synes godt om

ffn Nybegynder

09. oktober 2004 - 17:07 #1

kan det bruges? http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/Q100/1/36.asp&NoWebContent=1

Synes godt om

arne_v Ekspert

09. oktober 2004 - 17:19 #2

Hvis d indeholder fødselsdatoen så:

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

Synes godt om

arne_v Ekspert

09. oktober 2004 - 17:19 #3

agey indeholder så alderen

Synes godt om

arne_v Ekspert

09. oktober 2004 - 17:20 #4

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

Synes godt om

jesper2003 Nybegynder

09. oktober 2004 - 17:24 #5

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>

Synes godt om

arne_v Ekspert

09. oktober 2004 - 17:29 #6

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 ?

Synes godt om

arne_v Ekspert

09. oktober 2004 - 17:31 #7

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 !!!!]

Synes godt om

jesper2003 Nybegynder

09. oktober 2004 - 17:42 #8

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

Synes godt om

arne_v Ekspert

09. oktober 2004 - 17:49 #9

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

Synes godt om

jesper2003 Nybegynder

09. oktober 2004 - 17:51 #10

Og hvor dan gør man det?

Synes godt om

arne_v Ekspert

09. oktober 2004 - 18:06 #11

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.

Synes godt om

jesper2003 Nybegynder

09. oktober 2004 - 18:14 #12

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.

Synes godt om

arne_v Ekspert

09. oktober 2004 - 18:22 #13

Nej - alle 3 skal bruges i vis.

Synes godt om

arne_v Ekspert

09. oktober 2004 - 18:23 #14

I opret skal du kun bruge:

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

Synes godt om

jesper2003 Nybegynder

09. oktober 2004 - 18:50 #15

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

Synes godt om

arne_v Ekspert

09. oktober 2004 - 18:52 #16

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

Synes godt om

jesper2003 Nybegynder

09. oktober 2004 - 19:14 #17

Hvor dan laver man det har prøvet

Synes godt om

arne_v Ekspert

09. oktober 2004 - 22:05 #18

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.

Synes godt om

jesper2003 Nybegynder

09. oktober 2004 - 22:48 #19

arne_v Skriv et svar fik det til at du

Synes godt om

arne_v Ekspert

09. oktober 2004 - 22:49 #20

kommer her

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS