Svær opgave.
Starten:Eksternt link: http://www.vipiil.dk/Databaser/test/MailEdit.asp?Action=Redigere&num=609931970 \"Num er en variabel\"
www.xxx.dk er lavet i frameset der skal ovennævnte åbne i framset:
Koden på MailEdit.asp er:
<%
intnum = request.querystring(\"num\")
%>
<html>
<head>
<script type=\"text/javascript\">
function checkForFrames()
{
if (parent.location == \'http://www.vipiil.dk/Databaser/test/MailEdit.asp?Action=Redigere&num=<%=intnum%>\') {
document.location.href=\'../../default.asp?startside=Databaser/test/MailEdit.asp&Action=Redigere&num=<%=intnum%>\';
}
}
</script>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 4.0\">
<meta name=\"ProgId\" content=\"FrontPage.Editor.Document\">
<title>MailEdit</title>
</head>
<body onLoad=\"checkForFrames();\">
Det virker perfekt....
Funktionen med linket er at i forbindelse med udsendelse af et nyhedsbrev skal modtagerne have mulighed for at ændre eller helt slette sig fra listen.
Dvs at alle emails i databasen har det her num.
Mit problem er hvordan jeg får sat den her kode ind i den ovennævnte.
<%
mAction = request.querystring(\"action\")
select case mAction
case \"Redigere\"
call Redigere()
case \"Slet\"
call Slet()
end select
Function Redigere()
Dim mID
mID = request.querystring(\"num\")
set conn=Server.CreateObject(\"ADODB.Connection\")
conn.Provider=\"Microsoft.Jet.OLEDB.4.0\"
conn.Open(Server.Mappath(\"../../Mail/SpawnedMailer.mdb\"))
set rsMEdit = Server.CreateObject(\"ADODB.recordset\")
If request.form.count = 0 then
rsMEdit.Open \"SELECT * FROM MailingList Where MailingID =\" & mID, conn
response.write(\"<center>Rediger din Email ved at skrive din nye Email herunder:<br><br><br><form method=\'post\' action=\'MailEdit.asp?Action=Redigere&num=\" & mID & \"\'>Mail ID:<br><input type=\'text\' name=\'mailingid\' readonly value=\'\" & rsMEdit(\"MailingID\") & \"\'><br><br>Oprettet mail:<br><input type=\'text\' name=\'mailingaddy\' value=\'\" & rsMEdit(\"MailingAddy\") & \"\'><br><br>Oprettet:<br><input type=\'text\' name=\'dateadded\' value=\'\" & rsMEdit(\"DateAdded\") & \"\'><br><br><input type=\'submit\' value=\'Redigere!\'></form></center>\")
else
rsMEdit.Open \"MailingList\", conn, 2, 2
rsMEdit(\"MailingAddy\") = Request.Form(\"mailingaddy\")
rsMEdit(\"DateAdded\") = Request.Form(\"dateadded\")
rsMEdit.Update
response.write(\"<center>Din Email er nu blevet ændret til: \" & rsMEdit(\"MailingAddy\") & \"</center>\")
end if
rsMEdit.close
conn.close
end function
Function Slet()
Dim dID
dID = request.querystring(\"num\")
dSQL = \"DELETE * FROM MailingList WHERE MailingID =\" & dID
set conn=Server.CreateObject(\"ADODB.Connection\")
conn.Provider=\"Microsoft.Jet.OLEDB.4.0\"
conn.Open(Server.Mappath(\"SpawnedMailer.mdb\"))
conn.Execute dSQL
conn.close
response.write(\"<center>Din Email er nu slettet.</center>\")
end function
%>
Jeg ved godt at jeg skal lave en side for redigere og en for slet, men nu viser jeg hele koden
Begge koder(sider) virker perfekt uafhængigt af hinanden..
Hjælp....
