Hi there.

I'm trying to find the max number of the "id" column and then write
to the new recordset for example: "id"+1200. I could use the autonumber, 
but I will be using an option later where so called "active" members
will be granted a id number from 1 to 1000 and so called "passive"
members will resume their id as 12000 and above. Then when performing a 
search, and ordering by id, the low numbers will come first.

Thanks for the help :-)

Here is the present code, currently with id as "autonumber" still on.

----------------------------------------------------------------------

<!--#include virtual="/dev/_db.asp"-->
<!--#include virtual="/dev/_header_fin.asp"-->
<%
	bDontCount = False
	sPageTitle = "Dream Catcher - Rekisteröidy"
	bAdminOnly = False
	lSubjectID = 0
	sTitleBar = "/dev :: <a href=""/dev/index_fin.asp"">home</a> :: 
register"

	if request("comebackto") <> "" then
		sReferer = request("comebackto")
		sGoBackTo = "?" & request.querystring
	end if
	
	sub SendMail(sTo, sSubject, sBody, sName)

		Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
		Mailer.FromName = "DreamCatcher" 
		Mailer.FromAddress= "marko.ramstedt@s..." 
		Mailer.RemoteHost = "smtpmail.activeisp.com" 
		Mailer.AddRecipient sName,sTo
		Mailer.Subject = sSubject 
		Mailer.BodyText = sBody
		if Mailer.SendMail then
		Response.Write "Sähköposti lähetetty..." 
		else Response.Write "Mail send failure. Error was " & 
Mailer.Response 
		end if 

	end sub

	sub ShowProfile(sErr)

%>

<br>
<p class="smallaction" align="center">Rekisteröidy</p>
<p class="smallertext"></p>
<%=sErr%>
</p>
<form action="register_fin.asp<%=sGoBackTo%>" method="post">
<table border=0>
	<tr><td><font 
color="#614a92"><b><u>Yhteystietosi:</u></b></font><br></td>
	<td>&nbsp</td></tr>
	<tr>
		<td class="smallerheader">Käyttäjätunnus</td>
		<td><input type="text" class="tbflat" name="txtUserName" 
value="<%=sUserName%>"></td>
		<td class="smallertext"></td>
	</tr>
	<tr>
		<td class="smallerheader">Sähköpostiosoite</td>
		<td><input type="text" name="txtEMail" value="<%=sEmail%
>" size="30" class="tbflat"></td>
	</tr>
	<tr>
		<td class="smallerheader">Etunimi</td>
		<td><input type="text" class="tbflat" name="txtFirstName" 
value="<%=sFirstName%>"></td>
	</tr>
	<tr>
		<td class="smallerheader">Sukunimi</td>
		<td><input type="text" class="tbflat" name="txtLastName" 
value="<%=sLastName%>"></td>
	</tr>
	<tr>
		<td class="smallerheader">Sukupuoli</td>
		<td class="smallertext">
		<select name="txtGender" class="tbflat">

		<option selected>Mies</option>
		<option>Nainen</option>
		
		</select>
		</td>
	</tr>
	<tr>
		<td class="smallerheader">Ikä</td>
		<td><input type="text" class="tbflat" name="txtAge" 
size="3" maxlength="3" value="<%=sAge%>"></td>
		<td class="smallertext"></td>
	</tr>
	<tr>
		<td class="smallerheader">Puhelinnumero</td>
		<td><input type="text" class="tbflat" name="txtPhone" 
value="<%=sPhone%>"></td>
		<td class="smallertext"></td>
	</tr>
	<tr>
		<td class="smallerheader">Katuosoite</td>
		<td><input type="text" class="tbflat" name="txtAddress" 
value="<%=sAddress%>"></td>
		<td class="smallertext"></td>
	</tr>
	<tr>
		<td class="smallerheader">Kaupunki</td>
		<td><input type="text" class="tbflat" name="txtCity" 
value="<%=sCity%>"></td>
	</tr>
	<tr>
		<td class="smallerheader">Postinumero</td>
		<td><input type="text" class="tbflat" 
name="txtPostalcode" maxlength="5" size="5" value="<%=sPostalcode%>"></td>
	</tr>
	<tr>
		<td class="smallerheader">Hätätapauksessa 
yhteyshenkilö</td>
		<td><input type="text" class="tbflat" name="txtEmername" 
value="<%=sEmername%>"></td>
	</tr>
	<tr>
		<td class="smallerheader">Hätätapauksen yhteyshenkilön 
numero</td>
		<td><input type="text" class="tbflat" name="txtEmerphone" 
value="<%=sEmerphone%>"></td>
	</tr>
	<tr><td><br><br><font color="#614a92"><b><u>Henkilökohtaiset 
tiedot:</u></b></font><br></td>
	<td>&nbsp</td></tr>
	<tr>
		<td class="smallerheader">Pituus : cm</td>
		<td class="smallertext">
		<select name="txtHeight" class="tbflat">

		<option selected>140</option>
		<option>150</option>
		<option>160</option>
		<option>170</option>
		<option>180</option>
		<option>190</option>
		<option>200</option>
		
		</select>
		</td>
	</tr>
	<tr>
		<td class="smallerheader">Paino : kg</td>
		<td><input type="text" class="tbflat" name="txtWeight" 
