Avatar billede hitshit Nybegynder
02. december 2001 - 17:54 Der er 9 kommentarer

HJÆLP TIL Ocean12 ASP Mailing List Manager v1.02

Der er en fejl når man skal sende nyhedsmailen kan ikke finde den, håber du kan hjælpe mig!

Host: on-net.dk/maillist
Bruger: on-net.dk
Pass: test
Avatar billede keysersoze Ekspert
02. december 2001 - 17:58 #1
og hvad er så det for en fejl?
Avatar billede hitshit Nybegynder
02. december 2001 - 18:04 #2
Jeg får en fejl 500 - i filen der hedder send2.asp - har du en mail adr. så kan jeg sende det til dig som det ser ud på vores srv ?
Avatar billede keysersoze Ekspert
02. december 2001 - 18:09 #3
nej...

prøv dette og fortæl mig så hvilken fejl der kommer

Tools>Internet Options>Advanced>Uncheck \"Show friendly HTTP-errors\"
Funktioner>Internet Instillinger>Avanceret>Fjern kryds i \"Vis uskadelige HTTP-fejl\"
Avatar billede hitshit Nybegynder
03. december 2001 - 08:39 #4
Så kommer denne meddelse:

Microsoft VBScript runtime error \'800a0046\'

Permission denied

/maillist/send2.asp, line 33
Avatar billede keysersoze Ekspert
03. december 2001 - 11:51 #5
så skal du jo ind og se hvad der er lige omkring linie 33
Avatar billede hitshit Nybegynder
03. december 2001 - 13:01 #6
Her er hele asp siten:

<!--#include file=\"loggedin.asp\"-->
<!--#include file=\"dsn.asp\"-->
<!--#include file=\"body.asp\"-->

<%
Set RS = Server.CreateObject(\"ADODB.Recordset\")

Set RSBODY = Server.CreateObject(\"ADODB.Recordset\")
SQL2 = \"SELECT * from Settings\"
RSBODY.Open SQL2, Conn, 1, 3

SQL = \"SELECT Email FROM List ORDER BY ID\"
RS.open SQL, conn
subject = Request(\"Subject\")
body = Request(\"Body\")
Dim mailObj
Dim Format

If (Request(\"Format\") = \"Text\") Then
    Format = 1
Else
    Format = 0
End If

Do While Not RS.eof
    set mailObj = Server.CreateObject(\"CDONTS.NewMail\")
    mailObj.BodyFormat = Format
    mailObj.MailFormat = Format
    mailObj.From = RSBODY(\"From_Email\")
    mailObj.To = RS(\"Email\")
    mailObj.Subject = subject
    mailObj.Body = body
LINIE33->mailObj.Send<-LINIE33
RS.movenext
Loop

IF (Request(\"Archive\") = \"on\") Then
    Set RSARCHIVE = Server.CreateObject(\"ADODB.Recordset\")
    RSARCHIVE.Open \"Archive\", Conn, 2, 2
    RSARCHIVE.addnew
    RSARCHIVE(\"Subject\") = subject
    RSARCHIVE(\"Body\") = body
    RSARCHIVE(\"Format\") = request(\"Format\")
    RSARCHIVE(\"Date\") = Date
    RSARCHIVE.update
End If
%>

<html>
<head>
<title><%=RSBODY(\"List_Name\")%></title>

<script language=\"javascript\">

function open_Code_Heading_Text() {
  popupWin = window.open(\'help.asp?ID=Code_Heading_Text\', \'remote\', \'width=300,height=200\')
}
function open_Code_Heading_BG() {
  popupWin = window.open(\'help.asp?ID=Code_Heading_BG\', \'remote\', \'width=300,height=200\')
}
function open_Code_Body_Text() {
  popupWin = window.open(\'help.asp?ID=Code_Body_Text\', \'remote\', \'width=300,height=200\')
}
function open_Code_Body_BG() {
  popupWin = window.open(\'help.asp?ID=Code_Body_BG\', \'remote\', \'width=300,height=200\')
}
function open_Code_Border() {
  popupWin = window.open(\'help.asp?ID=Code_Border\', \'remote\', \'width=300,height=200\')
}

</script>

<!--#include file=\"style.asp\"-->

</head>
<body bgcolor=\"#F0F0F0\" vlink=\"#48576C\" link=\"#48576C\" alink=\"#000000\">
<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"650\" align=\"center\">
<tr>
<td height=\"1\" colspan=\"5\" bgcolor=\"#000000\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
</tr>

<tr>
<td width=\"1\" bgcolor=\"#000000\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
<td colspan=\"3\" bgcolor=\"#52637B\" height=\"35\" width=\"648\"><font face=\"Verdana\" size=\"5\" color=\"#FFCC00\"><b>&nbsp;<%=RSBODY(\"List_Name\")%></b></font></td>
<td width=\"1\" bgcolor=\"#000000\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
</tr>

<tr>
<td height=\"1\" colspan=\"5\" bgcolor=\"#000000\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
</tr>

<tr>
<td width=\"1\" bgcolor=\"#000000\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
<td bgcolor=\"#8199DA\" valign=\"top\" width=\"130\">

<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"130\">
<tr>
<td bgcolor=\"#B0C4DE\" width=\"130\" height=\"15\"><a href=\"main.asp\"><font face=\"Verdana\" size=\"1\"><b>&nbsp;Home</b></font></a></td>
</tr>
<tr>
<td bgcolor=\"#000000\" height=\"1\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
</tr>

<tr>
<td height=\"5\"><img src=\"im/clear.gif\" height=\"5\" width=\"1\"></td>
</tr>
<tr>
<td bgcolor=\"#000000\" height=\"1\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
</tr>

<tr>
<td bgcolor=\"#B0C4DE\" width=\"130\" height=\"15\"><a href=\"send.asp\"><font face=\"Verdana\" size=\"1\"><b>&nbsp;Send&nbsp;Mailing</b></font></a></td>
</tr>
<tr>
<td bgcolor=\"#000000\" height=\"1\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
</tr>

<tr>
<td bgcolor=\"#B0C4DE\" width=\"130\" height=\"15\"><a href=\"subscribers.asp\"><font face=\"Verdana\" size=\"1\"><b>&nbsp;View/Edit&nbsp;Subscribers</b></font></a></td>
</tr>
<tr>
<td bgcolor=\"#000000\" height=\"1\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
</tr>

<tr>
<td bgcolor=\"#B0C4DE\" width=\"130\" height=\"15\"><a href=\"code.asp\"><font face=\"Verdana\" size=\"1\"><b>&nbsp;Generate&nbsp;HTML</b></font></a></td>
</tr>
<tr>
<td bgcolor=\"#000000\" height=\"1\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
</tr>

<tr>
<td bgcolor=\"#B0C4DE\" width=\"130\" height=\"15\"><a href=\"archive.asp\"><font face=\"Verdana\" size=\"1\"><b>&nbsp;Mail&nbsp;Archive</b></font></a></td>
</tr>
<tr>
<td bgcolor=\"#000000\" height=\"1\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
</tr>

<tr>
<td height=\"5\"><img src=\"im/clear.gif\" height=\"5\" width=\"1\"></td>
</tr>
<tr>
<td bgcolor=\"#000000\" height=\"1\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
</tr>

<tr>
<td bgcolor=\"#B0C4DE\" width=\"130\" height=\"15\"><a href=\"settings.asp\"><font face=\"Verdana\" size=\"1\"><b>&nbsp;Settings</b></font></a></td>
</tr>
<tr>
<td bgcolor=\"#000000\" height=\"1\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
</tr>

<tr>
<td bgcolor=\"#B0C4DE\" width=\"130\" height=\"15\"><a href=\"http://scripts.ocean12tech.com/asp/mailinglist/support/\"><font face=\"Verdana\" size=\"1\"><b>&nbsp;Support</b></font></a></td>
</tr>
<tr>
<td bgcolor=\"#000000\" height=\"1\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
</tr>

<tr>
<td bgcolor=\"#B0C4DE\" width=\"130\" height=\"15\"><a href=\"http://scripts.ocean12tech.com/asp/mailinglist/docs/\"><font face=\"Verdana\" size=\"1\"><b>&nbsp;Documentation</b></font></a></td>
</tr>
<tr>
<td bgcolor=\"#000000\" height=\"1\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
</tr>

<tr>
<td height=\"5\"><img src=\"im/clear.gif\" height=\"5\" width=\"1\"></td>
</tr>
<tr>
<td bgcolor=\"#000000\" height=\"1\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
</tr>

<tr>
<td bgcolor=\"#B0C4DE\"  width=\"130\" height=\"15\"><a href=\"logout.asp\"><font face=\"Verdana\" size=\"1\"><b>&nbsp;Log&nbsp;Out</b></font></a></td>
</tr>
<tr>
<td bgcolor=\"#000000\" height=\"1\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
</tr>
</table>

</td>
<td width=\"1\" bgcolor=\"#000000\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
<td bgcolor=\"#FFFFFF\" width=\"100%\" valign=\"top\" height=\"200\">

<table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\">
<tr>
<td bgcolor=\"#B0C4DE\" height=\"15\" width=\"100%\"><font face=\"Verdana\" size=\"1\" color=\"#000000\"><b>&nbsp;Send Mailing</b></font></td>
</tr>
<tr>
<td bgcolor=\"#000000\" height=\"1\" width=\"100%\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
</tr>
</table>

<table border=\"0\" cellpadding=\"2\" cellspacing=\"0\" width=\"100%\">
<tr>
<td width=\"100%\"><font face=\"Verdana\" size=\"1\">

The Mailing has been sent.<br><br>
<a href=\"main.asp\">&lt;&lt; <b>Return</b></a>

</font></td>
</tr>
</table></td>
<td width=\"1\" bgcolor=\"#000000\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
</tr>

<tr>
<td height=\"1\" colspan=\"5\" bgcolor=\"#000000\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
</tr>

<!-- Begin Ocean12 Technologies Copyright Notice -->
<!-- THIS CODE MUST NOT BE CHANGED -->
<tr>
<td width=\"1\" bgcolor=\"#000000\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
<td colspan=\"3\" align=\"center\" bgcolor=\"#B0C4DE\" height=\"30\"><font face=\"Verdana\" size=\"1\">Maintained with the <a href=\"http://scripts.ocean12tech.com\">Ocean<i>12</i> ASP Mailing List Manager</a> v1.02<br>&copy;2001 <a href=\"http://scripts.ocean12tech.com\">Ocean<i>12</i> Technologies</a>, all rights reserved.</font></td>
<td width=\"1\" bgcolor=\"#000000\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
</tr>
<!-- End Ocean12 Technologies Copyright Notice -->

<tr>
<td height=\"1\" colspan=\"5\" bgcolor=\"#000000\"><img src=\"im/clear.gif\" height=\"1\" width=\"1\"></td>
</tr>
</table>


</body>
</html>
<!--#include file=\"dsn2.asp\"-->
Avatar billede keysersoze Ekspert
03. december 2001 - 13:49 #7
er du sikker på du har adgang til det mailkomponent?
Avatar billede hitshit Nybegynder
03. december 2001 - 13:53 #8
I dont know - hvor kan jeg få det afvide ?
Hos udbyderen ?
Avatar billede keysersoze Ekspert
03. december 2001 - 14:04 #9
hos udbyderen ja - jeg _tror_ ikke fejlen ligger der da der ellers højst sandsynligt ville komme en anden fejl... men find lige ud af det for en sikkerheds skyld
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester