Notifikationer

Markér alle som læst Log ud

popstar Nybegynder

14. juli 2006 - 10:04 Der er 9 kommentarer og
1 løsning

Ønsker slette-knap i webformular

Hejsa

Jeg har nedenstående kode (bestilling af en playstation til børn) som er bundet op til en access fil med dataen - Kan man ud for hvert indlæg lave "et link / en knap", hvor brugerne kan slette indlægget.

---------------------------------------------------

<% response.buffer = true %>

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">

<title></title>

</head>
<body>

<table border="0" cellspacing="0" cellpadding="0" style="mso-cellspacing: 0cm; mso-padding-alt: 0cm 0cm 0cm 0cm" width="599">
<tr>
<td width="354" style="padding: 0cm">



 DS'
PlayStation 2 - Reservationslisten 
 
</td>
<td width="245" style="padding: 0cm">


<img border="0" src="menubg.gif" width="223" height="27" align="right"> 
 
<a href="tagwall.asp?mode=add">
Reserver
PlayStationen</a></td>
</tr>
</table>
<div class="MsoNormal" style="text-align: center; width: 612; height: 19" align="center">
 </div>
<div align="left">

<table border="0" cellpadding="0" cellspacing="0" width="48%">
<tr>
<td width="100%">
<% if Request.QueryString("mode")="" then %>
<hr align="left" width="600" color="#808080" noShade SIZE="1">

Rerservation 
 
PlayStationen er blevet reserveret
følgende dage:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("Tagwall.mdb")

strSQL = "SELECT * FROM Tagwall ORDER BY bestillingsdato DESC"
set rs = Conn.execute(strSQL)

SQL = "SELECT dateposted as bestillingsdato FROM adcontent ORDER BY dateposted DESC"

if rs.EOF then
Response.write " Der er pt. ingen der har skrevet på reservationslisten..."

else
Do Until rs.EOF%>

</td>
</tr>
</table>
</div>
<div align="left">
<table width="531">
<td width="525">
<table border="0" width="110%">
<tr>
<td width="84%" align="left" valign="top">

> Playstationen er bestil til den <%=RS("bestillingsdato")%>
 
> Af: <%=RS("forfatter")%>
<%RS.MoveNext
Loop
end if
Conn.Close
Set Conn = Nothing%> 
 


</td>
</tr>
</table>

<% elseif Request.QueryString("mode")="add" then %>

<form action="tagwall.asp?mode=save" method="POST">
Reserver
PlayStationen
<div align="left"><table border="0" cellpadding="2"
cellspacing="0" width="62%">
<tr>
<td align="right" width="42%">
Navn:
</td>
<td colspan="2" width="80%">

<input type="text" size="33"
name="Forfatter">
</td>
</tr>
<tr>
<td align="right" width="42%">

</td>
<td colspan="2" width="80%">

</td>
</tr>

<tr>
<td align="right" width="42%">
Dato:

</td>
<td colspan="2" width="80%">

<input type="text" size="12"
name="bestillingsdato" value="2005-XX-XX"> 
</td>
</tr>

<tr>
<td align="right" valign="top" width="42%">

</td>
<td valign="top" width="17%">

</td>
<td valign="top" width="83%">
</td>
</tr>
</table>
</div>         

 <input type="submit"
name="B1" value="Reserver"> 
 


</form>

<% elseif Request.QueryString("mode")="save" then %> <%
response.buffer = true

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("Tagwall.mdb") & ";UID=admin;PWD=;"

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From Tagwall"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

rs.AddNew
rs("Forfatter") = Request.form("Forfatter")
rs("bestillingsdato") = Request.form("bestillingsdato")
rs("Tekst") = Request.form("Tekst")
rs("Dato") = date()
rs.Update

rs.Close
Set rs = Nothing

Conn.Close
set Conn = Nothing
response.redirect "tagwall.asp"
%><%end if%>

</table>
</body>

Synes godt om

musicchart.dk Nybegynder

14. juli 2006 - 11:22 #1

Hmm... skal ALLE kunne slette ALLE indlæg?
Fordi hvad jeg lige kan se, så kan du ikke holde styr på hvem der har skrevet hvad - da der ikke er et bruger system.

Synes godt om

popstar Nybegynder

14. juli 2006 - 12:01 #2

Hej Musicchart.dk

Ja - alle skal kunne slette. Det er bare et internt system, så der vil ikke ske noget ved det...

Synes godt om

musicchart.dk Nybegynder

14. juli 2006 - 12:24 #3

Jeg aner ikke om dette virker, da jeg hverken kender dit sites struktur eller database:

<% response.buffer = true %>

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">

<title></title>

</head>
<body>
<%
if not request.QueryString("slet") = "" then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("Tagwall.mdb") & ";UID=admin;PWD=;"

strSQL = "DELETE FROM Tagwall WHERE id = " & request.QueryString("slet")
Conn.Execute(strSQL)
end if
%>
<table border="0" cellspacing="0" cellpadding="0" style="mso-cellspacing: 0cm; mso-padding-alt: 0cm 0cm 0cm 0cm" width="599">
<tr>
<td width="354" style="padding: 0cm">



 DS'
PlayStation 2 - Reservationslisten 
 
</td>
<td width="245" style="padding: 0cm">


<img border="0" src="menubg.gif" width="223" height="27" align="right"> 
 
<a href="tagwall.asp?mode=add">
Reserver
PlayStationen</a></td>
</tr>
</table>
<div class="MsoNormal" style="text-align: center; width: 612; height: 19" align="center">
 </div>
<div align="left">

<table border="0" cellpadding="0" cellspacing="0" width="48%">
<tr>
<td width="100%">
<% if Request.QueryString("mode")="" then %>
<hr align="left" width="600" color="#808080" noShade SIZE="1">

Rerservation 
 
PlayStationen er blevet reserveret
følgende dage:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("Tagwall.mdb")

strSQL = "SELECT * FROM Tagwall ORDER BY bestillingsdato DESC"
set rs = Conn.execute(strSQL)

SQL = "SELECT dateposted as bestillingsdato FROM adcontent ORDER BY dateposted DESC"

if rs.EOF then
Response.write " Der er pt. ingen der har skrevet på reservationslisten..."

else
Do Until rs.EOF%>

</td>
</tr>
</table>
</div>
<div align="left">
<table width="531">
<td width="525">
<table border="0" width="110%">
<tr>
<td width="84%" align="left" valign="top">

> Playstationen er bestil til den <%=RS("bestillingsdato")%>
 
> Af: <%=RS("forfatter")%> 
<a href="<%response.Write(request.ServerVariables("URL") & "?slet=" & rs("id"))%>">SLET</a>
 
<%RS.MoveNext
Loop
end if
Conn.Close
Set Conn = Nothing%> 
 


</td>
</tr>
</table>

<% elseif Request.QueryString("mode")="add" then %>

<form action="tagwall.asp?mode=save" method="POST">
Reserver
PlayStationen
<div align="left"><table border="0" cellpadding="2"
cellspacing="0" width="62%">
<tr>
<td align="right" width="42%">
Navn:
</td>
<td colspan="2" width="80%">

<input type="text" size="33"
name="Forfatter">
</td>
</tr>
<tr>
<td align="right" width="42%">

</td>
<td colspan="2" width="80%">

</td>
</tr>

<tr>
<td align="right" width="42%">
Dato:

</td>
<td colspan="2" width="80%">

<input type="text" size="12"
name="bestillingsdato" value="2005-XX-XX"> 
</td>
</tr>

<tr>
<td align="right" valign="top" width="42%">

</td>
<td valign="top" width="17%">

</td>
<td valign="top" width="83%">
</td>
</tr>
</table>
</div>         

 <input type="submit"
name="B1" value="Reserver"> 
 


</form>

<% elseif Request.QueryString("mode")="save" then %> <%
response.buffer = true

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("Tagwall.mdb") & ";UID=admin;PWD=;"

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From Tagwall"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

rs.AddNew
rs("Forfatter") = Request.form("Forfatter")
rs("bestillingsdato") = Request.form("bestillingsdato")
rs("Tekst") = Request.form("Tekst")
rs("Dato") = date()
rs.Update

rs.Close
Set rs = Nothing

Conn.Close
set Conn = Nothing
response.redirect "tagwall.asp"
%><%end if%>

</table>
</body>

Synes godt om

musicchart.dk Nybegynder

14. juli 2006 - 12:25 #4

Hvis det virker, så manglede jeg en Conn.Close i toppen

Synes godt om

popstar Nybegynder

14. juli 2006 - 12:28 #5

Du er da for vild musicchart.dk! - KLASSE!! Det virker perfekt!

Tak mester!

Synes godt om

popstar Nybegynder

14. juli 2006 - 12:28 #6

Send mig lige et svar så du kan få pointene!

Synes godt om

popstar Nybegynder

14. juli 2006 - 12:32 #7

