Hjælp til overførsel af id og tilhørende if sætning
HejJeg har følgende side hvor jeg enten henter et id (intTekstNr) fra en tabel på siden før, eller fra en tabel på selve side.
Nu er mit problem bare lige at det ikke virker.
Her er siden:
::::KODE::::
<!--#INCLUDE FILE="config.inc"-->
<!--#INCLUDE FILE="level2.inc"-->
<%
Dim Conn, DSN, sltid, strSQL, rs, intKategoriId, SQLstmt
Response.Buffer=True
%>
<!--#include file="dbconn.inc"--><!-- Database forbindelse oprettes via ekstern fil-->
<%
sltid = Request.Querystring("sltid")
If sltid <> "" Then
strSQL = "Delete From tekst Where tekstId = " & Request.Querystring("sltid")
Conn.Execute(strSQL)
Response.Redirect ("rediger_ukategori3.asp")
'Response.Redirect ("opdateret_ok.asp")
'Response.Write ("Den valgte tekst er nu slettet!")
Else
end if
%>
<html>
<head>
<title>TELE IT COMMUNICATION ApS</title>
<Link Rel="stylesheet" href="tele-it.css" Type="text/css" > <!-- link til ekstern style sheet -->
<style type="text/css">
<!--
.style1 {color: #FFFFFF}
body {
margin-left: 4px;
margin-top: 0px;
}
.style4 {color: #969696; font-weight: bold; }
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>
<body>
<br>
<table width="670" border="0"><!--Indholdstabel start-->
<tr>
<td height="18" align="left" valign="middle" bgcolor="969696"><span class="style1">Rediger / slet tekst</span></td>
</tr>
<tr>
<td align="left">Du her nu to muligheder...<br>
<span class="style4">1</span> Slet en tekst - klik på "slet"<br>
<span class="style4">2</span> Rediger en tekst - klik på "rediger" <br>
<br>
Tilbage til kategorioversigt - <a href="rediger_tekst2.asp" target="tekst">klik her...</a> </td>
</tr>
<tr>
<td></td>
</tr><tr><td><hr>
<!--</td></tr><br>
</table>-->
<%
response.buffer = true
if (intTekstNr = request.form("kategori1")) = "" then
intTekstNr = request.form("slet")
else intTekstNr = request.form("kategori1")
end if
strSQL = "SELECT * FROM tekst WHERE tekstNr = " & intTekstNr
Set rs = Conn.Execute(strSQL)
'Tjekker om der er noget i databasen
If rs.EOF Then
' Hvis der ikke er ingen tekster er i DB afsendes følgende meddelse.
Response.Write "<br><br><center><h1>Her er pt. ingen tekster!</h1></center><br><br>"
Else
' Men hvis DB ikke er tom, udskrives data.
Do While Not rs.EOF
' Oprettelse af tabel
Response.Write "<table border=0 cellspacing=0 cellpadding=0 width='660' align=center>"
Response.Write "<tr><td>"
' Udskriv Overskrift
Response.Write "<p>" & rs("overskrift")& "</p>"
Response.Write "</td></tr><tr><td>"
' Udskriv Indhold
Response.Write rs("indhold")
Response.Write "</td></tr><tr><td align='left'>"
%>
<table width="660" Heigth="20" border="0"><!--Knap-tabel-->
<tr>
<td width="80">
<form action="rediger_ukategori3.asp" method="get">
<!--Rediger knap -->
<input type="hidden" name="retid" value="<%=rs("tekstId")%>">
<input type="submit" value="Rediger">
</form>
</td>
<td width="405">
<form action="rediger_ukategori3.asp" method="get" name="slet">
<!--slet knap -->
<input type="hidden" name="sltid" value="<%=rs("tekstId")%>">
<input type="hidden" name="intTekstNr" value="<%=rs("tekstNr")%>">
<input type="submit" value="Slet">
</form>
</td>
</tr>
</table>
<%
' Afslutter den oprettede tabel
Response.Write "<hr></td></tr></table><br>"
' Gå til næste record i rs
rs.MoveNext
' Gå i loop indtil rs ikke indeholder flere records (= EOF)
Loop
End If
' Luk forbindelse fra dbconn.inc
Conn.Close
Set Conn = Nothing
%>
</td>
</tr>
</table>
<!--Hovedtabel slut-->
</body>
</html>
::::SLUT::::
Er der nogen der kan se hvad fejlen er? Jeg har en ide om at det er min ifsætning det er galt med, men ved ikke hvad der er galt.
Håber nogen kan hjælpe :o)
/Annette
