Det er et eksternt link så <a href
duer ikke nute.
Detaljere forklaring:
er sendet Mails til en masse i en nyhedsgruppe.
I denne mail er der 2 link:
Ønsker du at ændre din Email addresse kan du trykke på det her link:
www.xxxxx.dk/mail/MailEdit.asp?Action=Redigere&num=-60993STOP med at modtage dette nyhedsbrev. Klik her:
www.xxxxxxx.dk/mail/MailEdit.asp?Action=Slet&num=-6099Og det virker perfekt.
Siden MailEdit.asp ser sådan her ud:
<%
response.write(request.querystring(\"action\"))
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(\"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.</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
%>
Og det er og meget fint men jeg kunne godt tænke mig at denne side åbnet i det frameset resten af stedet gør....
Jeg har prøvet med det her:
<%
intnum = request.querystring(\"num\")
%>
<html>
<head>
<script type=\"text/javascript\">
function checkForFrames()
{
if (parent.location == \'
http://www.xxxxxx.dk/mail/MailEdit.asp?Action=Redigere&num=<%=intnum%>\') {
document.location.href=\'../default.asp?startside=mail/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();\">
Men så får jeg en fejl om at Request.Querystring(\"num\") er tom.
Ny bruger
Nybegynder
Opret
Preview
