Delete och select i samma

Javisst, separera dom med ";" bara.

strsql = "SELECT questiontableid FROM questiontable where headtableid ='"& vart1 "&'; DELETE from headtable where headtableid ='"& vart1 &"'; DELETE from questiontable where headtableid ='"& vart1 &"'; DELETE from responsetable where questiontableid ='"& vart2 &"';"

Så enkelt det kan vara ibland:)
Men hur gör jag då när selectens värde ska in i variabeln "vart2"?

strsql = "SELECT questiontableid FROM questiontable where headtableid ='"& vart1 "&'; DELETE from headtable where headtableid ='"& vart1 &"'; DELETE from questiontable where headtableid ='"& vart1 &"'; DELETE from responsetable where questiontableid ='"& vart2 &"';"

strsql = "SELECT questiontableid FROM questiontable where headtableid ='"& vart1 "&'; DELETE from headtable where headtableid ='"& vart1 &"'; DELETE from responsetable where questiontableid IN(SELECT questiontableid FROM questiontable where headtableid ='"& vart1 "&'); DELETE from questiontable where headtableid ='"& vart1 &"'; "

Jag bytte plats på dina två sista DELETE-satser, eftersom det hade blivit lite krångligt annars.

Redigering: Behöver du verkligen din första SELECT-fråga där förresten? Ska du använda ID:t till något annat än till DELETE-satsen?

Mvh,

Du kan sätta villkoret direkt i delete-satsen.

strsql = "DELETE from headtable where headtableid ='"& vart1 &"'; DELETE from responsetable where questiontableid in (SELECT questiontableid FROM questiontable where headtableid ='"& vart1 "&');DELETE from questiontable where headtableid ='"& vart1 &"'"

Jag ändrade på ordningen mellan dina delete-satser.

Vilka hjältar ni är!

Bara därför svänger jag iväg en snabbfråga.

behöver man stänga databasen om man använder denna?
Set rs = conn.Execute(strsql)

Tack å bock!

Databasen måste du alltid stänga, och skapar du ett recordset så skall det också stängas...

Så här ser hela koden ut, tar jag bort stängningen så här funkar den, inte annars.
vad gör jag för fel?

vart1 =request.querystring("id")

strconn = MM_forum_STRING

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open strconn

strsql = "DELETE from responsetable where questiontableid in (SELECT questiontableid FROM questiontable where headtableid ='"& vart1 &"');DELETE from questiontable where headtableid ='"& vart1 &"'; DELETE from headtable where headtableid ='"& vart1 &"'"

Set rs = conn.Execute(strsql)
response.redirect"admin.asp"

I och med att du gör execute på ett statement som inte returnerar några poster så får du ett tomt och stängt recordset tillbaka.

conn.Execute strsql,,128
conn.close
response.redirect"admin.asp"

Du kan utelämna tilldelningen av recordsetet.