Flytte fra en tabel til en anden
Jeg har en tabel: liste1 og kunne godt tænke mig en funktion (fx. et link ud for hver række i tabellen) som kan flytte data fra liste1 til tabellen liste1Slettet.....Hvordan gør jeg det?
Har følgende:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Tilmeld</title>
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<style type="text/css">
<!--
-->
</style><link rel="stylesheet" href="lister.css">
</head>
<body>
<%
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
'Her skal skal stien stå til din databas.mdb - er den placeret i sammen mappe som dette dokument skal det være som nedenfor, hvor database.mdb skal udskiftes med navnet på din database
OpenConn("db.mdb")
'udskift tabelnavn med navet på din tabel
strSQL = "Select * from liste1 Order By aftaleDato Desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, Conn, 1
top = rs.RecordCount
If top <> 0 then
MyArr = rs.GetRows()
end if
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
<strong><font style="font-size: 12px;">Dette er liste 1</font></strong>
<br>
<br>
<a href="liste1.asp">Retur til Liste 1 oprettelse</a><br>
<a href="default.asp">Retur til Hovedsiden</a>
<br>
<br>
<table cellspacing="0" cellpadding="0">
<tr>
<td class="Table" width="100"><strong>Område:</strong></td><td class="Table" width="100"><strong>Bygherre:</strong></td><td class="Table" width="100"><strong>Emne:</strong></td><td class="Table" width="100"><strong>Arkitekt:</strong></td><td class="Table" width="100"><strong>Entreprenør:</strong></td><td class="Table" width="100"><strong>Aftaledato:</strong></td><td class="Table" width="100"><strong>Tilmeldingsdato:</strong></td><td class="Table"> <strong>Slet</strong> </td>
</tr>
<%
If top <> 0 then
For i=0 to (top-1)
Response.Write "<tr><td class=""Table"" width=""100"">" & MyArr(1,i) & "</td><td class=""Table"" width=""100"">" & MyArr(2,i) & "</td><td class=""Table"" width=""100"">" & MyArr(3,i) & "</td><td class=""Table"" width=""100"">" & MyArr(4,i) & "</td><td class=""Table"" width=""100"">" & MyArr(5,i) & "</td><td class=""Table"" width=""100"">" & MyArr(6,i) & "</td><td class=""Table"" width=""100"">" & MyArr(7,i) & "</td><td class=""Table"" align=""center""><a href=slet.asp?sletID=" & MyArr(0,i) & ">X</a></td></tr>"
Next
End if
%>
</table>
</body>
</html>
Ville godt have et link ved siden af slettefunktionen som hed flyt.
