Hvad gør jeg forkert her?
Jeg har en liste1 hvor jeg gerne vil flyte data'erne til liste2 samtidig med jeg vil tilføje flere date.Jeg gør flg.:
tilmeldliste1Dato.asp:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>Untitled</title>
<style type="text/css">
<!--
-->
</style><link rel="stylesheet" href="../lister.css">
</head>
<body>
<%
IDrequest = Request.Querystring("tilmeldID")
' først connecter du til db (skriv din connection streng osv. her
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 database.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")
' så strukturer vi vores SQL
strSQL = "Select * from liste1 where ID = " & IDrequest & ""
Set rs = conn.Execute(strSQL)
'og så udskriver vi tingene i vores form
%>
<form method="post" action="tilmeldliste1-Dato.asp?ID=<%= rs("ID") %>">
<input type="text" name="omr" size="14" value="<%= rs("omr") %>"><br>
<input type="text" name="byg" size="14" value="<%= rs("byg") %>"><br>
<input type="text" name="emne" size="14" value="<%= rs("emne") %>"><br>
<input type="text" name="ark" size="14" value="<%= rs("ark") %>"><br>
<input type="text" name="ent" size="14" value="<%= rs("ent") %>"><br>
Tilmeldingsdato: <input type="text" name="tilmeldliste-1-Dato" size="14"><br>
<input type="submit" value="Opret" class="Button"> <input type="reset" value="Nulstil" class="Button">
</form>
</body>
</html>
tilmeldliste1-Dato.asp:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<title>Untitled</title>
</head>
<style type="text/css">
<!--
-->
</style><link rel="stylesheet" href="../lister.css">
<body>
<%
On Error Resume Next
if request.servervariables("request_method") = "POST" then
' der er submittet..
dim conn, strConn
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath(".")+"../db.mdb"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open strConn
omr = request.form("omr")
byg = request.form("byg")
emne = request.form("emne")
ark = request.form("ark")
ent = request.form("ent")
tilmeldDato = request.form("tilmeldliste-1-Dato")
strSQL = "Insert into liste2(omr,byg,emne,ark,ent,tilmeldDato) values('"& Replace(omr,"'","''") & "','"& Replace(byg,"'","''") & "','"& Replace(emne,"'","''") & "','"& Replace(ark,"'","''") & "','"& Replace(ent,"'","''") & "', '"&tilmeldDato&"')"
SQLslet = "DELETE * FROM liste1 WHERE ID=" & Request("ID")
Conn.Execute(strSQL, SQLslet)
Else
Response.write("")
End If
If Err.Number <> 0 Then
Response.redirect "fejl.asp"
Else
response.redirect "tak.asp"
end if
%>
</body>
</html>
Men jeg kan ikke få skidtet til at virke!!
Kan nogen hjælpe mig?
Fomse:-)
