variabel

<html>
<head>
<title>Mit dokument</title>
</head>
<%
dim besked
besked = hej
%>
<body>

<p><a href=\"test1.asp?besked=<%= besked %>\">Test1</a></p>
</body>
</html>

Hej nute

Jeg har en paging side hvor jeg lister nogle produkter op.
Ud for hvert produkt er der så et lille billede som link, til en side som sletter produktet fra db\'en.
Linien ser således ud:
Response.Write \"<td><a href=\'java script:void( confirmDelete( \"\"slet_produkt.asp?Id=\" & rs(\"Id\") & \"\"\", \"\"\" & rs(\"varebeskrivelse\") & \"\"\" ) );\'><div align=\"\"center\"\"><img src=\"\"../Images/slet1.gif\"\" width=\"\"15\"\" height=\"\"15\"\" border=\"\"0\"\"></div></a></td>\"

Som du kan se ligger der en confirm funktion, som du enda har hjulpet mig med.

Her er så den side som sletter produktet, men når jeg så har slettet det, vil jeg gerne tilbage til produktoversigten, men jeg skal jo have et id med. Hvordan gør jeg det..??
<html>
<head>
<title>Slet film</title>
<script language=\'JavaScript\'>
    function skift(){
        window.location.href=\'produkter.asp?id=<%=id%>\';
            }
        window.setTimeout(\'skift()\',2000);
</script>
</head>
<%

Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"../db/varer.mdb\")

SQLstmt = \"DELETE * from produkter where ID=\'\" & request.querystring(\"ID\") & \"\'\"
Set RS = myConn.execute(SQLstmt)
 
myConn.Close
%>
</html>

Som du kan se har jeg prøvet med noget javascript, men jeg kan ikke rigtig få id\'en med over.

du er jo nødt til å hente variabelen:

window.location.href=\'produkter.asp?id=<%= request.queryString(\"Id\") %>\';
           

Nu kommer jeg tilbage til produktoversigten, men med det id nummer som jeg lige har slettet.
Så derfor skal jeg have id\'en med fra varegruppen, så den viser de film som er tilbage i samme varegruppe.

jeg aner *ikke* hva du snakker om. \'varegruppe\', \'film\', \'produktoversikt\'...det er da fullstendig gresk for meg !! prøv å forklar på normal dansk uten bruk av referanse til kode...

OK det må du undskylde, jeg prøver at forklare på dansk ;-))

Her har jeg en asp side som lister nogle varegrupper op:
\"varegrupper.asp\"
<%
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"../db/varer.mdb\")

strSQL = \"SELECT * FROM varegrupper\"
set rs = myconn.execute(strSQL)


Do
    Id = rs(\"Id\")
    varegruppe = rs(\"varegruppenavn\")
   
    link = \"<a href=undergrupper.asp?Id=\" & rs(\"Id\") & \">\" & varegruppe & \"</a>\"

    Response.Write \"<li>\" & link & \"</li><br><br>\"

rs.MoveNext
Loop While Not rs.EOF
myconn.Close
Set myconn = Nothing

%>

Herefter har jeg denne side som lister undergrupperne op til hver varegruppe:
\"undergrupper.asp\"
<%

Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"../db/varer.mdb\")

strSQL = \"SELECT * FROM undergrupper where varegruppe=\" & Request.Querystring(\"Id\")
set rs = myconn.execute(strSQL)

If rs.eof then
      response.write \"<center>Der er ingen varer i denne\"
      response.write \"<br>varegruppe i øjeblikket</center>\"
      response.end
      Else
   
Do
    Id = rs(\"Id\")
    undergruppe = rs(\"undergruppenavn\")
   
   
    link = \"<a href=produkter.asp?Id=\" & rs(\"Id\") & \">\" & undergruppe & \"</a>\"

    Response.Write \"<li>\" & link & \"</li><br><br>\"
    Response.Write varegruppe
rs.MoveNext
Loop While Not rs.EOF
end if
myconn.Close
Set myconn = Nothing
%>

Herefter har jeg så denne side som lister alle produkterne op i den tilhørende undergruppe:
\"produkter.asp\"
<!-- #include file=\"../adovbs.inc\" -->
<html>
<head>
    <title>Produkter</title>
    <link rel=\"stylesheet\" type=\"text/css\" href=\"style/style.css\">
   
<body>
<span class =\"box\">
<script language=\"JavaScript\">
function myOpen(id) {
  myX = (screen.availWidth-350)/2;
  myY = (screen.availHeight-200)/2;
  myWin = window.open(\'produktbeskrivelse.asp?id=\' + id,\'popUp\',\'width=300,height=250,screenX=\'+myX+\',left=\'+myX+\',screenY=\'+myY+\',top=\'+myY);
}
</script>
<script language=\"JavaScript\">
  function confirmDelete( url, varebeskrivelse, linkid ){
  if( confirm(\"Vil du slette \" + varebeskrivelse + \" ?\" ) ){
      location.href=url;
  }
  }
</script>
<%
    linkid = Request.Querystring(\"Id\")
   
  Page = Trim(Request(\"page\"))
  If Page = \"\" Then Page = 1

  Set Con = Server.CreateObject(\"ADODB.Connection\")
  DBPath = \"DBQ=\" & server.mappath(\"../db/varer.mdb\")
  Con.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath

  Sql = \"SELECT * FROM produkter where undergruppe_id=\" & Request.Querystring(\"Id\")
   
  Set rs = Server.CreateObject(\"ADODB.Recordset\")
  rs.CursorType = adOpenStatic
   
  rs.PageSize = 3
  rs.Open(Sql), Con

    If rs.eof then
      response.write \"<center>Der er ingen varer i denne\"
      response.write \"<br>varegruppe i øjeblikket</center>\"
      response.end
      Else
   
  If Not rs.EOF Then
    rs.AbsolutePage = cINT(Page)
    rowCount = 0
  End If
color = \"FFFFFF\"

%>

<form name=\"form1\" method=\"post\" action=\"\">   
<table width=\"720\" border=\"1\" cellspacing=\"0\" cellpadding=\"0\" align=\"center\" bordercolor=\"#003366\" height=\"96\">
  <tr>
    <td>
        <table width=\"737\" border=\"0\" cellspacing=\"0\" cellpadding=\"3\" align=\"center\">
          <tr bgcolor=\"#003366\">
            <td colspan=\"10\"><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\" color=\"#FFFFFF\"><%= color %><%= undergruppe %></font></td>
          </tr>
          <tr bgcolor=\"#FFFFFF\">
            <td colspan=\"3\">
              <%
tmpFrom  = ( ( CInt( Page ) - 1 ) * rs.PageSize ) + 1
tmpTo    = Page * rs.PageSize
tmpTotal = rs.RecordCount
if tmpTotal <= tmpTo then
response.write \"<font face=\"\"Verdana, Arial, Helvetica, sans-serif\"\" size=\"\"1\"\" color=\"\"#003366\"\">Viser \" & tmpFrom & \" til \" & tmpTotal & \" af ialt \" & tmpTotal & \"</font><br>\"
else
response.write \"<font face=\"\"Verdana, Arial, Helvetica, sans-serif\"\" size=\"\"1\"\" color=\"\"#003366\"\">Viser \" & tmpFrom & \" til \" & tmpTo & \" af ialt \" & tmpTotal & \"</font><br>\"
end if
%>
            </td>
            <td colspan=\"7\">
              <div align=\"right\">
                <%         
if( CInt( Page ) > 1 ) then
  response.write \"<a href=\"\"produkter.asp?page=\" & ( CInt(page) - 1 )& \"&Id=\" & Request.Querystring(\"Id\") & \"\"\"><font face=\"\"Verdana, Arial, Helvetica, sans-serif\"\" size=\"\"1\"\" color=\"\"#003366\"\"><<</font></a>&nbsp;\"
end if
If rs.PageCount <> 1 Then
  For i = 1 to rs.PageCount
    if( i = CInt( Page ) ) then
      response.write \"<b><font face=\"\"Verdana, Arial, Helvetica, sans-serif\"\" size=\"\"1\"\" color=\"\"#003366\"\">\" & i & \"</font></b>&nbsp;\"
    else
      response.write \"<a href=\"\"produkter.asp?page=\" & i & \"&Id=\" & Request.Querystring(\"Id\") & \"\"\"><font face=\"\"Verdana, Arial, Helvetica, sans-serif\"\" size=\"\"1\"\" color=\"\"#003366\"\">\"& i &\"</font></a>&nbsp;\"
    end if
  Next
End If

if( CInt( Page ) < rs.PageCount ) then
  response.write \"<a href=\"\"produkter.asp?page=\" & ( CInt(page) + 1 )& \"&Id=\" & Request.Querystring(\"Id\") & \"\"\"><font face=\"\"Verdana, Arial, Helvetica, sans-serif\"\" size=\"\"1\"\" color=\"\"#003366\"\">>></font></a>&nbsp;\"
end if
%>
              </div>
            </td>
          </tr>
          <tr bgcolor=\"#CCCCCC\">
            <td width=\"46\">Varenr</td>
            <td width=\"226\">Beskrivelse</td>
            <td width=\"65\"><div align=\"center\">Leverandør</div></td>
            <td width=\"66\"><div align=\"right\">Indkøbspris excl. moms</div></td>
            <td width=\"78\"><div align=\"right\">Forhandlerpris excl. moms</div></td>
            <td width=\"70\"><div align=\"right\">Udsalsgpris incl. moms</div></td>
            <td width=\"26\"><div align=\"center\">Info</div></td>
            <td width=\"32\"><div align=\"center\">Redig.</div></td>
            <td width=\"23\"><div align=\"center\">Slet</div></td>
            <td width=\"45\"><div align=\"center\">M&aelig;rker</div></td></tr>
          <%
While Not rs.EOF and rowCount < rs.PageSize
    Response.Write \"<tr bgcolor= \"\"\" & color & \"\"\"><td>\"
    Response.Write rs(\"Varenr\")
    Response.Write \"</td>\"
    Response.Write \"<td>\"
    Response.Write rs(\"varebeskrivelse\")
    Response.Write \"</font></td>\"
    Response.Write \"<td><div align=\"\"center\"\">\"
    Response.Write rs(\"leverandoer\")
    Response.Write \"</font></div></td>\"
    Response.Write \"<td><div align=\"\"right\"\">\"
    Response.Write formatnumber(rs(\"indkoebspris_excl_moms\"),2)
    Response.Write \"</div></font></td>\"
    Response.Write \"<td><div align=\"\"right\"\">\"
    Response.Write formatnumber(rs(\"Forhandlerpris_excl_moms\"),2)
    Response.Write \"</div></font></td>\"
    Response.Write \"<td><div align=\"\"right\"\">\"
    Response.Write formatnumber(rs(\"udsalgspris_incl_moms\"),2)
    Response.Write \"</div></font></td>\"
    Response.Write \"<td><a href=\'java script:myOpen(\"& rs(\"Id\") &\");\'><div align=\"\"center\"\"><img src=\"\"../Images/info.gif\"\" width=\"\"15\"\" height=\"\"15\"\" border=\"\"0\"\"></div></a></td>\"
    Response.Write \"<td><a href=\'Rediger_film.asp?Id=\" & rs(\"Id\") &\"\'><div align=\"\"center\"\"><img src=\"\"../Images/rediger.gif\"\" width=\"\"15\"\" height=\"\"15\"\" border=\"\"0\"\"></div></a></td>\"
    Response.Write \"<td><a href=\'java script:void( confirmDelete( \"\"slet_produkt.asp?Id=\" & rs(\"Id\") & \"\"\", \"\"\" & rs(\"varebeskrivelse\") & \"\"\" ) );\'><div align=\"\"center\"\"><img src=\"\"../Images/slet1.gif\"\" width=\"\"15\"\" height=\"\"15\"\" border=\"\"0\"\"></div></a></td>\"
    Response.Write \"<td><div align=\"\"center\"\"><input type=\"\"checkbox\"\" name=\"\"checkbox\"\" value=\"\"checkbox\"\"></div>\"
    Response.Write \"</td></tr>\"
        If color = \"FFFFFF\" Then
          color = \"C0CDE2\"
        Else
        color = \"FFFFFF\"
        End if
  rowCount = rowCount + 1
  rs.Movenext
Wend


%>
          <tr bgcolor=\"#999999\">
            <td bgcolor=\"#CCCCCC\" colspan=\"3\">
              <%
if tmpTotal <= tmpTo then
response.write \"<font face=\"\"Verdana, Arial, Helvetica, sans-serif\"\" size=\"\"1\"\" color=\"\"#003366\"\">Viser \" & tmpFrom & \" til \" & tmpTotal & \" af ialt \" & tmpTotal & \"</font><br>\"
else
response.write \"<font face=\"\"Verdana, Arial, Helvetica, sans-serif\"\" size=\"\"1\"\" color=\"\"#003366\"\">Viser \" & tmpFrom & \" til \" & tmpTo & \" af ialt \" & tmpTotal & \"</font><br>\"
end if
%>
            </td>
            <td bgcolor=\"#CCCCCC\" colspan=\"7\">
              <div align=\"right\">
                <%         
if( CInt( Page ) > 1 ) then
  response.write \"<a href=\"\"produkter.asp?page=\" & ( CInt(page) - 1 )& \"&Id=\" & Request.Querystring(\"Id\") & \"\"\"><font face=\"\"Verdana, Arial, Helvetica, sans-serif\"\" size=\"\"1\"\" color=\"\"#003366\"\"><<</font></a>&nbsp;\"
end if
If rs.PageCount <> 1 Then
  For i = 1 to rs.PageCount
    if( i = CInt( Page ) ) then
      response.write \"<b><font face=\"\"Verdana, Arial, Helvetica, sans-serif\"\" size=\"\"1\"\" color=\"\"#003366\"\">\" & i & \"</font></b>&nbsp;\"
    else
      response.write \"<a href=\"\"produkter.asp?page=\" & i & \"&Id=\" & Request.Querystring(\"Id\") & \"\"\"><font face=\"\"Verdana, Arial, Helvetica, sans-serif\"\" size=\"\"1\"\" color=\"\"#003366\"\">\"& i &\"</font></a>&nbsp;\"
    end if
  Next
End If

if( CInt( Page ) < rs.PageCount ) then
  response.write \"<a href=\"\"produkter.asp?page=\" & ( CInt(page) + 1 )& \"&Id=\" & Request.Querystring(\"Id\") & \"\"\"><font face=\"\"Verdana, Arial, Helvetica, sans-serif\"\" size=\"\"1\"\" color=\"\"#003366\"\">>></font></a>&nbsp;\"
end if
End If
%>
              </div>
            </td>
          </tr>
        </table>
    </td>
  </tr>
</table>

<table width=\"720\" border=\"0\" cellspacing=\"0\" cellpadding=\"2\" align=\"center\">
    <tr>
      <td>
        <div align=\"right\">
          <input type=\"submit\" name=\"Submit\" value=\"Slet alle m&aelig;rkeret\">
        </div>
      </td>
    </tr>
  </table>
</form>
</span>
</body>
</html>

Når man så trykker på dette link i \"produkter.asp\"
Response.Write \"<td><a href=\'java script:void( confirmDelete( \"\"slet_produkt.asp?Id=\" & rs(\"Id\") & \"\"\", \"\"\" & rs(\"varebeskrivelse\") & \"\"\" ) );\'><div align=\"\"center\"\"><img src=\"\"../Images/slet1.gif\"\" width=\"\"15\"\" height=\"\"15\"\" border=\"\"0\"\"></div></a></td>\"

sletter den posten i db\'en, hvorefter jeg skal tilbage til \"produkter.asp\"

Jeg håder det er til at forstå

//Mekaniker

du er jo nødt til å sende over parametere i denne link:

Response.Write \"<td><a href=\'java script:void( confirmDelete( \"\"slet_produkt.asp?Id=\" & rs(\"Id\") & \"\"\", \"\"\" & rs(\"varebeskrivelse\") & \"\"\" ) );\'><div align=\"\"center\"\"><img src=\"\"../Images/slet1.gif\"\" width=\"\"15\"\" height=\"\"15\"\" border=\"\"0\"\"></div></a></td>\"

som forteller hvilken side du er på. for å finne ut det, kikk i din adresselinje...alle parametre skal overføres til slet_produkt.asp.

du har jo ikke postet den ene side som faktisk er viktig...nemlig slet_produkt.asp...

Den er her:

<html>
<head>
<title>Slet Produkt</title>
<script language=\'JavaScript\'>
    function skift(){
        window.location.href=\'produkter.asp?id=<%= request.queryString(\"Id\") %>\';
            }
        window.setTimeout(\'skift()\',2000);
</script>
</head>
<%

Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"../db/varer.mdb\")

id = request.querystring(\"ID\")
SQLstmt = \"DELETE * from produkter where ID=\" & id
Set RS = myConn.execute(SQLstmt)
 
myConn.Close
%>
</html>

jeg fatter ikke hvorfor du har et javascript inne på din side...


<%

Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"../db/varer.mdb\")

id = request.querystring(\"ID\")
SQLstmt = \"DELETE * from produkter where ID=\" & id
Set RS = myConn.execute(SQLstmt)
 
myConn.Close
response.redirect \"produkter.asp?id=\" & id
%>
<html>
<body>
</body>
</html>

Det var nu fordi jeg fik at vide at det var måden at gøre det på, men jeg vil også hellere bruge asp.
Og jeg kan godt se hvor du vil hen med
response.redirect \"produkter.asp?id=\" & id
Det virker også næsten. Jeg kommer da tilbage til produkter.asp, men med den forkerte id.
Det er som om den kommer tilbage med den id jeg lige har slettet.
For jeg har lavet en fejlbeskrivelse, hvis der ingen poster er i db\'en, og selv om der er flere poster i db\'en og jeg kune sletter 1, skriver den den ingen poster er.
//Mekaniker

Hej nute, du får pointne for din indstats, men jeg tror jeg må lave det på en anden måde som jeg selv kan finde ud af, ellers vender jeg tilbage.
tak for indsatsen.

//Mekaniker