Hvordan hentes ID på post som lige er tilføjet til db?
HejJeg har lavet en asp side hvor man kan tilføje en vare til en tabel i en database. Nu vil jeg gerne have en side hvor man efterfølgende kan tilføje nogle foto til den vare, som man lige har oprettet. Mit problem er nu at jeg ikke ved hvordan jeg skal få tilføjet stien til fotoet i rækken med den nyoprettede vare, for jeg kender jo ikke varens id.
Så hvordan får jeg fat i varens id lige efter varen er blevet oprettet (og dermed id'et)? Er der en anden måde at oprette en vare og tilføje et foto på der er bedre?
::::Min kode til tilføj vare 1::::
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Tilføj vare 1</title>
<Link Rel="stylesheet" href="datronic.css" Type="text/css" >
<!-- JavaScript funktion til at omdanne tekst links til knappe links -->
<script language="JavaScript">
<!--
function MM_goToURL() { //v3.0
var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
//-->
</script>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><style type="text/css">
<!--
body {
margin-left: 4px;
margin-top: 0px;
}
.style1 {color: #FFFFFF}
.style2 {color: #FF0000}
-->
</style></head>
<body>
<br>
<table width="490" border="0" align="left">
<!--Hovedtabel start-->
<tr>
<td height="18" valign="middle" bgcolor="#545DB9"><span class="style1">Opret ny vare i Netbutikken</span></td>
</tr>
<tr valign="top">
<td colspan="2"><div align="center" class="style2">Vigtigt - Alle felter skal udfyldes ellers oprettes varen ikke!</div></td>
</tr>
<tr>
<td><!-- Formular til tilføjning af vare -->
<form method="POST" action="tilfoej_vare2.asp">
<table border=0 cellspacing=0 cellpadding=0 width="475" align=left><!--Indholdstabelstart-->
<tr valign="top">
<td width="60">Kategori:</td>
<td height="10"><select name="kategori">
<!-- Database forbindelse til at udskrive af kategorier -->
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM kategori ORDER BY kategoriId"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("shop1.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
Do until rs.EOF = True
Response.Write "<option value='" & rs("kategoriId") & "'>" & rs("kategoriNavn") & vbCrLf
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
%>
</select>
<br></td>
</tr>
<tr valign="top">
<td width="60">Titel:</td>
<td height="10"><input type="text" name="titel" size="60" value="Titel..">
<br>
</td>
</tr>
<tr valign="top">
<td width="60">Fakta/Beskrivelse:</td>
<td height="140"><textarea name="beskriv" rows="8" cols="40" wrap="VIRTUAL">
Skriv beskrivelse her...</textarea></td>
</tr>
<br>
<br>
<tr valign="top">
<td width="60">Pris:</td>
<td height="10"><input type="text" name="pris" size="60" value="Pris..">
<br>
</td>
</tr>
<tr valign="top">
<td width="60">Model:</td>
<td height="10"><input type="text" name="model" size="60" value="Model..">
<br>
</td>
</tr>
<tr valign="top">
<td width="60">Producent:</td>
<td height="10"><input type="text" name="producent" size="60" value="Producent..">
<br>
</td>
</tr>
<tr valign="top">
<td width="60">Vægt:</td>
<td height="10"><input type="text" name="vaegt" size="60" value="Vaegt..">
<br>
</td>
</tr>
<tr valign="top">
<td width="60"></td>
<td height="5"><input type="Submit" value="Gem vare" name="send">
<input type="Reset" value="Fortryd">
<input type="button" value="Tilbage til forsiden" name="Annuller" onClick="java script:location.href='adm_4231.asp'">
</td>
</tr></table></form>
</tr></td></table>
</body>
</html>
::::slut::::
::::Min kode til tilføj vare 2::::
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Tilføj vare 2</title>
</head>
<body>
<%
' Update funktion
' Sender resultaterne fra tilføj vare til databasen
' Database connection
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("shop1.mdb")
SQL = "INSERT INTO vare (kategoriId,titel,beskriv,pris,model,producent,vaegt)" ' SQL sætning der insætter en ny række i db
SQL = SQL & " VALUES ('" & request.form("kategori") & "','" & request.form("titel") & "','" & replace(request.form("beskriv"),"'","''") & "','" & request.form("pris") & "','" & request.form("model") & "','" & request.form("producent") & "','" & request.form("vaegt") & "')"
response.write sql ' skriver i db
Conn.Execute (SQL)
conn.Close 'luk db
Set conn = nothing
Set SQL = nothing
' Sender brugeren tilbage til links når databasen er opdateret
response.redirect ("adm_forside.htm")
%>
</body>
</html>
::::Slut::::
Håber nogen kan hjælpe mig, selvom spørgsmålet er lidt kryptisk!
/Annette
