Tak for de opløftende ord.
Mener du jeg skal paste HELE html-koden??
Jamen her er den så:
<% mode = Request("mode") %>
<% Response.Buffer = true %>
<head>
<title</title>
<base target="_self">
</head>
<%
navn = Request.Form("navn")
beskrivelse = Request.Form("beskrivelse")
billedeurl = "upload/" & Request.Form("url")
pris = Request.Form("pris")
kategori = Request.Form("kategori")
if Request.Form("mode") = "Gem" then
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("butik.mdb")
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
strSQL = "SELECT * from tilbud"
Set rs = myConn.Execute(strSQL)
strSQL = "INSERT INTO varer (navn,beskrivelse,billedeurl,pris,kategori) VALUES ('" & navn & "','" & beskrivelse & "','" & billedeurl & "','" & pris & "','" & kategori & "')"
Set rs = myConn.Execute(strSQL)
Response.Redirect "admin1.asp?mode=nyvarer&jaja=jaja"
end if
%>
<% if mode = "" then %>
<a href="admin1.asp?mode=nyvarer">Tryk her for at oprette en ny varer</a><br>
<a href="admin1.asp?mode=sletvarer">Tryk her for at slette en varer</a><br>
<% end if %>
<% if mode = "nyvarer" then %>
<head>
<title>(C)2000 Ethnoplanet.dk</title>
<base target="_self">
</head>
<% if mode = "nyvarer" AND Request("jaja")="jaja" then%>
<b>Du har nu oprettet en varer!</b>
<% end if %>
<form method="POST" action="admin1.asp">
<div align="center">
<center>
<table border="1" width="50%" cellpadding="0" cellspacing="0">
<tr>
<td width="50%">
<p align="left">Navn :</td>
<td width="50%"><input type="text" name="navn" size="20"></td>
</tr>
<tr>
<td width="50%">Beskrivelse :</td>
<td width="50%"><textarea rows="6" name="beskrivelse" cols="25"></textarea></td>
</tr>
<tr>
<td width="50%">Billede :</td>
<td width="50%"><input type="text" name="url" size="20" value=""></td>
</tr>
<tr>
<td width="50%">Pris :</td>
<td width="50%"><input type="text" name="pris" size="20"></td>
</tr>
<tr>
<td width="50%">Kategori :</td>
<td width="50%"><select size="1" name="kategori">
<option value="kategori1">Rituelle Urter</option>
<option value="kategori2">Stimulerende Urter</option>
<option value="kategori3">Naturlige Smartdrugs</option>
<option value="kategori4">Gør det selv sæt</option>
<option value="kategori5">The blandinger</option>
</select></td>
</tr>
<tr>
<td width="50%"><input type="submit" value="Gem" name="mode"></td>
<td width="50%"> </td>
</tr>
</table>
</center>
</div>
</form>
<% end if %>
<% if mode = "sletvarer" then %>
<%
strSQL = "SELECT * FROM varer"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("butik.mdb") & ";DriverId=25;FIL=MS Access"
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open strDSN
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
%>
<body bgcolor=DimGray >
<% if mode = "sletvarer" AND Request("slettet") = "ja" then %>
<h3> Varen er slettet fra databasen</h3><br>
<% end if %>
<% Do While Not rs.EOF %>
<Font face="Arial"><a href="admin1.asp?mode=sletvarer1&id=<%= rs("Id") %>">Slet</a><br><%= " " & "Varer :" & " " & rs("Navn") & "<br>" & "Beskrivelse : " & rs("beskrivelse")%></font><br><br>
</body>
<% rs.movenext
loop
else:
%> No users <%
end if %>
<% end if %>
<% if mode = "sletvarer1" then
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("butik.mdb") & ";DriverId=25;FIL=MS Access"
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Delete * FROM varer WHERE (Id = " & Request.QueryString("id") & ")"
rs.Open strSQL, myConn, 1, 3
Response.Redirect("admin1.asp?mode=sletvarer&slettet=ja")
end if %>
