HASTER-delete record

<a href='detalje.asp?ID=mode & <%Request.Querystring("ID")%>'><input type="BUTTON" onClick="return confirmDeleteCustumer()" value="Delete Contact"a>   

<a href='detalje.asp?mode=delete&ID=<%Request.Querystring("ID")%>'><input type="BUTTON" onClick="return confirmDeleteCustumer()" value="Delete Contact"a>

<% If Request.QueryString("mode") = "delete" Then
Query = "Delete FROM Kundetabel where ID = " & Request.Querystring("ID")
Connect.Execute  Query
Response.Redirect "showdball.asp"
End If  %>

<script>
function confirmDeleteCustumer(id) {
    var Message = "Er du sikker?\nDette vil slette kunden fra databasen.";

    if (!confirm (Message)) {   
        return false;
    }
    else{
        window.location.href = "fil_med_slette-script.asp?mode=delete&id=" + id
        return true;
    }
}   
</script>
<a href='detalje.asp?ID=mode & <%Request.Querystring("ID")%>'><input type="BUTTON" onClick="return confirmDeleteCustumer('" & <%Request.Querystring("ID")%> &"')" value="Delete Contact"a>

prøv med dette, jeg fik blandet det lidt sammen i overstående

<a href='detalje.asp?mode=delete&ID=<%Request.Querystring("ID")%>'><input type="BUTTON" onClick="return confirmDeleteCustumer()" value="Delete Contact"a>

<% If Request.QueryString("mode") = "delete" Then
Query = "Delete FROM Kundetabel where ID = " & Request.Querystring("ID")
Connect.Execute  Query
Response.Redirect "showdball.asp"
End If  %>

Det skulle virke

mhingeh - der virker ikke endnu..

<script>
function confirmDelete(id, mode) {
  if (!confirm (Er du sikker?\nDette vil slette kunden fra databasen)){   
location.replace('detalje.asp?mode=' + (mode) + '&id=' + (Id));
}
    else{
    }
}   
</script>

<input type="BUTTON" onClick="confirmDelete('<%Request.Querystring("ID")%>','<%Request.Querystring("MODE")%>')" value="Delete Contact">

prøv det :)

-grunken

hvad sker der når du trykker på knappen

det er javascriptet der er problemet, så mig og rune er tættest på :))

tror jeg *G*

virker din promt til yes og No

:)

grunken>> hmm..:

  if (!confirm (Er du sikker?\nDette vil slette kunden fra databasen)){   
location.replace('detalje.asp?mode=' + (mode) + '&id=' + (Id));
}
    else{
    }
}

ret irriterende??:) Er du sikker på at du vil slette? Nej? Okay så sletter jeg.:)

if (confirm ("Er du sikker?\nDette vil slette kunden fra databasen")){   
  location.replace('detalje.asp?mode=' + (mode) + '&id=' + (Id));
}

nej ingen promt.
Det kan godt være jeg blander tingene sammen. I bliver nødt til at skære tingene ud i pap og bøje det i neon...

<script>

if (confirm ("Er du sikker?\nDette vil slette kunden fra databasen")){   
  alert("Du trykkede på Ja!!!")
}

</script>

virker dette hvis du bare smide det i en html fil?

onclick="java script:confirmDelete('<%Request.Querystring("ID")%>');"

<SCRIPT>
function confirmDelete(id) {
    if (confirm("Er du sikker?\nDette vil slette kunden fra databasen.")){
        location.href="'detalje.asp?mode=delete&id=" + id + "";
    }
}
</SCRIPT>

den skriver udført men med fejl på siden.

rune - ja det virker.

hvis den virker så:

<script>
function confirmDeleteCustumer(c_id) {
  if (confirm ("Er du sikker?\nDette vil slette kunden fra databasen.")){
    window.location.replace('detalje.asp?mode=delete&id=' + c_id);
  }
}   
</script>

<a href='detalje.asp?ID=mode & <%Request.Querystring("ID")%>'><input type="BUTTON" onClick="return confirmDeleteCustumer('" & <%Request.Querystring("ID")%> &"')" value="Delete Contact"a>


--detalje.asp--

if request.querystring("mode") = "delete" then
Query = "Delete FROM Kundetabel where ID = " & Request.Querystring("ID")
Connect.Execute(query)
Response.Redirect "showdball.asp"
end if

mhinqeh-det er tæt på.
Den fejler efter tryk på JA.

