Hjælp til opret og opdaterings form
Jeg en opret og opdaterings form som jeg skal have lavet lidt om.Jeg har nogle relationer i min database som jeg ikke kan finde ud af at få sat ind i min form.
Opdaterings formen går ind i nogle tabeller og henter kategorier som opskriften er tilmeldt samt infomatoner om opskriften.
Jeg har tabellerne:
hojtider
emme
vare
kategori
Disse indeholder navne på kategorierne.
Så har jeg:
op2kategori
op2vare
op2emme
op2hoj
Disse har relationer til
hojtider
emme
vare
kategori
opskrifter
hojtider,emme,vare,kategori indeholder id på kategorierne som opskriften er tilmeldt og har felterne: opID, katID
opID er opskriftens id og katID er hvilken kategorier denne er tilmeldt.
nu kan jeg så bare ikke finde ud af at sammen sætte dette.
Jeg hvade denne opdaterings form før jeg fik lavet relationerne i databasen:
<!--#include virtual="connection.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%Dim Id
OpenDatabase
if Request("knap") = "" then
strSQL="SELECT * FROM opskrifter WHERE id= "&Request.Querystring("id")
Set rs = Conn.Execute(strSQL)
else
strSQL="UPDATE opskrifter SET navn='"&Request.QueryString("navn")&"', af='"&Request.QueryString("af")&"', in1='"&Request.QueryString("in1")&"', fremgang='"&Request.QueryString("fremgang")&"', tilbe='"&Request.QueryString("tilbe")&"', tid='"&Request.QueryString("tid")&"', personer="&Request.QueryString("personer")&" , hojtid='"&Request.QueryString("hojtid")&"' , vare='"&Request.QueryString("vare")&"' , emme='"&Request.QueryString("emme")&"' , kategori='"&Request.QueryString("kategori")&"' , godkendt="&Request.QueryString("godkendt")&" WHERE id= '"&Request.Querystring("id"')
Conn.Execute(strSQL)
response.buffer=true
response.clear
response.redirect "oversigt.asp"
response.end
end if
%>
<%if not rs.EOF then%>
<form method="GET" action="<%=request.servervariables("SCRIPT_NAME")%>">
<div align="center">
<table width="550" cellpadding="2" cellspacing="3" bgcolor="#CCCCCC" class="formadmin">
<tr>
<td width="266"><div align="center">Opskrift navn:<br>
<input name="navn" type="text" id="navn" value="<%=rs("navn")%>" maxlength="100">
</div></td>
<td width="265"><div align="center">Skrivet af:<br>
<input name="af" type="text" id="af" value="<%=rs("af")%>" maxlength="100">
</div></td>
</tr>
<tr>
<td width="266"><div align="center">Ingedienser:<br>
<textarea name="in1" id="in1"><%=rs("in1")%></textarea>
</div></td>
<td width="265"><div align="center">Fremgansmåde:<br>
<textarea name="fremgang" id="fremgang"><%=rs("fremgang")%></textarea>
</div></td>
</tr>
<tr>
<td><div align="center"> </div></td>
<td><div align="center">Tilbehør:<br>
<textarea name="tilbe" id="tilbe"><%=rs("tilbe")%></textarea>
</div></td>
</tr>
<tr>
<td width="266"><div align="center">Tilberedings tid:<br>
<input name="tid" type="text" id="tid" value="<%=rs("tid")%>" size="10" maxlength="10">
</div></td>
<td width="265"><div align="center">Antal personer:<br>
<input name="personer" type="text" id="personer" value="<%=rs("personer")%>" size="10" maxlength="10">
</div></td>
</tr>
<tr>
<td width="266"><div align="center"></div></td>
<td width="265"><div align="center"></div></td>
</tr>
<tr>
<td colspan="2"><div align="center"></div>
<div align="center">Tilføj til kategorier</div></td>
</tr>
<tr>
<td height="22" colspan="2"><div align="center">
<%
SQL = "select hojtid, hojtidnavn from kategorier order by hojtid"
set katrs = Conn.Execute(SQL)
Response.write "<select name=""hojtid"" id=""hojtid"" multiple>"
do while not katrs.EOF
response.write "<option value=""" & katrs("hojtid") & """"
if Cstr(rs("hojtid"))=Cstr(katrs("hojtid")) then response.write "selected"
response.write ">" & katrs("hojtidnavn") & "</option>"
katrs.Movenext
loop
response.write "</select>"
%>
<%
SQL = "select emme, emmenavn from kategori1 order by emme"
set katrs = Conn.Execute(SQL)
Response.write "<select name=""emme"" id=""emme"" multiple>"
do while not katrs.EOF
response.write "<option value=""" & katrs("emme") & """"
if Cstr(rs("emme"))=Cstr(katrs("emme")) then response.write "selected"
response.write ">" & katrs("emmenavn") & "</option>"
katrs.Movenext
loop
response.write "</select>"
%>
<%
SQL = "select kategoriid, kategori from kategori3 order by kategoriid"
set katrs = Conn.Execute(SQL)
Response.write "<select name=""kategori"" id=""kategori"" multiple>"
do while not katrs.EOF
response.write "<option value=""" & katrs("kategoriid") & """"
if Cstr(rs("kategori"))=Cstr(katrs("kategoriid")) then response.write "selected"
response.write ">" & katrs("kategori") & "</option>"
katrs.Movenext
loop
response.write "</select>"
%>
<%
SQL = "select vare, varenavn from kategori2 order by vare"
set katrs = Conn.Execute(SQL)
Response.write "<select name=""vare"" id=""vare"" multiple>"
do while not katrs.EOF
response.write "<option value=""" & katrs("vare") & """"
if Cstr(rs("vare"))=Cstr(katrs("vare")) then response.write "selected"
response.write ">" & katrs("varenavn") & "</option>"
katrs.Movenext
loop
response.write "</select>"
%>
</div>
<div align="center"></div></td>
</tr>
<tr>
<td height="22" colspan="2"><div align="center">Godkend opskrift?
Ja
<input name="godkendt" type="radio" value="true" <% if rs("godkendt") = true then response.Write "checked" %>>
Nej
<input name="godkendt" type="radio" value="false" <% if rs("godkendt") = false then response.Write "checked" %>>
</div></td>
</tr>
<tr>
<td height="27" colspan="2"> </td>
</tr>
<tr>
<td height="16" colspan="2"><div align="center"><font face="Verdana, Arial, Helvetica, sans-serif"><b>
</b></font></div>
<div align="center"></div></td>
</tr>
<tr>
<td width="266"><div align="center"></div></td>
<td width="265"><div align="center"></div></td>
</tr>
</table>
</div>
</center>
<input type="hidden" name="id" value="<%=rs("id")%>">
<p align="center">
<input type="submit" value="Ret" name="knap">
<input type="reset" value="Nulstil" name="B2">
</p>
<%end if%>
</form>
</body>
</html>
jeg håber der er en der kan og vil hjælpen med dette samt en opret form. Jeg har også den form som jeg brugte før til oprettelse af opskrifter.