size="3" maxlength="3" value="<%=sWeight%>"></td>
	</tr>
	<tr>
		<td class="smallerheader">Hiusväri</td>
		<td class="smallertext">
		<select name="txtHaircolor" class="tbflat">

		<option selected></option>
		<option>Vaalea</option>
		<option>Ruskea</option>
		<option>Musta</option>
		<option>Harmaa</option>
		<option>Punainen</option>
		<option>Muu</option>
		
		</select>
		</td>
	</tr>
	<tr>
		<td class="smallerheader">Hiusten pituus</td>
		<td class="smallertext">
		<select name="txtHairlength" class="tbflat">

		<option selected>Kalju</option>
		<option>Armeija siili</option>
		<option>Lyhyt</option>
		<option>Keskipitkä</option>
		<option>Yli olkapäiden</option>

		</select>
		</td>
	</tr>
	<tr>
		<td class="smallerheader">Hiusmalli</td>
		<td class="smallertext">
		<select name="txtHairtype" class="tbflat">

		<option selected>Afro</option>
		<option>Kiharat</option>
		<option>Suorat</option>
		<option>Aaltoilevat</option>

		</select>
		</td>
	</tr>
	<tr>
		<td class="smallerheader">Ruumiinrakenne</td>
		<td class="smallertext">
		<select name="txtPhysique" class="tbflat">

		<option selected>Urheilullinen</option>
		<option>Normaali</option>
		<option>Lihaksikas</option>
		<option>Hoikka</option>
		<option>Tukeva</option>

		</select>
		</td>
	</tr>
	<tr>
		<td class="smallerheader">Silmien väri</td>
		<td class="smallertext">
		<select name="txtEyecolor" class="tbflat">

		<option selected>Siniset</option>
		<option>Harmaat</option>
		<option>Vihreät</option>
		<option>Ruskeat</option>
		
		</select>
		</td>
	</tr>
	<tr><td><br><br><font 
color="#614a92"><b><u>Kielitaidot:</u></b></font><br></td>
	<td>&nbsp</td></tr>
	<tr>
		<td class="smallerheader">Äidinkieli</td>
		<td class="smallertext">
		<select name="txtMothertongue" class="tbflat">

		<option selected>Arabia</option>
		<option>Kiina</option>
		<option>Tanska</option>
		<option>Suomi</option>
		<option>Englanti</option>
		<option>Ranska</option>
		<option>Italia</option>
		<option>Japani</option>
		<option>Saksa</option>
		<option>Norja</option>
		<option>Persia</option>
		<option>Venäjä</option>
		<option>Espanja</option>
		<option>Ruotsi</option>
		<option>Turkki</option>
		<option>Muu</option>
		
		</select>
		</td>
	</tr>
	<tr>
		<td class="smallerheader">Muut kielet:</td>
		<td><input type="text" class="tbflat" 
name="txtMothertongue2" value="<%=sMothertongue2%>"></td>
	</tr>
	<tr><td><br><br><font 
color="#614a92"><b><u>Auto:</u></b></font><br></td>
	<td>&nbsp</td></tr>
	<tr>
		<td class="smallerheader">Merkki:</td>
		<td><input type="text" class="tbflat" name="txtCarMake" 
value="<%=sCarMake%>"></td>
	</tr>
	<tr>
		<td class="smallerheader">Malli:</td>
		<td><input type="text" class="tbflat" name="txtCarModel" 
value="<%=sCarModel%>"></td>
	</tr>
	<tr>
		<td class="smallerheader">Väri:</td>
		<td><input type="text" class="tbflat" name="txtCarColor" 
value="<%=sCarColor%>"></td>
	</tr>
	<tr>
		<td class="smallerheader">Muu ajoneuvo:</td>
		<td><input type="text" class="tbflat" name="txtVehicle" 
value="<%=sVehicle%>"></td>
	</tr>
	<tr><td><br><br><font color="#614a92"><b><u>Erikoistaidot ja 
piirteet:</u></b></font><br></td>
	<td>&nbsp</td></tr>
	<tr>
		<td class="smallerheader">Muut taidot:</td>
		<td><input type="text" class="tbflat" name="txtSkills" 
value="<%=sSkills%>"></td>
	</tr>
	<tr>
		<td class="smallerheader">Henkilökohtaiset piirteet:</td>
		<td><input type="text" class="tbflat" name="txtUnique" 
value="<%=sUnique%>"></td>
	</tr>
	<tr>
		<td class="smallerheader">Kommentit:</td>
		<td><input type="text" class="tbflat" name="txtComments" 
value="<%=sComments%>"></td>
	</tr>
	<tr>
	<tr>
	<td></td>
		<td><input type="submit" name="cmdSave" value=" Save " 
class="cmdflat"></td>
	</tr>
</table>
</form>
<br><br>			
<!--#include virtual="/dev/_footer.asp"-->