HTTP-fejl 404
404 Blev ikke fundet
Web-serveren kan ikke finde den fil eller det script, du bad om. Kontroller URL-adressen for at sikre, at stinavnet er korrekt.

mcfly.asp>> Prøv at kigge på mit første svar....

rune-ligger al koden på samme side og umiddelbart efter hinanden?

jeg ved ikke hvordan du gør men du kan gøre sådan her:

-- detalje.asp start--

<%
if request.querystring("mode") = "delete" then
Query = "Delete FROM Kundetabel where ID = " & Request.Querystring("ID")
Connect.Execute(query)
Response.Redirect "showdball.asp"
end if
%>
<html>
<head>
</head>
<body>
<script language=JScript>

function confirmDeleteCustumer(c_id) {
  if (confirm ("Er du sikker?\nDette vil slette kunden fra databasen.")){
    window.location.href = "detalje.asp?mode=delete&id=" + c_id;
  }
}   
</script>

<a href='detalje.asp?ID=mode & <%Request.Querystring("ID")%>'><input type="BUTTON" onClick="return confirmDeleteCustumer('" & <%Request.Querystring("ID")%> &"')" value="Delete Contact"a>
</body>
</html>

-- detalje.asp end --

så står der udført men med fejl på siden.
Hov skal det a være der...value="Delete Contact"a>

-- detalje.asp start--

<%
if request.querystring("mode") = "delete" then
Query = "Delete FROM Kundetabel where ID = " & Request.Querystring("ID")
Connect.Execute(query)
Response.Redirect "showdball.asp"
end if
%>
<html>
<head>
</head>
<body>
<script language=JScript>

function confirmDeleteCustumer(c_id) {
  if (confirm ("Er du sikker?\nDette vil slette kunden fra databasen.")){
    window.location.href = "detalje.asp?mode=delete&id=" + c_id;
  }
}   
</script>

<a href='detalje.asp?ID=mode & <%Request.Querystring("ID")%>'><input type="BUTTON" onClick="confirmDeleteCustumer('" & <%Request.Querystring("ID")%> &"')" value="Delete Contact"a>
</body>
</html>

-- detalje.asp end --

nej der skal ikke være noget a

skal det ligge i den række følge, eller er det ligemeget ?

den fejler stadig...

det er lige meget da alt kode skrevet mellem <% og %> bliver udført på serveren før noget af html koden bliver udført; dvs posten er slettet før siden vises...

prøv at sende din kode til runech@mail.dk så kigger jeg lidt på den...synes jeg mangler lidt overblik over din kode

<a href='detalje.asp?ID=mode & <%Request.Querystring("ID")%>'><input type="BUTTON" onClick="confirmDeleteCustumer('" & <%Request.Querystring("ID")%> &"')" value="Delete Contact"a>

Der er fejl i dette

ja der er et a for meget til sidst....

<a href='detalje.asp?ID=mode&<%Request.Querystring("ID")%>'>

der må ikke være mellemrum i

den skriver stadig udført men med fejl på siden. MsgBoxen kommer ikke frem

