15. juni 2002 - 17:19Der er
9 kommentarer og 1 løsning
Slette række..
Hej,
jeg sidder og kan ikke rigtigt kommer videre. Jeg har et textinput felt hvor brugeren skal angive det ID (en række) han gerne vil have slettet fra databasen.
Hvis brugeren ikke taster det rigtige ID-nr ind, dvs. et der ikke findes, så skal siden ikke gå ned :o)
Indtil videre er jeg kommet så langt:
strSlet = Request.Form("sletid")
if (Request.Form("sletid") <> "") then strSQL = "Delete from tblOpgave where ID = '" & Request.Form("slet") & "'" end if
Men det er vist ikke helt rigtigt i overensstemmelse med mine krav..
Skal virksomheder stå stærkere mod angreb og kunne udvikle sig, skal sikkerhed, drift og forretning tænkes sammen. Det er tanken bag Jysk IT’s ambition om at skabe en “sikker fremtid” for kunderne.
strSlet = Request.Form("sletid") if (Request.Form("sletid") <> "") then SQL = "Select * From tblOpgave where ID = '" & Request.Form("slet") & "'"" Set rs = Conn.Execute(SQL) if Not rs.EOF Then strSQL = "Delete from tblOpgave where ID = '" & Request.Form("slet") & "'" end if Else Response.Write "<script>window.close();</script>" End If
strSlet = Request.Form("sletid") if (Request.Form("sletid") <> "") then SQL = "Select * From tblOpgave where ID = '" & Request.Form("slet") & "'"" Set rs = Conn.Execute(SQL) if Not rs.EOF Then strSQL = "Delete from tblOpgave where ID = '" & Request.Form("slet") & "'" Else Response.Write "<script>window.close();</script>" end if End If
strSlet = Request.Form("sletid") if (Request.Form("strSlet") <> "") then SQL = "Select * From tblOpgave where ID = '" & Request.Form("strSlet") & "'"" Set rs = Conn.Execute(SQL) if Not rs.EOF Then strSQL = "Delete from tblOpgave where ID = '" & Request.Form("strSlet") & "'"
strSlet = Request.Form("sletid") If strSlet <> "" Then SQL = "SELECT * FROM tblOpgave WHERE ID = " & strSlet Set rs = Conn.Execute(SQL) If Not rs.EOF Then strSQL = "DELETE FROM tblOpgave WHERE ID = " & strSlet Else Response.Write "Posten findes allerede 1!!" End If End If
strSlet = Request.Form("sletid") If strSlet <> "" Then SQL = "SELECT * FROM tblOpgave WHERE ID = " & strSlet Set rs = Conn.Execute(SQL) If Not rs.EOF Then strSQL = "DELETE FROM tblOpgave WHERE ID = " & strSlet Set rs = Conn.Execute(strSQL) Else Response.Write "Posten findes allerede 1!!" End If End If
øhmm..har været lidt væk godt set torbemelander, men jeg synes da at du skrev at vinduet skulle lukkes. Så der et et script som lukker vinduet.
Synes godt om
Ny brugerNybegynder
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.
