Flytte data fra en tabel til en anden+tilføj eflere data
Jeg har følgende som flytter data fra liste1 til liste2.Men vil gerne samtidig med at data flyttes, også indtaste nogle nye data!
Altså udfylde nogle flere inputfelter.
Hvordan gør jeg det?
Koden:
<%
IDrequest = Request.Querystring("tilmeldID")
dim conn
function OpenConn( DBName )
Set Conn = Server.CreateObject("ADODB.Connection")
ODBCpath = left(request.servervariables("PATH_TRANSLATED"), instrrev(request.servervariables("PATH_TRANSLATED"), "\"))
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ODBCpath & DBName
end function
OpenConn("../db.mdb")
' SQL sætning opbygges
strSQL = "Select * from liste1 where ID = " & IDrequest & ""
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, Conn, 1, 3
ID = rs("ID")
omr = rs("omr")
byg = rs("byg")
emne = rs("emne")
ark = rs("ark")
ent = rs("ent")
rs.delete
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
function OpenConn( DBName )
Set Conn = Server.CreateObject("ADODB.Connection")
ODBCpath = left(request.servervariables("PATH_TRANSLATED"), instrrev(request.servervariables("PATH_TRANSLATED"), "\"))
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ODBCpath & DBName
end function
OpenConn("../db.mdb")
' SQL sætning opbygges
strSQL = "Insert into liste2(ID,omr,byg,emne,ark,ent) values('"& ID &"','"& Replace(omr,"'","''") & "','"& Replace(byg,"'","''") & "','"& Replace(emne,"'","''") & "','"& Replace(ark,"'","''") & "','"& Replace(ent,"'","''") & "')"
' SQL sætning eksekveres
Conn.Execute(strSQL)
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
'udskift sideDuKomFra.asp med den side du kom fra
Response.Redirect "tilmeld1Dato.asp"
%>
Det jeg skal havet tilføjet er en tilmeldDato.
Håber i forstår.....
Fomse:-)
