ASP Og sletning fra database...
Men denne her kode:<!--#include file="header.asp" -->
<%
'Her åbnes en connection til databasen
tempConn = "PROVIDER=MSDASQL; DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("usersdata.mdb") & ";UID=admin;PWD=;"
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open tempConn
%>
<% 'Her hentes informationerne til siden
klan = "Ugletårnet"
'Her åbnes databasen over nyheder
usersSQL = "SELECT * FROM users WHERE (ID=" & stedid & ");"
Set users = server.CreateObject("ADODB.Recordset")
users.Open usersSQL, tempConn, 1, 3
users("sted") = klan
users.Update
%>
<%
s = Request.QueryString("s")
id = Request.QueryString("id")
i = Request.QueryString("i")
til = Request.QueryString("til")
%>
<TABLE cellSpacing=0 cellPadding=0 width=750 border=0>
<TBODY>
<TR>
<TD vAlign=top width=125
background="billeder/nav_bgNEW.jpg"><IMG
src="billeder/nav_topNEW.jpg" width="120" height="28"><font face="verdana" color="#dddddd"><br>
<P><FONT face=Verdana>
<!--#include file="menu_1.asp" -->
<BR>
<br>
</FONT></P>
</font></TD>
<TD vAlign=top width=525>
<P> </P>
<div align="center"><b><font size="3" face="Verdana">UgleTårnet<br>
<br>
</font></b>
<table width="442" border="1" cellspacing="0" height="42" bordercolor="#333333" cellpadding="0">
<tr>
<td valign="top" height="11" colspan="4">
<div align="center"><b><a href="uglepost.asp?s=postkassen">Postkassen</a>
- <a href="uglepost.asp?s=skriv">Skrivebordet</a> - <a href="brugerlisten.asp">Brugerlisten</a>
- <a href="uglepost.asp">Tårnet</a><br>
<font color="#000000">-- </font></b></div>
</td>
</tr>
<%
Set ConnT = Server.CreateObject("ADODB.Connection")
DSNT = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("ugledata.mdb")
ConnT.Open DSNT
SQLT = "Select count(id) as poster from posts where til = '" & nvn & "'"
rsT = ConnT.Execute(SQLT)
If rsT("poster") => 45 AND er = "Lærer" OR rsT("poster") => 35 AND er = "Elev" Then
%>
<tr>
<td valign="top" height="11" colspan="4">
<div align="center">
<font color="#FF0000"><b>Du har <%=rsT("poster")%> ugler. Man må max. have <%If er = "Lærer" Then
ant = "50"
Else
ant = "40"
End If%><%=ant%> ugler!</b></font>
</div>
</td>
</tr>
<%
End If
%>
<% if s = "" then %>
<tr><td><div align="center"> <b>Velkommen til UgleTårnet</b><br>
Dette er UgleTårnet - og her kan du sende UglePost!<br>
Husk at slette dine unødvendige breve!<br>
<br>
<b>Version 1.0<br>
<br>
</b><br>
Skulle du finde en fejl så smid et brev til <a href="http://www.potter-info.dk/hogwartsonline/uglepost.asp?s=skriv&til=Nicolair">Nicolair</a></font></div>
</td>
<% end if %>
<% if s = "postkassen" then %>
<% tilnavn = nvn %>
<%
'Her åbnes en connection til databasen
tempConn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("ugledata.mdb") & ";UID=admin;PWD=;"
%>
<%
'Her åbnes databasen over nyheder
usSQL = "SELECT * FROM posts where til = '" & tilnavn & "' ORDER BY id DESC;"
Set us = server.CreateObject("ADODB.Recordset")
us.Open usSQL, tempConn, 1, 3
%>
<% do while not us.EOF %>
<tr><td><div align="center"><a href="uglepost.asp?s=les&id=<%=us("id")%>"><%=us("titel")%></a></div></td>
<td><div align="center"><a href="uglepost.asp?s=skriv&til=<%=us("fra")%>"><%=us("fra")%></a></div></td><td><div align="center"><%=us("dato")%></div></td><td><div align="center"><img src="billeder/uglepost/<%=us("tp")%>/<%=us("status")%>.jpg"></div></td><td><div align="center"><a href="uglepost.asp?s=slet&i=<%=us("id")%>">Slet</a></div></td></tr>
<% us.MoveNext %>
<% loop %>
<% us.Close %>
<% end if %>
<% if s = "les" then %>
<% tilnavn = nvn %>
<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("ugledata.mdb")
If Request.QueryString("id") <> "" Then
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM posts WHERE (ID = " & Request.QueryString("id") & ")"
rs.Open strSQL, myConn, 1, 3
If Not (rs.BOF Or rs.EOF) Then
Response.write ""
tilnavn2 = rs("til")
rs.update
rs.Close
myConn.Close
Set rs = Nothing
Set myConn = Nothing
End If
End If
%>
<% if tilnavn = tilnavn2 then %>
<tr><td><div align="center">
<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("ugledata.mdb")
If Request.QueryString("id") <> "" Then
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM posts WHERE (ID = " & Request.QueryString("id") & ")"
rs.Open strSQL, myConn, 1, 3
If Not (rs.BOF Or rs.EOF) Then
Response.write "<b>" & rs("titel") & "</b><br>[ Fra: " & rs("fra") & " ] - [ Dato: " & rs("dato") & " ]"
If rsT("poster") => 45 AND er = "lærer" OR rsT("poster") => 35 AND er = "elev" Then
Response.Write " - [ ID: " & rs("id") & " ]"
End If
Response.Write "<br><img src=billeder/uglepost/" & rs("tp") & "/" & rs("status") & ".jpg><br>" & replace(rs("text"), VbNewline,"<BR>") & "<br><br>"
If rs("fra") <> ".........." Then
Response.Write "<a href='uglepost.asp?s=skriv&til="&rs("fra")&"&t="&rs("titel")&"'>Besvar</a>"
End If
rs.update
rs.Close
myConn.Close
Set rs = Nothing
Set myConn = Nothing
End If
End If
%><%
tempConn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("ugledata.mdb") & ";UID=admin;PWD=;"
%>
<% id = request.QueryString("id") %>
<% 'Her hentes informationerne til siden
status = "ok"
'Her åbnes databasen over nyheder
usersSQL = "SELECT * FROM posts WHERE (ID=" & id & ");"
Set users = Server.CreateObject("ADODB.Recordset")
users.Open usersSQL, tempConn, 1, 3
users("status") = status
users.Update
users.Close
%>
</div></td></tr>
<% else Response.Redirect("uglepost.asp?s=postkassen") %>
<font color="0000ff">Prøver du at læse andres post! FYHA skam dig :oP</font>
<% end if %>
<% end if %>
<% if s = "slet" then %>
<% tilnavn = nvn %>
<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("ugledata.mdb")
If Request.QueryString("i") <> "" Then
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM posts WHERE (ID = " & Request.QueryString("i") & ")"
rs.Open strSQL, myConn, 1, 3
If Not (rs.BOF Or rs.EOF) Then
Response.write ""
tilnavn2 = rs("til")
rs.update
rs.Close
myConn.Close
Set rs = Nothing
Set myConn = Nothing
End If
End If
%>
<% if tilnavn = tilnavn2 then %>
<tr><td><div align="center">
<%
'Her åbnes en connection til databasen
tempConn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("ugledata.mdb") & ";UID=admin;PWD=;"
%><%
'Her åbnes databasen over nyheder
newsSQL = "SELECT * FROM posts WHERE (ID=" & i & ");"
Set news = server.CreateObject("ADODB.Recordset")
news.Open newsSQL, tempConn, 1, 3
titel = news("titel")
news.Delete
%>
<meta http-equiv="refresh" content="0;URL=uglepost.asp?s=postkassen">
</div></td></tr>
<% else Response.Redirect("uglepost.asp?s=postkassen") %>
<font color="0000ff">Prøver du at slette andres post! puha skam dig MEGET :oP</font>
</div>
</td></tr>
<% end if %>
<% end if %>
<% if s = "skriv" then %>
<% til=Request("til") %>
<% if til="" then %>
<tr><td><div align="center">
<form name="form1" method="post" action="uglepost.asp?s=data">
<b>Skriv et brev:<br>
<br>
<br>
Overskrift:<br>
<input type="text" name="titel" value="">
<br>
<br>
Til:<br>
<br>
<select name="til">
<%
set Conn = Server.createobject("adodb.connection")
conn.Open "DBQ="& Server.MapPath(".") &"/usersdata.mdb; DefaultDir=DBQ="& Server.MapPath("/") &";Driver={Microsoft Access Driver (*.mdb)};"
set rs = Conn.Execute("select * from users ORDER BY username;")
Do until rs.eof
navn = rs("username")
%><option value='<%=navn%>'><%=navn%></option>
<% rs.movenext
loop
rs.close
set rs = nothing
%>
</select>
<br>
<br>
Type:<br>
<br>
<select name="tp" size="1">
<option>Normal</option>
<option>Skråler</option>
<%
If nvn = "EIHP" or nvn = "Nicolair" or nvn = "Yeah" or nvn = "Eco" Then
%><option value="Vigtig">Vigtig (Kun bruges af admins)</option><%
End If
%>
</select>
<% else %>
<% titel=Request("t") %>
<tr><td><div align="center">
<form name="form1" method="post" action="uglepost.asp?s=data">
<b>Skriv et brev:<br>
<br>
<br>
Overskrift:<br>
<input type="text" name="titel" value="RE : <%=titel%>">
<br>
<br>
Til:<br>
<br>
<input type="hidden" name="til" value="<%=til%>">
<%=til%>
<br>
<br>
Type:<br>
<br>
<select name="tp" size="1">
<option>Normal</option>
<option>Skråler</option>
<%
If nvn = "EIHP" or nvn = "Nicolair" or nvn = "Yeah" or nvn = "Eco" Then
%><option value="Vigtig">Vigtig (Kun bruges af admins)</option><%
End If
%>
</select>
<% end if %>
<br>
<input type="hidden" name="fra" value="<%=nvn%>">
<br>
Tekst: <br>
<textarea name="text" cols="35" rows="5"></textarea>
<br>
<br>
<input type="submit" name="Submit" value="Send">
</b>
</form>
</div></td></tr>
<% end if %>
<% if s = "data" then %>
<tr><td><div align="center">
<%
Set ConnT2 = Server.CreateObject("ADODB.Connection")
DSNT2 = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("ugledata.mdb")
ConnT2.Open DSNT2
SQLT2 = "Select count(id) as poster2 from posts where til = '" & Request.Form("til") & "'"
rsT2 = ConnT2.Execute(SQLT2)
Set ConnI = Server.CreateObject("ADODB.Connection")
DSNI = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("usersdata.mdb")
ConnI.Open DSNI
SQLI = "Select * from users where username = '" & Request.Form("til") & "'"
rsI = ConnI.Execute(SQLI)
If rsI("er") = "Lærer" Then
maxx = 50
Else
maxx = 40
End If
If rsT2("poster2") => maxx Then
%>
Du kan ikke sende en ugle til <%=Request.Form("til")%> da han/hun har <%=maxx%> eller flere ugler.<br><br><br><a href="uglepost.asp?s=postkassen">Tilbage</a>
<%
Else
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set myConn = Server.CreateObject("ADODB.Connection")
tempConn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("ugledata.mdb") & ";UID=admin;PWD=;"
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "Select * From posts"
rs.Open strSQL, tempConn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("titel") = Request.form("titel")
rs("text") = Request.form("text")
rs("fra") = Request.form("fra")
rs("til") = Request.form("til")
rs("tp") = Request.form("tp")
rs.update
%>
Du har nu sendt en ugle afsted til: <%=rs("til")%> <br>
<br>
<br><a href="uglepost.asp?s=postkassen">Tilbage</a>
</div></td></tr>
<%
End If
End If
%>
</table>
</div>
</TD>
<TD vAlign=top width=100
background="billeder/nav_bg2NEW.jpg">
<!--#include file="menu_2.asp" -->
<P></P>
</TD>
</TR>
</TBODY>
</TABLE>
<TABLE height=50 cellSpacing=0 cellPadding=0 width=750 border=0>
<TBODY>
<TR>
<TD vAlign=bottom align=middle
background="billeder/footerNEW.jpg">
<div align="center">Copyright 2001, 2002 HogwartsOnline - All Rights Reserved<BR>
Images, contents © Warner Bros., J.K. Rowling, and/or their respective
owners. </div>
</TD></TR></TBODY></TABLE><BR><BR></BODY></HTML>
Sletter jeg kun en af gang, når jeg skal slette mine uglepost... Hvordan laver man det, så man kan mærker en del af dem, og trykke slet mærkede i bunden?