også selvom der ikke er mellemrum :-(

i skal sgu have nogle flere point end de 60 for jere arbejde....

Henter du Id fra din database

Din detalje side, hvordan henter du posterne fra db

nej, det har jeg fået fra den foregående side Showdball.asp og har med over for at se en mere detaljeret information om den pågældende. Det er på denne side ( detalje.asp) jeg gerne vil have lavet dette.

Jeg henter data fra DB på denne måde
'Find KundeNR fra oversigten fra ShowDBAll.asp
id=Request.Querystring("ID")
   
'OLEDB connection uden brug af ODBC :-)
Dim Conn, dbPath
dbPath = Server.MapPath("../db/q.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath
Set RS=Conn.Execute("SELECT * FROM Kundetabel WHERE KundeNR=" & id )

detalje.asp og showdball.asp ligge i samme bibliotek..

prøv med dette
<%
If Request.QueryString("mode") = "delete" Then
idx = request("idx")

Query = "DELETE FROM Adresse WHERE ID=" & idx
Connect.Execute  Query
Response.Redirect "showdball.asp"
End If
%>
<SCRIPT>
function confirmDelete(id) {
    if (confirm("Er du sikker?\nDette vil slette kunden fra databasen.")){
        location.href="detalje.asp?mode=delete&idx=" + id + "";
    }
}
</SCRIPT>


<input type="BUTTON" onClick=java script:confirmDelete('<%=id%>');" value="Delete Contact">

den skriver stadig udført men med fejl på siden

hvilken fejl skriver den????

[gul trekant] Udført men med fejl på siden

YEEESSS jeg har endelig fået en der virker 100%....

?...godt..

din kode er MEGET rodet!!

Du blander nogle gange kundenr og id sammen - tror jeg!!??! Har du to koloner i din db der id og kundenr.

nej, id og kundenr er det samme.

<%@ LANGUAGE="VBSCRIPT"%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> Administration</TITLE>
<link REL="STYLESHEET" HREF="style.css" TYPE="text/css">
</HEAD>
<BODY BGCOLOR="#DCCDBC">

<script language=JScript>
function confirmDeleteCustumer(c_id) {
  if (confirm ("Er du sikker?\nDette vil slette kunden fra databasen.")){
    window.location.href = "default.asp?mode=delete&id=" + c_id;
  }
}
</script>

<a name="top"></a>

<%
'Find KundeNR fra oversigten fra ShowDBAll.asp
id=Request.Querystring("ID")

'OLEDB connection uden brug af ODBC :-)

Dim Conn, dbPath
dbPath = Server.MapPath("db.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath

if request.querystring("mode") = "delete" then
  conn.Execute("Delete FROM Kundetabel where kundenr = " & Request.Querystring("ID"))
  Response.Redirect "showdball.asp"
end if

Set RS=Conn.Execute("SELECT * FROM Kundetabel WHERE KundeNR=" & id )

'Henter serverens date + time i dag.
DATO=(date())
DATO=DATO+(time())
%>
<TABLE ALIGN=CENTER WIDTH=750 >
<TR><TD><CENTER><COLOR=C0B6C9><H2>Detailed information on
contacts</H2></COLOR></TABLE>
<TR><TD><CENTER><H4>Date&nbsp;<%Response.Write (Dato)%></H4></CENTER>
</TABLE>
<hr WIDTH=800><BR>

<TABLE WIDTH=700 ALIGN=CENTER BORDER=0 CELLSPACING=0><DIV ALIGN=CENTER>
<COLGROUP WIDTH=50 ALIGN=LEFT>
<COLGROUP WIDTH=200 ALIGN=LEFT>
<p>
<INPUT TYPE="checkbox" NAME="information"<% If RS("Information") Then Response.Write " CHECKED" %> value="ON">Please send me more information
about FACI
<p>
<INPUT TYPE="checkbox" NAME="updateme"<% If RS("Updateme") Then Response.Write(" CHECKED") %> value="ON">Please email me when you update
FACI-results
<p>
<th bgcolor=#DCCDBC align="left">
<tr>
<td><b>First Name: </b></th><td bgColor=#DCCDBC><% Response.write(RS("Firstname")) %></td>
</tr>
<tr>
<th bgcolor=#DCCDBC align="left">
Last Name: </th><td bgColor=#DCCDBC><% Response.Write(RS("Lastname"))%>
</td>
</tr>
<tr>
<th bgcolor=#DCCDBC align="left">
Address: </th><td bgColor=#DCCDBC><% Response.Write(RS("Address")) %>
</td>
</tr>
<tr>
<th bgcolor=#DCCDBC align="left">
Zipcode: </th><td bgColor=#DCCDBC><% Response.write(RS("Zipcode"))%>
</td>
</tr>
<tr>
<th bgcolor=#DCCDBC align="left">
City: </th><td bgColor=#DCCDBC><% Response.write(RS("City"))%></td>
</tr>
<tr>
<th bgcolor=#DCCDBC align="left">
State: </th><% Response.Write"<td bgColor=#DCCDBC>" & RS("State") & "</td>"
%>
</tr>
<tr>
<th bgcolor=#DCCDBC align="left">
Country: </th><td bgColor=#DCCDBC><% Response.write(RS("Country"))%>
</td>
</tr>
<tr>
<th bgcolor=#DCCDBC align="left">
Email: </th><% Response.Write"<td bgColor=#DCCDBC>" & RS("Email") & "</td>"
%>
</tr>
<th bgcolor=#DCCDBC align="left">
Dated: </th><% Response.Write"<td bgColor=#DCCDBC>" & RS("Dato") & "</td>"
%>
</tr>
<tr>
<td></td></tr>
<tr>
<th bgcolor=#DCCDBC align="left">
<% 'tmp = rs("comments") %>
Comments or questions:<td bgColor='#DCCDBC'><textarea cols='50' rows='10'><% Response.write(tmp)%></textarea>
</th>
</tr>
</table>

<input type="BUTTON" onClick="confirmDeleteCustumer('<% Response.write(Request.Querystring("ID"))%>')" value="Delete Contact">

<center><a href="showDBAll.asp">Return to prev.page</a></center>
</BODY>
</HTML>

okay så burde ovenstående virke

du laver også meget:

Response.write "<td>" & rs("name") & "</td>"

gør heller:

<td><%=rs("name")%></td>

eller

<td><% response.write rs("name")%></td>

Det var godt det kom til at virke :))))

det er vist TÆT på, men den redirecter ikke efter..

jeg får umiddelbart ingen fejl når siden loader, MsgBoxen kommer fint frem, men den kan ikke komme videre. Får en HTTP-fejl 404
404 Blev ikke fundet
Web-serveren kan ikke finde den fil eller det script, du bad om. Kontroller URL-adressen for at sikre, at stinavnet er korrekt.

ups...ændre default.asp til detaljer.asp i:

<script language=JScript>
function confirmDeleteCustumer(c_id) {
  if (confirm ("Er du sikker?\nDette vil slette kunden fra databasen.")){
    window.location.href = "default.asp?mode=delete&id=" + c_id;
  }
}
</script>

altså:

<script language=JScript>
function confirmDeleteCustumer(c_id) {
  if (confirm ("Er du sikker?\nDette vil slette kunden fra databasen.")){
    window.location.href = "detaljer.asp?mode=delete&id=" + c_id;
  }
}
</script>

du kan se mit resultat her:

http://rch.lir.dk:60/ip/showdball.asp

Jeg får følgende fejl

Response-objekt fejl 'ASP 0156 : 80004005'
Headerfejl
../detalje.asp, linje 35
HTTP-headerne skrives allerede til klientbrowseren. Ændringer af HTTP-headers skal foretages, inden sideindholdet skrives.

du er bare så sej...

hmm. det er response.redirect'en der er noget galt med så....
prøv lige at poste din kode

<%@ LANGUAGE="VBSCRIPT"%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> Administration</TITLE>
<link REL="STYLESHEET" HREF="style.css" TYPE="text/css">
</HEAD>
<BODY BGCOLOR="#DCCDBC">
<!-- #include file="protect.inc" -->

<script language=JScript>
function confirmDeleteCustumer(c_id) {
  if (confirm ("Er du sikker?\nDette vil slette kunden fra databasen.")){
    window.location.href = "detalje.asp?mode=delete&id=" + c_id;
  }
}
</script>
<a name="top"></a>

<%
'Find KundeNR fra oversigten fra ShowDBAll.asp
id=Request.Querystring("ID")

'OLEDB connection uden brug af ODBC :-)

