Automatisk næste nr.
HejNedenstående kode, et til et tilmeldingsystem, hvor man kan oprettet effekter til et auktionsfirma.
Når man opretter en effekt, giver man det et katalognr. dette katalognr. skal gerne bliver lidt automatisk, sådan at når man trykker SEND og den loader siden igen, så har den hentet det næste katalognr. automatisk. Hvordan gør jeg det..
<% mode = request("mode") %>
<% if mode = "" then %>
<body bgcolor="#FFFFFF" text="#000000" background="" bgproperties="fixed">
<form method="POST" action="?mode=gemnybil">
<b><font face="Arial" size="2">Opret effekter </font></b>
<table width="51%" border="1">
<tr>
</font>
</b>
</tr>
<tr>
<td width="28%"><font face="Arial" size="2"><b>Beskrivelse:</b></font></td>
<td width="72%">
<font face="Arial"><b>
<textarea name="beskrivelse" rows="5" cols="40"></textarea><font size="2">
</font></b></font>
</td>
</tr>
<tr>
<td width="28%"><font face="Arial" size="2"><b>Auktionsliste: </b></font> </td>
<td width="72%">
<font face="Arial"><b>
<select name="auktionsliste">
<%Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../db/auktion.mdb")
Conn.Open DSN%> <font face="Arial" size="2">
<% set rskunder = Conn.execute("SELECT * FROM liste")
do until rskunder.eof%>
<option value="<%Response.Write rskunder("id")%>"><%Response.Write rskunder("navn")%></option>
<%rskunder.movenext
loop
rskunder.Close
set rskunder = Nothing%>
</select><font size="2"> </font></font>
</td>
</tr>
<tr>
<td width="28%"> </td>
<td width="72%">
</td>
</tr>
<tr>
<td width="28%"><font face="Arial" size="2"><b>Katalog nr.:</b></font></td>
<td width="72%">
<font face="Arial"><b>
<input type="text" name="katalognr" size="21" value="0"><font size="2">
</font></b></font>
</td>
</tr>
</table>
<font face="Arial">
<b><font size="2">Har du et billede som du vil uploade til effekten?:<br>
Ja </font>
<INPUT NAME="billede" TYPE="RADIO" VALUE="Ja"><font size="2">
Nej </font>
<INPUT NAME="billede" TYPE="RADIO" VALUE="intet.jpg"><font size="2">
<br>
<br>
</font>
<input type="submit" value="Send" name="B1"><font size="2"> </font>
<input type="reset" value="Nulstil" name="B2"><font size="2"> </font></b>
</font>
</p>
</form><b><font face="Arial" size="2"><br>
<%else
end if %>
<%if mode = "gemnybil" then%>
<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../db/auktion.mdb")
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From salgsliste"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("beskrivelse") = Request.form("beskrivelse")
rs("billede") = Request.form("billede")
rs("liste") = Request.form("auktionsliste")
rs("katalognr") = Request.form("katalognr")
rs.Update
If Request.form("billede") = "Ja" Then
Response.Redirect("uploadbil1.asp?id=" & rs("id") & "")
End If
%> Effekten er nu gemt!<br>
</font></b>
<%Response.Redirect("tilfojsalgadmin.asp")%><% end if %>
