Notifikationer

Markér alle som læst Log ud

lbos Nybegynder

23. marts 2003 - 19:59 Der er 5 kommentarer og
1 løsning

sende email til ny bruger

hej
Jeg har en formular som brugerne skal bruge til at blive medlem. Den smider så info ind i databasen men den skal også sende det til den nye bruger.Er der en der kan hjælpe med det ??
det skulle også gerne være sån at hvis email ikke er valid opretter den ikke bruger ??

Synes godt om

thomas.martinsen Nybegynder

23. marts 2003 - 23:03 #1

Du kan oprette et mail objekt der kan sende din email. Du opretter objektet således:

Dim objNewMail
Set objNewMail = Server.CreateObject("CDONTS.NewMail")

For at udfylde din email kan du sætte følgende properties på dit mail objekt:

objNewMail.From = "webmaster@devasp.com"
objNewMail.To = "test@devasp.com"
objNewMail.Subject = "This is a test Mail"
objNewMail.Body = "This is the Body text of this test mail."

Og endelig sende den ved følgende funktionskald:

objNewMail.Send

Husk at fjerne dit objekt når du er færdig med at bruge det:

Set objNewMail = Nothing

For at validere at en brugers email adresse er korrekt kan du bruge "regular expressions". Du kan læse mere om regular expressions på MSDN her:

http://msdn.microsoft.com/library/default.asp?URL=/library/en-us/dnclinic/html/scripting051099.asp

Der står også nogle gode eksempler og en grundig gennemgang af, hvordan du bruger det i ASP.

Synes godt om

oasen Nybegynder

24. marts 2003 - 10:25 #2

Du kan jo ikke kontrollere, om mail-adressen er gyldig, før brugeren har bekræftet den. Med RegExp tester du kun, at syntaksen er gyldig.

I store træk skal du generere en tilfældig aktiveringskode. Denne lægger du ind i brugerens post i tabellen og sender til vedkommende pr. mail. Når brugeren aktiverer linket, du har sendt ham/hende (indeholdende koden), sammenligner du den med koden i tabellen. Hvis den er rigtig, er brugeren nu i stand til at logge ind.

Synes godt om

lbos Nybegynder

24. marts 2003 - 17:04 #3

Hej jeg er en nød ! til det der er der en der kan hjælpe mig ??
Her er den side folk opretter sig på

<%
Option Explicit
Dim username,newcount

username = Request.Cookies("username")
%><html>

<head>
<title></title>

<link rel="stylesheet" href="design7.css">
<script language="JavaScript">

</script>
</head>

<body body leftmargin="0" marginwidth="0" topmargin="0" marginheight="0" body oncontextmenu="return false;" bgcolor="#9EB2BD" onload="na_open_window('win', 'logbeting.asp', 400, 200, 450, 420, 0, 0, 0, 0, 0);">
<table border=0 cellspacing=0 cellpadding=0 bgcolor=#FFFFFF width="445" align="center" style="border-width:1; border-color:rgb(129,82,47); border-style:solid;">
<tr>
<td height="5"><img src="i/s.gif" width=1 height=9 border=0></td>
</tr>
<tr>
<td valign=top class="csMainHead">
<img src="nologin_asp_smartbutton1.gif" border="0"> <%'See if they're actually already logged in
if username <> "" then%>Du
er allerede logget ind.Hvis du vil registrerer dig igen så <a href="signout.asp">log
ud her </a>først.<%'Otherwise display the sign up form
else%></td>
</tr>
<tr>
<td><img src="i/s.gif" width=1 height=5 border=0></td>
</tr>
<tr>
<td><img src="i/l2.gif" width=422 height=1 border=0></td>
</tr>
<tr>
<td>
<table border=0 cellspacing=0 cellpadding=0 align="center" width="428">
<form name="signup" action="signupprocess.asp" method="post">
<tr>
<td colspan="2" bgcolor="#FCCF9C" width="428"><img src="i/s.gif" width=1 height=4 border=0></td>
</tr>
<tr>
<td bgcolor="#FCCF9C" width="9">  </td>
<td width="419" bgcolor="#FCCF9C">Brugernavn</td>
</tr>
<tr>
<td colspan="2" bgcolor="#FCCF9C" width="428"><img src="i/s.gif" width=1 height=5 border=0></td>
</tr>
<tr>
<td bgcolor="#FCCF9C" width="9">  </td>
<td width="419" bgcolor="#FCCF9C"><input maxlength=25 type=text name="username" value="" onkeypress="return nicknamecheck(event);" size="20" style="border-width:1; border-color:rgb(129,82,47); border-style:solid;"></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FCCF9C" width="428"><img src="i/s.gif" width=1 height=4 border=0></td>
</tr>
<tr>
<td colspan="2" width="428"><img src="i/s.gif" width=1 height=2 border=0></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FCCF9C" width="428"><img src="i/s.gif" width=1 height=4 border=0></td>
</tr>
<tr>
<td bgcolor="#FCCF9C" width="9">  </td>
<td width="419" bgcolor="#FCCF9C">Adgangskode</td>
</tr>
<tr>
<td colspan="2" bgcolor="#FCCF9C" width="428"><img src="i/s.gif" width=1 height=5 border=0></td>
</tr>
<tr>
<td bgcolor="#FCCF9C" width="9">  </td>
<td width="419" bgcolor="#FCCF9C"><input maxlength=15 type=password name="password" value="" style="border-width:1; border-color:rgb(129,82,47); border-style:solid;"></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FCCF9C" width="428"><img src="i/s.gif" width=1 height=4 border=0></td>
</tr>
<tr>
<td bgcolor="#FCCF9C" width="9">  </td>
<td width="419" bgcolor="#FCCF9C">Bekræft
adgangskode</td>
</tr>
<tr>
<td colspan="2" bgcolor="#FCCF9C" width="428"><img src="i/s.gif" width=1 height=5 border=0></td>
</tr>
<tr>
<td bgcolor="#FCCF9C" width="9">  </td>
<td width="419" bgcolor="#FCCF9C"><input maxlength=15 type=password name="passwordconfirm" value="" style="border-width:1; border-color:rgb(129,82,47); border-style:solid;"></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FCCF9C" width="428"><img src="i/s.gif" width=1 height=4 border=0></td>
</tr>
<tr>
<td colspan="2" width="428"><img src="i/s.gif" width=1 height=2 border=0></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FCCF9C" width="428"><img src="i/s.gif" width=1 height=4 border=0></td>
</tr>
<tr>
<td bgcolor="#FCCF9C" width="9">  </td>
<td width="419" bgcolor="#FCCF9C">E-mail</td>
</tr>
<tr>
<td colspan="2" bgcolor="#FCCF9C" width="428"><img src="i/s.gif" width=1 height=5 border=0></td>
</tr>
<tr>
<td bgcolor="#FCCF9C" width="9">  </td>
<td width="419" bgcolor="#FCCF9C"><input maxlength=50 type=text name="email" value="" style="border-width:1; border-color:rgb(129,82,47); border-style:solid;">  Vises
ikke til andre brugere !</td>
</tr>
<tr>
<td colspan="2" bgcolor="#FCCF9C" width="428"><img src="i/s.gif" width=1 height=4 border=0></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FCCF9C" width="428"><img src="i/s.gif" width=1 height=4 border=0></td>
</tr>
<tr>
<td colspan="2" width="428"><img src="i/s.gif" width=1 height=2 border=0></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FCCF9C" width="428"><img src="i/s.gif" width=1 height=4 border=0></td>
</tr>
<tr>
<td bgcolor="#FCCF9C" width="9">  </td>
<td width="419" bgcolor="#FCCF9C">Jeg
er</td>
</tr>
<tr>
<td colspan="2" bgcolor="#FCCF9C" width="428"><img src="i/s.gif" width=1 height=5 border=0></td>
</tr>
<tr>
<td bgcolor="#FCCF9C" width="9">  </td>
<td width="419" bgcolor="#FCCF9C">
<select name="sex" size="1" style="border-width:1; border-color:rgb(0,128,192); border-style:solid;">
<option value="Kvinde" selected>Kvinde</option>
<option value="Mand">Mand</option>
<option value="Par.">Par.</option>
</select></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FCCF9C" width="428"><img src="i/s.gif" width=1 height=4 border=0></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FCCF9C" width="428"><img src="i/s.gif" width=1 height=2 border=0></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FCCF9C" width="428"><img src="i/s.gif" width=1 height=4 border=0></td>
</tr>
<tr>
<td bgcolor="#FCCF9C" width="9">  </td>
<td width="419" bgcolor="#FCCF9C">Seksualitet</td>
</tr>
<tr>
<td colspan="2" bgcolor="#FCCF9C" width="428"><img src="i/s.gif" width=1 height=5 border=0></td>
</tr>
<tr>
<td bgcolor="#FCCF9C" width="9">  </td>
<td width="419" bgcolor="#FCCF9C">
<select name="sexorient" size="1">
<option value="Hetero">Hetero</option>
<option value="Homoseksuel">Homoseksuel</option>
<option value="Bisexuel">Bisexuel</option>
<option selected value="Ikke angivet.">Ikke angivet.</option>
</select></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FCCF9C" width="428"><img src="i/s.gif" width=1 height=4 border=0></td>
</tr>
<tr>
<td colspan="2" width="428"><img src="i/s.gif" width=1 height=2 border=0></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FCCF9C" width="428"><img src="i/s.gif" width=1 height=4 border=0></td>
</tr>
<tr>
<td bgcolor="#FCCF9C" width="9">  </td>
<td width="419" bgcolor="#FCCF9C">Fødselsdato</td>
</tr>
<tr>
<td colspan="2" bgcolor="#FCCF9C" width="428"><img src="i/s.gif" width=1 height=5 border=0></td>
</tr>
<tr>
<td bgcolor="#FCCF9C" width="9">  </td>
<td width="419" bgcolor="#FCCF9C"><select input type="text" name="birth_Day">
<option value="0">1
<option value="1">2
<option value="2">3
<option value="3">4
<option value="4">5
<option value="5">6
<option value="6">7
<option value="7">8
<option value="8">9
<option value="9">10
<option value="10">11
<option value="11">12
<option value="12">13
<option value="13">14
<option value="14">15
<option value="15">16
<option value="16">17
<option value="17">18
<option value="18">19
<option value="19">20
<option value="20">21
<option value="21">22
<option value="22">23
<option value="23">24
<option value="24">25
<option value="25">26
<option value="26">27
<option value="27">28
<option value="28">29
<option value="29">30
<option value="30">31
</select>  <select name="birth_month">
<option value="01">Jan
<option value="02">Feb
<option value="03">Mar
<option value="04">Apr
<option value="05">Maj
<option value="06">Jun
<option value="07">Jul
<option value="08">Aug
<option value="09">Sep
<option value="10">Okt
<option value="11">Nov
<option value="12">Dec
</select>
 <select name="birth_year">
<option value="1903">1903
<option value="1904">1904
<option value="1905">1905
<option value="1906">1906
<option value="1907">1907
<option value="1908">1908
<option value="1909">1909
<option value="1910">1910
<option value="1911">1911
<option value="1912">1912
<option value="1913">1913
<option value="1914">1914
<option value="1915">1915
<option value="1916">1916
<option value="1917">1917
<option value="1918">1918
<option value="1919">1919
<option value="1920">1920
<option value="1921">1921
<option value="1922">1922
<option value="1923">1923
<option value="1924">1924
<option value="1925">1925
<option value="1926">1926
<option value="1927">1927
<option value="1928">1928
<option value="1929">1929
<option value="1930">1930
<option value="1931">1931
<option value="1932">1932
<option value="1933">1933
<option value="1934">1934
<option value="1935">1935
<option value="1936">1936
<option value="1937">1937
<option value="1938">1938
<option value="1939">1939
<option value="1940">1940
<option value="1941">1941
<option value="1942">1942
<option value="1943">1943
<option value="1944">1944
<option value="1945">1945
<option value="1946">1946
<option value="1947">1947
<option value="1948">1948
<option value="1949">1949
<option value="1950">1950
<option value="1951">1951
<option value="1952">1952
<option value="1953">1953
<option value="1954">1954
<option value="1955">1955
<option value="1956">1956
<option value="1957">1957
<option value="1958">1958
<option value="1959">1959
<option value="1960">1960
<option value="1961">1961
<option value="1962">1962
<option value="1963">1963
<option value="1964">1964
<option value="1965">1965
<option value="1966">1966
<option value="1967">1967
<option value="1968">1968
<option value="1969">1969
<option value="1970">1970
<option value="1971">1971
<option value="1972">1972
<option value="1973" selected>1973
<option value="1974">1974
<option value="1975">1975
<option value="1976">1976
<option value="1977">1977
<option value="1978">1978
<option value="1979">1979
<option value="1980">1980
<option value="1981">1981
<option value="1982">1982
<option value="1983">1983
<option value="1984">1984
<option value="1985">1985
<option value="1986">1986
<option value="1987">1987
<option value="1988">1988
</select>  Kun din alder vises til andre
brugere</td>
</tr>
<tr>
<td colspan="2" bgcolor="#FCCF9C" width="428"><img src="i/s.gif" width=1 height=4 border=0></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FCCF9C" width="428"><img src="i/s.gif" width=1 height=2 border=0></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FCCF9C" width="428"><img src="i/s.gif" width=1 height=4 border=0></td>
</tr>
<tr>
<td bgcolor="#FCCF9C" width="9">  </td>
<td width="419" bgcolor="#FCCF9C">Søger</td>
</tr>
<tr>
<td colspan="2" bgcolor="#FCCF9C" width="428"><img src="i/s.gif" width=1 height=5 border=0></td>
</tr>
<tr>
<td bgcolor="#FCCF9C" width="9">  </td>
<td width="419" bgcolor="#FCCF9C"><select input type="text" name="seek">
<option value="Kæreste" selected>Kæreste
<option value="Ven/veninde">Ven/veninde
<option value="Sjov & Spas">Sjov og spas
<option value="Mand">Mand</option>
<option value="Kvinde">Kvinde</option>
</select></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FCCF9C" width="428"><img src="i/s.gif" width=1 height=4 border=0></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FCCF9C" width="428"><img src="i/s.gif" width=1 height=2 border=0></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FCCF9C" width="428"><img src="i/s.gif" width=1 height=4 border=0></td>
</tr>
<tr>
<td bgcolor="#FCCF9C" width="9">  </td>
<td width="419" bgcolor="#FCCF9C">Bopæl</td>
</tr>
<tr>
<td colspan="2" bgcolor="#FCCF9C" width="428"><img src="i/s.gif" width=1 height=5 border=0></td>
</tr>
<tr>
<td bgcolor="#FCCF9C" width="9">  </td>
<td width="419" bgcolor="#FCCF9C">
<select name="landsdel" size="1">
<option value="Vælg." selected>Vælg.</option>
<option value="København">København</option>
<option value="Nord Jylland">Nord Jylland</option>
<option value="Vest Jylland">Vest Jylland</option>
<option value="Syd Jylland">Syd Jylland</option>
<option value="Øst Jylland">Øst Jylland</option>
<option value="Midt Jylland">Midt Jylland</option>
<option value="Fyn Øst">Fyn Øst</option>
<option value="Fyn Vest">Fyn Vest</option>
<option value="Fyn Nord">Fyn Nord</option>
<option value="Fyn Syd">Fyn Syd</option>
<option value="Vest Sjælland">Vest Sjælland</option>
<option value="Øst Sjælland">Øst Sjælland</option>
<option value="Nord Sjælland">Nord Sjælland</option>
<option value="Syd Sjælland">Syd Sjælland</option>
</select>
</td>
</tr>
<tr>
<td colspan="2" bgcolor="#FCCF9C" width="428"><img src="i/s.gif" width=1 height=4 border=0></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FCCF9C" width="428"><img src="i/s.gif" width=1 height=2 border=0></td>
</tr>
<tr>
<td bgcolor="#FCCF9C" width="9">  </td>
<td width="419" bgcolor="#FCCF9C">Profilen's
 Overskrift</td>
</tr>
<tr>
<td colspan="2" bgcolor="#FCCF9C" width="428"><img src="i/s.gif" width=1 height=5 border=0></td>
</tr>
<tr>
<td bgcolor="#FCCF9C" width="9">  </td>
<td width="419" bgcolor="#FCCF9C"><input maxlength=70 type=text name="surname" value="" style="border-width:1; border-color:rgb(129,82,47); border-style:solid;" size="29"></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FCCF9C" width="428"><img src="i/s.gif" width=1 height=4 border=0></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FCCF9C" width="428"><img src="i/s.gif" width=1 height=2 border=0></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FCCF9C" width="428"><img src="i/s.gif" width=1 height=4 border=0></td>
</tr>
<tr>
<td bgcolor="#FCCF9C" width="9">  </td>
<td width="419" bgcolor="#FCCF9C">Beskrivelse</td>
</tr>
<tr>
<td colspan="2" bgcolor="#FCCF9C" width="428"><img src="i/s.gif" width=1 height=5 border=0></td>
</tr>
<tr>
<td bgcolor="#FCCF9C" width="9">  </td>
<td width="419" bgcolor="#FCCF9C"><textarea name="profil" cols=40 rows=10 style="border-width:1; border-color:rgb(129,82,47); border-style:solid; width:400;"></textarea></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FCCF9C" width="428"><img src="i/s.gif" width=1 height=4 border=0></td>
</tr>
<tr>
<td colspan="2" width="428" bgcolor="#FCCF9C"><img src="i/s.gif" width=1 height=2 border=0></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FCCF9C" width="428"><img src="i/s.gif" width=1 height=4 border=0></td>
</tr>
<tr>
<td bgcolor="#FCCF9C" width="9">  </td>
<td width="419" bgcolor="#FCCF9C"> </td>
</tr>
<tr>
<td colspan="2" bgcolor="white" width="428"><img src="i/s.gif" width=1 height=5 border=0></td>
</tr>
<tr>
<td bgcolor="#FCCF9C" width="9">  </td>
<td width="419" bgcolor="#FCCF9C"> </td>
</tr>
<tr>
<td colspan="2" bgcolor="#FCCF9C" height="215" width="428">
<form name="signup" action="signupprocess.asp" method="post">
<table width="429" cellpadding=2 cellspacing=0 align="center" style="border-width:1; border-color:rgb(173,0,0); border-style:none;" bgcolor="#DEC6BC">
<tr>
<td align="center" width="425" bgcolor="#FCCF9C" colspan="2">
Vælg
et ikon til din ID: <input type="hidden" name="biled" value="no_image.jpg">
<table width="387" cellpadding=2 cellspacing=0 align="center">
<tr>
<td align="center" width="60">
<img src="icons/1.gif" onclick="document.signup.icon[0].checked=true"> <input type="radio" name="icon" value="1"></td>
<td align="center" width="60">
<img src="icons/2.gif" onclick="document.signup.icon[1].checked=true"> <input type="radio" name="icon" value="2"></td>
<td align="center" width="60">
<img src="icons/3.gif" onclick="document.signup.icon[2].checked=true"> <input type="radio" name="icon" value="3"></td>
<td align="center" width="60">
<img src="icons/4.gif" onclick="document.signup.icon[3].checked=true"> <input type="radio" name="icon" value="4"></td>
<td align="center" width="60">
<img src="icons/5.gif" onclick="document.signup.icon[4].checked=true"> <input type="radio" name="icon" value="5"></td>
</tr>
<tr>
<td align="center" width="60">
<img src="icons/6.gif" onclick="document.signup.icon[5].checked=true"> <input type="radio" name="icon" value="6"></td>
<td align="center" width="60">
<img src="icons/7.gif" onclick="document.signup.icon[6].checked=true"> <input type="radio" name="icon" value="7"></td>
<td align="center" width="60">
<img src="icons/8.gif" onclick="document.signup.icon[7].checked=true"> <input type="radio" name="icon" value="8"></td>
<td align="center" width="60">
<img src="icons/9.gif" onclick="document.signup.icon[8].checked=true"> <input type="radio" name="icon" value="9"></td>
<td align="center" width="60">
<img src="icons/10.gif" onclick="document.signup.icon[9].checked=true"> <input type="radio" name="icon" value="10"></td>
</tr>
<tr>
<td align="center" width="60">
<img src="icons/11.gif" onclick="document.signup.icon[10].checked=true"> <input type="radio" name="icon" value="11"></td>
<td align="center" width="60">
<img src="icons/12.gif" onclick="document.signup.icon[11].checked=true"> <input type="radio" name="icon" value="12"></td>
<td align="center" width="60">
<img src="icons/13.gif" onclick="document.signup.icon[12].checked=true"> <input type="radio" name="icon" value="13"></td>
<td align="center" width="60">
<img src="icons/14.gif" onclick="document.signup.icon[13].checked=true"> <input type="radio" name="icon" value="14"></td>
<td align="center" width="60">
<img src="icons/15.gif" onclick="document.signup.icon[14].checked=true"> <input type="radio" name="icon" value="15"></td>
</tr>
<tr>
<td align="center" width="60">
<img src="icons/16.gif" onclick="document.signup.icon[15].checked=true"> <input type="radio" name="icon" value="16"></td>
<td align="center" width="60">
<img src="icons/17.gif" onclick="document.signup.icon[16].checked=true"> <input type="radio" name="icon" value="17"></td>
<td align="center" width="60">
<img src="icons/18.gif" onclick="document.signup.icon[17].checked=true"> <input type="radio" name="icon" value="18"></td>
<td align="center" width="60">
<img src="icons/19.gif" onclick="document.signup.icon[18].checked=true"> <input type="radio" name="icon" value="19"></td>
<td align="center" width="60">
<img src="icons/20.gif" onclick="document.signup.icon[19].checked=true"> <input type="radio" name="icon" value="20"></td>
</tr>
<tr>
<td align="center" width="60">
<img src="icons/21.gif" onclick="document.signup.icon[20].checked=true"> <input type="radio" name="icon" value="21"></td>
<td align="center" width="60">
<img src="icons/22.gif" onclick="document.signup.icon[21].checked=true"> <input type="radio" name="icon" value="22"></td>
<td align="center" width="60">
<img src="icons/23.gif" onclick="document.signup.icon[22].checked=true"> <input type="radio" name="icon" value="23"></td>
<td align="center" width="60">
<img src="icons/24.gif" onclick="document.signup.icon[23].checked=true"> <input type="radio" name="icon" value="24"></td>
<td align="center" width="60">
<img src="icons/25.gif" onclick="document.signup.icon[24].checked=true"> <input type="radio" name="icon" value="25"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td align="center" width="210" bgcolor="#FCCF9C">
    <input type="image" border="0" name="imageField" src="btnB131.gif" width="47" height="17" align="middle"></td>
<td align="center" width="210" bgcolor="#FCCF9C">
<a href="java script:window.close()">Luk
vindue.<img src="x_red.gif" width="10" height="10" border="0" alt="x_red.gif" align="absmiddle"></a>

</td>
</tr>
</table>
</form>
 
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="11"> <%end if%></td>
</tr>

</table>

Og her sign up siden

<%
Option Explicit
Dim sql, vagt, hojde, hafarve, ojfarve,stemmer, ryger, landsdel, brn,gft,anon,vgplan, udsende, biled,FILENAME,rsUser,username,password,passwordconfirm,firstname,surname,email,dob,sex,profil,seek,notfilled(9),badflag,count,passwordLength,calltype,icon,starsign,dobmonth,dobday

'Assign form values to variables
username = Request.Form("username")

'Make sure they've not put any quotation marks in their username
If InStr(username,chr(34)) <> 0 or InStr(username,chr(39)) <> 0 then
errorfunction("invalidchars")
end if

firstname = Request.Form("firstname")
surname = Request.Form("surname")
email = Request.Form("email")
sex = Request.Form("sex")
seek = Request.Form("seek")
password = Request.Form("password")
passwordconfirm = Request.Form("passwordconfirm")
dob = Request.Form("birth_day") & "/" & Request.Form("birth_month") & "/" & Request.Form("birth_year")
icon = Request.Form("icon")
biled = Request.Form("biled")
profil = Request.Form("profil")
vagt = Request.Form("vagt")
hojde = Request.Form("hojde")
hafarve = Request.Form("hafarve")
ojfarve = Request.Form("ojfarve")
ryger = Request.Form("ryger")
landsdel = Request.Form("landsdel")
sexorient = Request.Form("sexorient")
ptype = Request.Form("ptype")
udsende = Request.Form("udsende")
brn = Request.Form("brn")
msk = Request.Form("msk")
gft = Request.Form("gft")
dd = Request.Form("dd")
hbb = Request.Form("hbb")
stng = Request.Form("stng")
tlfkli = Request.Form("tlfkli")
mobkli = Request.Form("mobkli")
adr = Request.Form("adr")
anon = Request.Form("anon")
vgplan = Request.Form("vgplan")
stemmer = Request.Form("stemmer")
'Check everything's been filled in, badflag determines whether error function is called
badflag = 0

'nofilled() is an array that will store the fields which are not filled in

if landsdel = "" then
notfilled(0) = "landsdel"
badflag = 1
end if
if surname = "" then
notfilled(1) = "Surname"
badflag = 1
end if
if email = "" then
notfilled(2) = "Email"
badflag = 1
end if
if username = "" then
notfilled(3) = "Username"
badflag = 1
end if
if password = "" then
notfilled(4) = "Password"
badflag = 1
end if
if sex = "" then
notfilled(5) = "Sex"
badflag = 1

end if
if icon = "" then
notfilled(6) = "Your choice of icon"
badflag = 1
end if

if badflag = 1 then
signuperror()
end if

'Check password length is between 5 and 15 characters long
passwordLength = Len(password)
if passwordLength < 5 or passwordLength > 15 then
errorfunction("length")
end if

'Check password and confirmed password are the same
if password <> passwordconfirm then
errorfunction("confirm")
end if
'Open connection and insert user details into the database
%><%

'For a bit of profiling fun, get their star sign
getstarsign()
getbiled()
'Then add it to the database. It's in a seperate function because we need to error trap to see if there's been a duplicate entry. It's not good form to have On Error Resume Next throughout your whole page

UserUpdate()

Function UserUpdate()
On Error Resume Next

Set rsUser = Server.CreateObject("ADODB.Recordset")
rsUser.open "users", conn, 3, 3
rsUser.AddNew
rsUser("username") = username
rsUser("password") = password
rsUser("firstname") = firstname
rsUser("surname") = surname
rsUser("email") = email
rsUser("dob") = dob
rsUser("starsign") = starsign
rsUser("sex") = sex
rsUser("icon") = icon
rsUser("lookfor")= seek
rsUser("FILENAME")= biled
rsUser("profil")= profil
rsUser("vagt") = vagt
rsUser("hojde") = hojde
rsUser("hafarve") = hafarve
rsUser("ojfarve") = ojfarve
rsUser("ryger") = ryger
rsUser("landsdel") = landsdel
rsUser("sexorient") = sexorient
rsUser("udsende") = udsende
rsUser("ptype") = ptype
rsUser("brn") = brn
rsUser("msk") = msk
rsUser("gft") = gft
rsUser("dd") = dd
rsUser("hbb") = hbb
rsUser("stng") = stng
rsUser("tlfkli") = tlfkli
rsUser("mobkli") = mobkli
rsUser("adr") = adr
rsUser("anon") = anon
rsUser("vgplan") = vgplan
rsUser("stemmer") = stemmer

rsUser.Update

if Err.Number = -2147217887 then
Err.clear
errorfunction("badusername")
else
'Set username cookie to sign them in now
Response.Cookies("username") = username
%><html>

<head>
<title></title>
<meta name="description" content="">
<meta name="keywords" content="">
<meta name="robots" content="index, follow">
<meta name="revisit" content="7 days">
<style type="text/css">

</style>
</head>

<body bgcolor="#F8AC50" text="000000" link="FF8000" vlink="FF8000" marginwidth=0 marginheight=0 leftmargin=0 topmargin=0>
<table border=0 cellpadding=0 cellspacing=0 bgcolor="#CCCCCC">
<tr>
<td valign=top height="486">
 
</td>
<td valign=top height="486" bgcolor="#F8D098">
 
 
<table align="center" border="0" width="85%">
<tr>
<td>
 
Tak
for det <%=username%> 
Du
har brugernavn <%=username%> Og du er logget ind!
<a href="profile.asp" target="_blank" onclick="java script:self.close()">Klik
her for at forsætte...</a>
 </td>
</tr>
</table>
<ul>
<%
rsUser.close
set rsUser = nothing
conn.close
set conn = nothing
%><%
end if
End Function%><%
Function getbiled()
biled = Request.Form("biled")
username = Request.Form("username")
Select Case username
Case username
if biled = "test" then
FILENAME = "no_image.jpg"
else
FILENAME = "no_image.jpg"
end if
End Select
End Function
%><%
Function getstarsign()
dobmonth = Request.Form("birth_month")
dobday = Request.Form("birth_day")
Select Case dobmonth
Case 1
if dobday < 21 then
starsign = "Stenbuk"
else
starsign = "Vandmand"
end if
Case 2
if dobday < 20 then
starsign = "Vandmand"
else
starsign = "Fisk"
end if
Case 3
if dobday < 21 then
starsign = "Fisk"
else
starsign = "Vædder"
end if
Case 4
if dobday < 21 then
starsign = "Vædder"
else
starsign = "Tyr"
end if
Case 5
if dobday < 22 then
starsign = "Tyr"
else
starsign = "Tvilling"
end if
Case 6
if dobday < 22 then
starsign = "Tvilling"
else
starsign = "Krebs"
end if
Case 7
if dobday < 24 then
starsign = "Krebs"
else
starsign = "Løve"
end if
Case 8
if dobday < 24 then
starsign = "Løve"
else
starsign = "Jomfru"
end if
Case 9
if dobday < 24 then
starsign = "Jomfru"
else
starsign = "Vægten"
end if
Case 10
if dobday < 24 then
starsign = "Vægten"
else
starsign = "Skorpion"
end if
Case 11
if dobday < 23 then
starsign = "Skorpion"
else
starsign = "Skytte"
end if
Case 12
if dobday < 22 then
starsign = "Skytte"
else
starsign = "Stenbuk"
end if
End Select
End Function
%><%Function signuperror()%>
UPS
du mangler lige nogle ting :
<%for count = 0 to 7%><%if notfilled(count) <> "" then%><%=notfilled(count)%> 
<%end if%> <%next%> 
<a href="java script:self.history.go(-1)">Prøv
igen</a>
<%Response.end
End Function%><%Function errorfunction(calltype)%><%if calltype = "confirm" then%>
De
to password passer ikke sammen
<a href="java script:self.history.go(-1)">Prøv
igen</a>
<%Response.end%><%elseif calltype = "length" then%>
Password skal være mellem 5 og 15
karakter i længde
<a href="java script:self.history.go(-1)">Prøv igen</a>
<%Response.end%><%elseif calltype = "badusername" then%>
Ufff !!! "<%=username%>"
er allerede brugt.
<a href="java script:self.history.go(-1)">Prøv igen</a>
<%
rsUser.close
set rsUser = nothing
conn.close
set conn = nothing
Response.end
%><%elseif calltype = "invalidchars" then%>
Brugernavnet må ikke indeholde quotering
<a href="java script:self.history.go(-1)">Prøv igen</a>
 
</ul>
</td>
</tr>
</table>
 
</body>

</html>
<%Response.end%><%end if
End Function%>

Synes godt om

oasen Nybegynder

25. marts 2003 - 15:06 #4

Det orker jeg virkelig ikke at sidde og tilpasse.
Men et lille tip, når du skal udskrive årstal:

For i = 1903 To 1988
Response.Write "<option value='" & i & "'>" & i & "</option>"
Next

Gør livet en del nemmere (og ligeledes kan du selvfølgelig udskrive dage og måneder)...

Synes godt om

lbos Nybegynder

27. marts 2003 - 08:55 #5

så lukker jeg

Synes godt om

lbos Nybegynder

27. marts 2003 - 08:56 #6

farvel

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
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
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

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