<%	
	end sub

	if request("cmdsave") <> "" then
		'New values Submitted
		sUserName = request("txtUserName")
		sEMail = request("txtEmail")
		sFirstName = request("txtFirstName")
		sLastName = request("txtLastName")
		sGender = request("txtGender")
		sAge = request("txtAge")
		sPhone = request("txtPhone")
		if request.cookies("devUserName") <> "" then
			sRemember = " checked"
		end if
		sAddress = request("txtaddress")
		sCity = request("txtCity")
		sPostalcode = request("txtPostalcode")
		sEmername = request("txtEmername")
		sEmerphone = request("txtEmerphone")
		sHeight = request("txtHeight")
		sWeight = request("txtWeight")
		sHaircolor = request("txtHaircolor")
		sHairlength = request("txtHairlength")
		sHairtype = request("txtHairtype")
		sPhysique = request("txtPhysique")
		sEyecolor = request("txtEyecolor")
		sMothertongue = request("txtMothertongue")
		sMothertongue2 = request("txtMothertongue2")
		sCarMake = request("txtCarMake")		
		sCarModel = request("txtCarModel")
		sCarColor = request("txtCarColor")		
		sVehicle = request("txtVehicle")
		sSkills = request("txtSkills")
		sUnique = request("txtUnique")
		sComments = request("txtComments")
		
		OpenDB sConnUsers2
		
		sSQL = "SELECT * FROM Users WHERE UserName = '" & 
sUserName & "'"
		rs.Open sSQL,,,adCmdTable
		
		if not (rs.bof or rs.eof) then
			sErr = "User name '" & sUserName & "' 
käyttäjätunnus on jo olemassa. Valitse toinen."
			bErr = True
		end if

		if sUserName = "" then
			sErr = "Syötä käyttäjätunnus."
			bErr = True
		end if
		
		if len(sEmail) < 6 then
			sErr = "Syötä oikea sähköpostiosoite."
			bErr = True
		end if
		
		if (instr(sEmail, "@") = 0) or (instr(sEmail,".")=0) then
			sErr = "Syötä oikea sähköpostiosoite."
			bErr = True
		end if
		
		if sFirstName = "" then
			sErr = "Syötä etunimesi."
			bErr = True
		end if

		if sAddress = "" then
			sErr = "Syötä osoitteesi."
			bErr = True
		end if

		if sCity = "" then
			sErr = "Syötä kaupunki."
			bErr = True
		end if

		if sPostalcode = "" then
			sErr = "Syötä postinumero."
			bErr = True
		end if

		if sWeight = "" then
			sErr = "Syötä painosi."
			bErr = True
		end if
		
		if bErr then
			ShowProfile sErr
		else
		
			randomize time
			for iTemp = 1 to 10
				iChar = 97 + (rnd * 25)
				sPassword = sPassword & chr(iChar)
			next

			rs.AddNew
			rs("UserName") = sUserName
			rs("Password") = sPassword
			rs("Email") = sEmail
			rs("FirstName") = sFirstName
			rs("LastName") = sLastName
			rs("Gender") = sGender
			rs("Age") = sAge
			rs("Phone")= sPhone
			rs("Address") = sAddress
			rs("City") = sCity
			rs("Postalcode") = sPostalcode
			rs("CreateDate") = Date
			rs("Emername") = sEmername
			rs("Emerphone") = sEmerphone
			rs("Height") = sHeight
			rs("Weight") = sWeight
			rs("Haircolor") = sHaircolor
			rs("Hairlength") = sHairlength
			rs("Hairtype") = sHairtype
			rs("Physique") = sPhysique
			rs("Eyecolor") = sEyecolor
			rs("Mothertongue") = sMothertongue
			rs("Mothertongue2") = sMothertongue2
			rs("CarMake") = sCarMake
			rs("CarModel") = sCarModel
			rs("CarColor") = sCarColor
			rs("Vehicle") = sVehicle
			rs("Skills") = sSkills	
			rs("Unique") = sUnique
			rs("Comments") = sComments	
			rs.update
			
			
			sSubject = "Kirjautumistiedot"
			sBody = "Tämä sähköposti on lähetetty koska 
rekisteröidyit DreamCatcher sivuille" & vbcrlf & vbcrlf
			sBody = sBody & "Voit vaihtaa salasanasi 
kirjautumalla sisään ja muokkaamalla profiiliasi." & vbcrlf & vbcrlf
			sBody = sBody & "Käyttäjätunnus: " & sUserName & 
vbcrlf
			sBody = sBody & "Salasana: " & sPassword & vbcrlf 
& vbcrlf
			sBody = sBody & "Siirry 
http://www.dreamcatcher.fi/dev/servies/login_fin.asp sivulle 
kirjautumaan." & vbcrlf
			
			SendMail sEmail, sSubject, sBody, sFirstName


		%>
		<br><br>
		Saat kohta sähköpostin jossa on salasanasi.
		<br><br>
		Voit <a href="login_fin.asp">Kirjautua palveluun tästä.</>
		
		
		<!--#include virtual="/dev/_footer.asp"-->
		<%
		end if
		
	else
	
		sRemember = " checked"

		ShowProfile ""

end if
	
%>