Avatar billede plato Juniormester
24. august 2006 - 11:16 Der er 3 kommentarer og
1 løsning

Slet fra én tabel efter værdier er lagt over i en anden. ASP

Hejsa NG.

Når jeg tilføjer nogle nyheder til hjemmesiden, bliver de først lagt ind i en midlertidig tabel "nyhedtemp". Derefter trækkes de ud fra "nyhedtemp" og kan sendes online til tabellen "forumindlaeg".

Nu er midt spm, kan man gøre sådan at, når jeg lægger en nyhed online i "forumindlaeg" så slettes nyheden automatisk i "nyhedtemp"??

Her kommer min kode:
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("../db/****.mdb")   
if Request("forumid") <> "" AND Request("forumtopic") <> "" AND Request("emne") <> "" AND Request("indhold") <> "" AND Request("forfatter") <> "" AND Request("premiere") <> "" AND Request("kilde") <> "" AND Request("link") <> "" AND Request("pic") <> "" AND Request("linktarget") <> "" AND Request("anmeldtype") <> "" AND Request("online") <>  "" then


forumid = Request.Form("forumid")
forumtopic = Request.Form("forumtopic")
emne = Request.Form("emne")
indhold = Request.form("indhold")
forfatter = Request.form("forfatter")
premiere = Request.form("premiere")
kilde = Request.Form("kilde")
link = Request.Form("link")
pic = Request.Form("pic")
linktarget = Request.Form("linktarget")
anmeldtype = Request.Form("anmeldtype")
online = Request.Form("online")

Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from forumindlaeg"
rs.open sql, conn, 1, 3
   
rs.addnew
rs("forumid") = forumid
rs("forumtopic") = forumtopic
rs("emne") = emne
rs("indhold") = indhold
rs("forfatter") = forfatter
rs("premiere") = premiere
rs("kilde") = kilde
rs("link") = link
rs("pic") = pic
rs("linktarget") = linktarget
rs("anmeldtype") = anmeldtype
if online = online Then
rs("online") = True
else
rs("online") = False
end if

rs.update
rs.close
set rs = Nothing
Response.Write("Nyheden er sat ind!")
end if

Set rsGetNews = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM nyhedtemp WHERE id LIKE '" & Request.QueryString("id") & "'"
rsGetNews.open sql, conn, 1, 3
%>
<form>
Her kommer formfelterne, hvor værdierne udtrækkes fra nyhedtemp og sættes ind i forumindlaeg.
</form>
Avatar billede kiddoe Nybegynder
24. august 2006 - 20:41 #1
lav en
id = rsGetNews("id")
og sæt din ind i din form action - <form action="?id=<%=rsGetNews("id")%>" ....

og så

Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from forumindlaeg"
rs.open sql, conn, 1, 3
   
rs.addnew
rs("forumid") = forumid
rs("forumtopic") = forumtopic
rs("emne") = emne
rs("indhold") = indhold
rs("forfatter") = forfatter
rs("premiere") = premiere
rs("kilde") = kilde
rs("link") = link
rs("pic") = pic
rs("linktarget") = linktarget
rs("anmeldtype") = anmeldtype
if online = online Then
rs("online") = True
else
rs("online") = False
end if

rs.update
rs.close
set rs = Nothing
Set rsdel = Server.CreateObject("ADODB.RecordSet")
rsdel.Open "nyhedtemp where id = '" & Request.QueryString("id") & "'", conn, 3, 3
rsdel.delete
rsdel.close
set rsdel = Nothing
Response.write "Temp Nyhed er slettet<br>"
Response.Write("Nyheden er sat ind!")
end if
Avatar billede plato Juniormester
25. august 2006 - 11:31 #2
Når jeg får tid kigger jeg på det, og så hører du fra mig. :)
Avatar billede plato Juniormester
24. januar 2007 - 21:18 #3
Det virker. Gider du smide et svar.
Avatar billede kiddoe Nybegynder
24. januar 2007 - 23:13 #4
hej plato - ok et svar ;)
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester