hjælp til \"slet mail\"
Hej......jeg får en fejl i mit asp når jeg prøver at slette en mail.<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.Mappath(\"kunder.mdb\")
Set Conn2 = Server.CreateObject(\"ADODB.Connection\")
Conn2.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.Mappath(\"mails.mdb\")
%>
<html>
<head>
<title>MicroPage---------Design og Webhost-------</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
<link rel=\"stylesheet\" href=\"text.css\" type=\"text/css\">
<style type=\"text/css\">
.lort {background-color:#000000;color:#ffffff}
</style>
</head>
<body background=\"main1bg.gif\"bgcolor=\"#FFFFFF\" text=\"#000000\" leftmargin=\"0\" topmargin=\"0\">
<table width=\"100%\" border=\"0\">
<tr>
<td>
<div align=\"center\"><br>
<table width=\"60%\" border=\"0\" cellpadding=\"0\" cellspacing=\"0\">
<tr>
<td>
<table width=\"100%\" border=\"0\" cellpadding=\"0\" cellspacing=\"0\">
<tr>
<td colspan=\"2\" height=\"21\" valign=\"top\" bgcolor=\"#003399\"><img src=\"logo.gif\" width=\"686\" height=\"66\"></td>
</tr>
<td width=\"100\" height=\"21\" valign=\"top\" bgcolor=\"#003399\"><a href=\"main.asp\"><img src=\"nyheder.gif\" width=\"100\" height=\"21\" border=\"0\"></a><a href=\"design.asp\"><img src=\"design.gif\" width=\"100\" height=\"23\" border=\"0\"></a><a href=\"domain.asp\"><img src=\"webhotel.gif\" width=\"100\" height=\"23\" border=\"0\"></a><a href=\"reference.asp\"><img src=\"reference.gif\" width=\"100\" height=\"23\" border=\"0\"></a><a href=\"status.asp\"><img src=\"status.gif\" width=\"100\" height=\"22\" border=\"0\"></a><a href=\"kunde.asp\"><img src=\"kundeside.gif\" width=\"100\" height=\"23\" border=\"0\"></a><a href=\"kontakt.asp\"><img src=\"kontakt.gif\" width=\"100\" height=\"23\" border=\"0\"></a><br>
<table width=\"100%\" border=\"0\" cellpadding=\"0\" cellspacing=\"0\">
<tr>
<td><br>
<br>
<img src=\"test.gif\" width=\"100\" height=\"200\"></td>
</tr>
</table>
</td>
<td width=\"586\" background=\"mainbg.gif\" bgcolor=\"#FFFFFF\" valign=\"top\" align=\"center\">
<% if session(\"domain\") = \"\" then %>
<br>
<b>Micropages.dk kunde side</b><br>
<%
if Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" then
login = Server.HTMLEncode(Request.form(\"domain\"))
kode = Server.HTMLEncode(Request.form(\"kode\"))
Set rs = Conn.Execute(\"select * from kunder where login = \'\" & login & \"\'\")
if rs.eof or rs.bof then
Response.Write \"Ugyldigt domain\"
else
if rs(\"kode\") = kode then
session(\"domain\") = login
Response.Redirect(\"kunde.asp\")
else
Response.write \"Forkert kode\"
end if
end if
set rs = Nothing
end if
%>
<form method=\"post\" action=\"kunde.asp\">
Domain: <input type=\"text\" name=\"domain\"><br>
Kode: <input type=\"password\" name=\"kode\"><br>
<input type=\"submit\" value=\"login\">
</form>
<% else %>
<br><br>
<b>Velkommen til Micropage´s kunde afdeling for domainet: <%=Session(\"domain\")%></b><br>
<% select case Request.Querystring(\"mode\")
case \"\"
set status = Conn.Execute(\"select * from status where domain = \'\" & Session(\"domain\") & \"\'\")
%>
Du kan her administrerer forskellige ting på dit webhotel:
<br><br>
<a href=\"kunde.asp?mode=mails\">Se oprettede mails</a>,<br>
<a href=\"kunde.asp?mode=newmail\">Opret ny mail</a>,<br>
<br>
<br>
<% if status.eof or status.bof then
Response.Write \"Ingen webhotel status endnu\"
else %>
<b>Webhotel info:</b><br>
Betalt: <%=status(\"betalt\")%><br>
Udløber: <%=status(\"betalt_til\")%><br>
<% end if %>
<% case \"newmail\"
if Request.form(\"email\") <> \"\" AND Request.form(\"kode\") <> \"\" then
Set Mailer = Server.CreateObject(\"SMTPsvg.Mailer\")
Mailer.FromName = \"xxxxxxxxxx\"
Mailer.FromAddress= \"xxxxxxxxxxxxxxxxxx\"
Mailer.RemoteHost = \"xxxxxxxxxxxxxxxxxxxxx\"
Mailer.AddRecipient \"xxxxxxxxxxxxxxxx\"
Mailer.Subject = \"Nye mails\"
Mailer.BodyText = \"Der er blevet oprettet nye mails:\"&vbCrlf&\"Domain:\" & Session(\"domain\") & \"\"&vbCrlf&\"Email:\" & Request.form(\"email\") & \"\" & vbCrlf & \"Kode:\" & Request.form(\"kode\") & \"\"
if Mailer.SendMail then
else
end if
Conn2.Execute(\"insert into mails (domain,mail,kode) values (\'\" & Session(\"domain\") & \"\',\'\" & Request.form(\"email\") & \"\',\'\" & Request.form(\"kode\") & \"\')\")
end if
%>
Du kan her oprette nye mails på dit domain:<br>
<form method=\"post\" action=\"kunde.asp?mode=newmail\">
Email: <input type=\"text\" name=\"email\">@<%=Session(\"domain\")%><br>
kode: <input type=\"text\" name=\"kode\"><br>
<input type=\"submit\" value=\"Opret\">
</form>
<% case \"mails\"
xxx LINIE 112 XXX if Request.Querystring(\"slet\") <> \"\" then
Set temp = Conn.Execute(\"select * From mails where id = \'\" & Request.Querystring(\"slet\") & \"\'\")
tempmail = temp(\"email\")
set temp = Nothing
Conn2.Execute(\"DELETE From mails where id = \'\" & Request.Querystring(\"slet\") & \"\'\")
Set Mailer = Server.CreateObject(\"SMTPsvg.Mailer\")
Mailer.FromName = \"xxxxxx\"
Mailer.FromAddress= \"xxxxxxxx\"
Mailer.RemoteHost = \"xxxxxx\"
Mailer.AddRecipient \"xxxxx\", \"xxxxxx\"
Mailer.Subject = \"Nye mails\"
Mailer.BodyText = \"Der er blevet slettet en mail:\" & vbcrlf & \"Email: \" & tempmail & \"@\" & Session(\"domain\") & \"\"
if Mailer.SendMail then
else
end if
end if
%>
Følgende mails er oprettet på dit domain:<br>
<table>
<tr class=\"lort\">
<td>
<b>Email</b>
</td>
<td>
<b>kode</b>
</tr>
<% Set rs = Conn2.Execute(\"select * from mails where domain = \'\" & Session(\"domain\") & \"\' AND oprettet=True\")
if rs.eof or rs.bof then
Response.Write \"<tr><td colspan=\"\"2\"\">Ingen emails</td></tr>\"
else
Do until rs.eof %>
<tr>
<td><%=rs(\"mail\")%>@<%=Session(\"domain\")%></td>
<td><%=rs(\"kode\")%></td>
<td><a href=\"kunde.asp?mode=mails&slet=<%=rs(\"id\")%>\">Slet</a></td>
</tr>
<% rs.movenext
loop
end if %>
</table>
<% end select %>
<% end if %>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</body>
</html>
<%
Conn.close
set conn = nothing
Conn2.close
set conn2 = nothing
%>
dette er fejlen
Microsoft OLE DB Provider for ODBC Drivers error \'80040e37\'
[Microsoft][ODBC Microsoft Access Driver] The Microsoft Jet database engine cannot find the input table or query \'mails\'. Make sure it exists and that its name is spelled correctly.
/kunde.asp, line 112
