En fejl
Jeg har en url:\'http://www.xxx.dk/mail/MailEdit.asp?Action=Redigere&num=24546897985
Siden redirekter (åbner)så i et framset
Men problemet er at jeg igen laver en Dim mID
mID = request.querystring(\"num\")
og får så en fejl åp linje 49 :
MailingID =
nummeret mangler
<%
intnum = request.querystring(\"num\")
%>
<html>
<head>
<script type=\"text/javascript\">
function checkForFrames()
{
if (parent.location == \'http://www.xxxx.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();\">
<%
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
%>