Dim Conn, dbPath
dbPath = Server.MapPath("../db/q.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath

if request.querystring("mode") = "delete" then
  conn.Execute("Delete FROM Kundetabel where kundenr = " & Request.Querystring("ID"))
  Response.Redirect "showdball.asp"
end if

Set RS=Conn.Execute("SELECT * FROM Kundetabel WHERE KundeNR=" & id )

'Henter serverens date + time i dag.
DATO=(date())
DATO=DATO+(time())
%>
<TABLE ALIGN=CENTER WIDTH=750 >
<TR><TD><CENTER><COLOR=C0B6C9><H2>Detailed information on
contacts</H2></COLOR></TABLE>
<TR><TD><CENTER><H4>Date&nbsp;<%Response.Write (Dato)%></H4></CENTER>
</TABLE>
<hr WIDTH=800><BR>

<TABLE WIDTH=700 ALIGN=CENTER BORDER=0 CELLSPACING=0><DIV ALIGN=CENTER>
<COLGROUP WIDTH=50 ALIGN=LEFT>
<COLGROUP WIDTH=200 ALIGN=LEFT>
<p>
<INPUT TYPE="checkbox" NAME="information"<% If RS("Information") Then Response.Write " CHECKED" %> value="ON">Please send me more information
about FACI
<p>
<INPUT TYPE="checkbox" NAME="updateme"<% If RS("Updateme") Then Response.Write(" CHECKED") %> value="ON">Please email me when you update
FACI-results
<p>
<th bgcolor=#DCCDBC align="left">
<tr>
<td><b>First Name: </b></th><td bgColor=#DCCDBC><% Response.write(RS("Firstname")) %></td>
</tr>
<tr>
<th bgcolor=#DCCDBC align="left">
Last Name: </th><td bgColor=#DCCDBC><% Response.Write(RS("Lastname"))%>
</td>
</tr>
<tr>
<th bgcolor=#DCCDBC align="left">
Address: </th><td bgColor=#DCCDBC><% Response.Write(RS("Address")) %>
</td>
</tr>
<tr>
<th bgcolor=#DCCDBC align="left">
Zipcode: </th><td bgColor=#DCCDBC><% Response.write(RS("Zipcode"))%>
</td>
</tr>
<tr>
<th bgcolor=#DCCDBC align="left">
City: </th><td bgColor=#DCCDBC><% Response.write(RS("City"))%></td>
</tr>
<tr>
<th bgcolor=#DCCDBC align="left">
State: </th><% Response.Write"<td bgColor=#DCCDBC>" & RS("State") & "</td>"
%>
</tr>
<tr>
<th bgcolor=#DCCDBC align="left">
Country: </th><td bgColor=#DCCDBC><% Response.write(RS("Country"))%>
</td>
</tr>
<tr>
<th bgcolor=#DCCDBC align="left">
Email: </th><% Response.Write"<td bgColor=#DCCDBC>" & RS("Email") & "</td>"
%>
</tr>
<th bgcolor=#DCCDBC align="left">
Dated: </th><% Response.Write"<td bgColor=#DCCDBC>" & RS("Dato") & "</td>"
%>
</tr>
<tr>
<td></td></tr>
<tr>
<th bgcolor=#DCCDBC align="left">
<% tmp = rs("comments") %>
Comments or questions:<td bgColor='#DCCDBC'><textarea cols='50' rows='10'><% Response.write(tmp)%></textarea>
</th>
</tr>
</table>

<input type="BUTTON" onClick="confirmDeleteCustumer('<% Response.write(Request.Querystring("ID"))%>')" value="Delete Contact">

<center><a href="showDBAll.asp">Return to prev.page</a></center>
</BODY>
</HTML>

din

if request.querystring("mode") = "delete" then
  conn.Execute("Delete FROM Kundetabel where kundenr = " & Request.Querystring("ID"))
  Response.Redirect "showdball.asp"
end if

SKAL du skrive LIGE efter du åbner din db!! Hvis du laver en response.write før du din response.redirect virker det ikke

jeg har en protect.inc fil som har følgende indhold:
<%
If isEmpty(Session("UserID")) Then
    Response.Redirect("login.asp")
End If
%>

hmm... prøv at smide en response.end lige ind efter response.redirect

prøv at slette linien <!-- #include file="protect.inc" --> for at se om det gør en forskel

har det noget at sige her. Jeg er naturligvis logget ind og session er ikke tom

gør ingen forskel også når protect.inc er fjernet fra begge filer.

selv med response.end samme fejl

Dim Conn, dbPath
dbPath = Server.MapPath("../db/q.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath

if request.querystring("mode") = "delete" then
  conn.Execute("Delete FROM Kundetabel where kundenr = " & Request.Querystring("ID"))
  Response.Redirect "showdball.asp"
  Response.end
end if

Det var dette du mente ikke..

skriv lige efter <%@ LANGUAGE="VBSCRIPT"%>:

<% Response.buffer = true %>

YES DET VIRKER SGU..HOLD KÆFT HVOR ER JEG GLAD TUSINDE TAK FOR DIN (JERE) TÅLMODIGHED MED MIG. SUPER

Jeg vil gerne tildele nogle flere point til jer så jeg opretter lige et sprg. herinde til jer.

mingeh>> du var også på banen men ikke så meget som rune. Men tak for hjælpen.

response.redirect virker ikke hvis et html-tag sendes før den bliver udført. Sættes response.buffer så til true udføres alle responses før noget overhovedet bliver sendt til clienten...grunden til at det virkede på min maskine er nok at buffering som standard sat til true

ok, det er da værd at huske senere også. MANGE tak.

kig lige i kat. ASP rune så er der lidt flere point.
Spørgsmål:
Point til rune.
30 flere af slagsen.