Kan du hurtig lave en "varslingboks" - som skriver - "Du er ved at slette et indlæg, vil du fortsætte?" Ja/Nej

.... eller er det for besværligt?

Synes godt om

musicchart.dk Nybegynder

14. juli 2006 - 12:36 #8

Jo da. Jeg har også sat den Conn.Close ind jeg manglede:

<% response.buffer = true %>

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">

<title></title>

</head>
<body>
<%
if not request.QueryString("slet") = "" then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("Tagwall.mdb") & ";UID=admin;PWD=;"

strSQL = "DELETE FROM Tagwall WHERE id = " & request.QueryString("slet")
Conn.Execute(strSQL)

Conn.Close
set Conn = Nothing
end if
%>
<table border="0" cellspacing="0" cellpadding="0" style="mso-cellspacing: 0cm; mso-padding-alt: 0cm 0cm 0cm 0cm" width="599">
<tr>
<td width="354" style="padding: 0cm">



 DS'
PlayStation 2 - Reservationslisten 
 
</td>
<td width="245" style="padding: 0cm">


<img border="0" src="menubg.gif" width="223" height="27" align="right"> 
 
<a href="tagwall.asp?mode=add">
Reserver
PlayStationen</a></td>
</tr>
</table>
<div class="MsoNormal" style="text-align: center; width: 612; height: 19" align="center">
 </div>
<div align="left">

<table border="0" cellpadding="0" cellspacing="0" width="48%">
<tr>
<td width="100%">
<% if Request.QueryString("mode")="" then %>
<hr align="left" width="600" color="#808080" noShade SIZE="1">

Rerservation 
 
PlayStationen er blevet reserveret
følgende dage:
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("Tagwall.mdb")

strSQL = "SELECT * FROM Tagwall ORDER BY bestillingsdato DESC"
set rs = Conn.execute(strSQL)

SQL = "SELECT dateposted as bestillingsdato FROM adcontent ORDER BY dateposted DESC"

if rs.EOF then
Response.write " Der er pt. ingen der har skrevet på reservationslisten..."

else
Do Until rs.EOF%>

</td>
</tr>
</table>
</div>
<div align="left">
<table width="531">
<td width="525">
<table border="0" width="110%">
<tr>
<td width="84%" align="left" valign="top">

> Playstationen er bestil til den <%=RS("bestillingsdato")%>
 
> Af: <%=RS("forfatter")%> 
<a href="<%response.Write(request.ServerVariables("URL") & "?slet=" & rs("id"))%>" onClick="return confirm('Du er ved at slette et indlæg, vil du fortsætte?');">SLET</a>
 
<%RS.MoveNext
Loop
end if
Conn.Close
Set Conn = Nothing%> 
 


</td>
</tr>
</table>

<% elseif Request.QueryString("mode")="add" then %>

<form action="tagwall.asp?mode=save" method="POST">
Reserver
PlayStationen
<div align="left"><table border="0" cellpadding="2"
cellspacing="0" width="62%">
<tr>
<td align="right" width="42%">
Navn:
</td>
<td colspan="2" width="80%">

<input type="text" size="33"
name="Forfatter">
</td>
</tr>
<tr>
<td align="right" width="42%">

</td>
<td colspan="2" width="80%">

</td>
</tr>

<tr>
<td align="right" width="42%">
Dato:

</td>
<td colspan="2" width="80%">

<input type="text" size="12"
name="bestillingsdato" value="2005-XX-XX"> 
</td>
</tr>

<tr>
<td align="right" valign="top" width="42%">

</td>
<td valign="top" width="17%">

</td>
<td valign="top" width="83%">
</td>
</tr>
</table>
</div>         

 <input type="submit"
name="B1" value="Reserver"> 
 


</form>

<% elseif Request.QueryString("mode")="save" then %> <%
response.buffer = true

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("Tagwall.mdb") & ";UID=admin;PWD=;"

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From Tagwall"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

rs.AddNew
rs("Forfatter") = Request.form("Forfatter")
rs("bestillingsdato") = Request.form("bestillingsdato")
rs("Tekst") = Request.form("Tekst")
rs("Dato") = date()
rs.Update

rs.Close
Set rs = Nothing

Conn.Close
set Conn = Nothing
response.redirect "tagwall.asp"
%><%end if%>

</table>
</body>

Synes godt om

popstar Nybegynder

14. juli 2006 - 12:38 #9

Du er genial! - Flot! - Tusind tak!!!

Synes godt om

musicchart.dk Nybegynder

14. juli 2006 - 12:40 #10

Det var da så lidt.

Tak for point :o)

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS