Her er hele min kode......
<link rel="stylesheet" type="text/css" href="admin.css">
<%
' Database forbindelsen
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database/database.mdb")
' Variabel som checkker urlen
mode = request.Querystring("mode")
' Her chekkes urlen og hvis den er tom sker flg.
if mode = "" then
SQL = "SELECT * FROM Product"
set rs = Conn.execute(SQL)
if rs.EOF then
%>
<a href="ret.asp?mode=logaf">logaf</a>Der er Intet i db'en
<% else
%>
<a href="ret.asp?mode=logaf">logaf</a><br>
<table width="400" border="1">
<tr>
<td>
<b>ID1:</b></td>
<td><b>Serial:</b></td>
<td><b>Kategori:</b></td>
<td><b>Mærke:</b></td>
<td><b>Info_TXT:</b></td>
<td><b>Katalog:</b></td>
<td><b>Date:</b></td>
</tr>
<%
' Udfør SQL indtil enden af felt
Do Until rs.EOF
%>
<tr>
<td valign="top"><a href="?mode=ret&id1=<%=rs("id1")%>"><%=rs("id1")%></td>
<td valign="top"><%=rs("serial")%></td>
<td valign="top"><%=rs("kategori")%></td>
<td valign="top"><%=rs("mærke")%></td>
<td valign="top"><%=rs("info_txt")%></td>
<td valign="top">TOM FELT</td>
<td valign="top"><%=rs("Date")%></td>
</tr>
<%
' Løkken løbes igennem indtil vi når slutningen
rs.MoveNext
Loop
end if
end if
if mode = "ret" then %>
<form method="POST" action="?mode=ret2&id1=<%=Request.QueryString("id1")%>">
<table width="500" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database/database.mdb")
' Ny SQL sætning, hvor vi henter fra tabellen produkter hvor vores kriterier er at id1 = den streng vi har i vores URL
SQL = "Select * From Product where id1="& Request.QueryString("id1")
set rs = Conn.execute(SQL)
%>
Id1: </td>
<td><%=rs("id1")%></td>
</tr>
<tr>
<td>serial: </td>
<td><input type="text" size="10" name="serial" value="<%=rs("serial")%>"></td>
</tr>
<tr>
<td>Vælg kategori</td>
<td>
<%
' Ny SQL sætning
SQL1 = "SELECT * FROM kategori"
set RS1 = Conn.Execute(SQL1)
If Not RS1.EOF Then
%>
<select name="kategori">
<%
' Gør indtil vi når bunden af vores SQL
Do Until RS1.EOF
myID = rs1("id1")
myname = rs1("navn")
%>
<option value="<% = myname %>"><% = rs1("navn") %>
</option>
<%
RS1.MoveNext
Loop
%>
</select>
<% end If %>
</td>
</tr>
<tr>
<td>mærke:</td>
<td><input type="text" name=mærke size="10"><%=rs("mærke")%></textarea></td>
</tr>
<tr>
<td>info_txt:</td>
<td><textarea name=info_txt rows=10 cols=50><%=rs("info_txt")%></textarea></td>
</tr>
</table>
<br>
<br>
<form action="produkt_admin.asp" method="post">
<input type="hidden" name="mode" value="lavlink" />
<input type="text" name="filnavn" />
<input type="text" name="pic" />
<input type="submit" value="Send">
</form>
<% end if %>
<% if mode = "ret2" then %>
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From product where id1=" & Request.QueryString("id1")
rs.Open strSQL, Conn, 1, 3
rs("katalog") = "<a href=""/upload/katalog/" & Request.Form("filnavn") & """><img scr=""image/" & Request.Form("pic") & ".JPG"" border=""0""></a>"
rs("serial") = Request.form("serial")
rs("info_txt") = Request.form("info_txt")
rs("kategori") = Request.form("kategori")
rs("mærke") = Request.form("mærke")
rs("date") = Date()
rs.Update
%>
Rettet
<% end if %>
