Søg
Avatar billede remo27 Nybegynder
14. august 2004 - 18:24 Der er 23 kommentarer og
1 løsning

hele 3 ting der ikke funger i mit adm. modul

Jeg er næsten færdig med en hjemmeside, men jeg har fået 2 problmer som jeg ikke kan få til at funge.


1) slette billede fra mit admin side.

2) sende nyhedsbrev

fra mit Adm. modul

/Remo
Avatar billede remo27 Nybegynder
14. august 2004 - 18:25 #1
hmmm overskriften passer ikke helt,  der er kun 2 ting.
Avatar billede tubber Juniormester
14. august 2004 - 18:30 #2
Du bliver nød til at komme med noget kode til 2 ting der ikke funker, vi kan jo ikke finde fejl i noget vi ikke kan se......
Avatar billede remo27 Nybegynder
14. august 2004 - 18:34 #3
Sorry, sommer varmen.

****** admin.asp ****

<br>
<center>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%">

<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%" class="green" align="center">Velkommen til WML Adm. Modul</td>
</tr>
<tr>
<td width="100%">

<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="50%" align="left" class="menutxt"><br>
<ul>
<li><a href="default.asp?emne=admin&emne2=retvelkom">Ret Velkomst-Tekst</a></li><br>
<li><a href="default.asp?emne=admin&emne2=tilfn">Tilføj Nyhed</a></li><br>
<li><a href="default.asp?emne=admin&emne2=retnyhed">Ret Nyhed</a></li><br>
<li><a href="default.asp?emne=admin&emne2=tilka">Tilføj til kalender</a></li><br>
<li><a href="default.asp?emne=admin&emne2=retoeve">Ret Øveaften</a></li><br>
<li><a href="default.asp?emne=admin&emne2=retarran">Ret Arrangement</a></li><br>
<li><a href="default.asp?emne=admin&emne2=tilfl">Tilføj Link</a></li>
<li><a href="default.asp?emne=admin&emne2=retlink">Ret Link</a></li>
</ul>
</td>
<td width="50%" align="left" class="menutxt"><ul>
<li><a href="default.asp?emne=admin&emne2=uppic">Upload billede</a></li>
  <li><a href="default.asp?emne=admin&emne2=sletpic">Slet billede</a></li>
    <li><a href="default.asp?emne=admin&emne2=nybrev">skriv nyhedsbrev</a></li></ul>

</td>
</tr>
<tr>
<td width="100%" class="menutxt" align="center" colspan="2"><hr></td>
<tr>
<td width="100%" class="menutxt" align="center" colspan="2">
<% if Trim(Request.QueryString("emne2")) = "tilfn" then %>
<!--#include file="admin/upnyhed.asp" -->
<%end if%>

<% if Trim(Request.QueryString("emne2")) = "retnyhed" then %>
<!--#include file="admin/retnyhed.asp" -->
<%end if%>

<% if Trim(Request.QueryString("emne2")) = "ret" then %>
<!--#include file="admin/retnyhed.asp" -->
<%end if%>

<% if Trim(Request.QueryString("emne2")) = "tilka" then %>
<!--#include file="kalender/kalenderopret.asp" -->
<%end if%>

<% if Trim(Request.QueryString("emne2")) = "retoeve" then %>
<!--#include file="admin/retoeve.asp" -->
<%end if%>

<% if Trim(Request.QueryString("emne2")) = "retarran" then %>
<!--#include file="admin/retaran.asp" -->
<%end if%>

<% if Trim(Request.QueryString("emne2")) = "tilfl" then %>
<!--#include file="admin/uplink.asp" -->
<%end if%>

<% if Trim(Request.QueryString("emne2")) = "retlink" then %>
<!--#include file="admin/retlink.asp" -->
<%end if%>

<% if Trim(Request.QueryString("emne2")) = "retvelkom" then %>
<!--#include file="admin/retvelkom.asp" -->
<%end if%>

<% if Trim(Request.QueryString("emne2")) = "uppic" then %>
<!--#include file="admin/uploadgfx.asp" -->
<%end if%>

<% if Trim(Request.QueryString("emne2")) = "sletpic" then %>
<!--#include file="admin/slet_pic.asp" -->
<%end if%>

<% if Trim(Request.QueryString("emne2")) = "nybrev" then %>
<!--#include file="admin/write_send.asp" -->
<%end if%>
</td>
</tr>
<tr>
<td width="100%" class="menutxt" align="center">
</td>
</tr>
</table>

  </td>
</tr>
<tr>
<td width="100%" class="green" align="right"><hr></td>
</tr>
<tr>
<td width="100%" class="green" align="right">[<a href="default.asp?emne=velkom">Log af</a>]</td>
</tr>
</table>

  </td>
</tr>
</table>
</center>

*****************


****** Write_send.asp *******

<HTML>
<HEAD>
<TITLE>Mailingliste</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000">
<%
if request("mode") = "send" then
'****** VÆLG PROGRAM TIL AT SENDE MAILEN ******
'1 = JMAIL
'2 = CDONTS

mailertype = 1

'**********************************************

Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "DBQ="&(Server.MapPath(".")) &"./wml.mdb; DefaultDir=DBQ="&(Server.MapPath(".")) &"\;Driver={Microsoft Access Driver (*.mdb)};"
    SQL = "SELECT * from mailingliste"
    set send = conn.execute( SQL )
    do while not send.eof
    on error resume next
if mailertype = 1 then
        Set JMail = Server.CreateObject("JMail.SMTPMail")
        ' This is my local SMTP server
        JMail.ServerAddress = "smtp.mail.dk"
   
        ' mail config settings
        JMail.Charset = "iso-8859-1"
        JMail.ContentTransferEncoding = "8bit"
       
        JMail.Sender = "rmo@pc.dk"
        JMail.Subject = request("header")
        JMail.AddRecipient send("email")
        JMail.Body = request("tekst")
       
        ' 1 - highest priority (Urgent)
        ' 3 - normal
        ' 5 - lowest
       
        JMail.Priority = 3
       
        ' Send it...
        JMail.Execute
        set JMail = nothing
elseif mailertype = 2 then

        ' importance = 0        ' lav
        importance = 1        ' normal
        ' importance = 2        ' høj

        Set mailObj = CreateObject("CDONTS.NewMail")
   
        ' send email med parametre : fra email, til email, header, besked, importance
        mailObj.Send "afsenders emailadresse", send("email"), request("header"), request("tekst"), importance

        ' slet reference til CDONTS object
        Set mailObj = Nothing
end if



response.write "<FONT FACE='Arial' SIZE='2' COLOR='#000000'><STRONG>E-mail er sendt til : "& send("email") &"</STRONG></FONT><BR>"
send.movenext
loop

conn.close

response.redirect("../default.asp?emne=admin")

else
%>
<CENTER>
<TABLE BORDER="0">
<form action="admin/write_send.asp" METHOD="POST">
<INPUT TYPE="hidden" NAME="mode" VALUE="send">
  <TR>
 
    <TD ALIGN="LEFT" class="nyhed">Overskrift:&nbsp;</TD>
    <TD ALIGN="LEFT">
    <INPUT TYPE="TEXT" NAME="header" SIZE="50">
    </TD>
  </TR>
  <TR>
    <TD ALIGN="RIGHT" VALIGN="TOP" class="nyhed">Tekst:&nbsp;</TD>
    <TD ALIGN="LEFT">
    <TEXTAREA COLS="45" ROWS="15" NAME="tekst"></TEXTAREA>
    </TD>
  </TR>
  <TR>
    <TD ALIGN="LEFT">
    &nbsp;
    </TD>
    <TD ALIGN="RIGHT">    <input type="submit" value="-- SEND --"> </TD>
  </TR>
</FORM>
</TABLE>
</CENTER>
<% end if %>
</BODY>
</HTML>
**********************

****** slet_pic.asp *****

<br>
<center>
<table width="100%" border="0" cellpadding="0" cellspacing="0">

<tr>
      <td width="100%" class="top" align="center"><b> .:: WEST MOUNTAIN LINEDANCERS BILLED GALLERI ::. </b></td>
</tr>
<tr>
      <td width="100%" align="center"><%

strmappe = "wml_pic"

SiteName = "admin/slet_pic.asp"

Set directory=server.createobject("scripting.filesystemobject")

'Tjek om der skal slettes en fil før den scanner filerne igennem og viser dem:
if Request.ServerVariables("REQUEST_METHOD") = "POST" and Request.Form("filen") <> "" then
  filnavn = Request.Form("filen")
  if directory.FileExists(Server.MapPath(filnavn)) then
    directory.DeleteFile (Server.MapPath(filnavn))
  end if 
end if

Set allfiles=directory.getfolder(server.mappath(strmappe))

For each directoryfile in allfiles.files
  strfilearr = strfilearr + directoryfile.Name & ","
  strcountfiles = strcountfiles + 1
Next

if request.querystring("execute") ="popup" then
    ImageArray = split(strfilearr,",")

    response.write "<html>" & vbCrLf &_
    "<head>" & vbCrLf &_
    "<title>WEST MOUNTAIN LINEDANCERS BILLED GALLERI</title>" & vbCrLf &_
    "<script>" & vbCrLf &_
    "function resizeMe(){" & vbCrLf &_
    "if (navigator.appName == 'Netscape'){" & vbCrLf &_
    "adjWidth = document.images[""0""].width + 6;" & vbCrLf &_
    "adjHeight = document.images[""0""].height + 27;" & vbCrLf &_
    "}" & vbCrLf &_
    "else {" & vbCrLf &_
    "adjWidth = document.images[""0""].width + 100;" & vbCrLf &_
    "adjHeight = document.images[""0""].height + 150;" & vbCrLf &_
    "}" & vbCrLf &_
    "window.resizeTo(adjWidth, adjHeight);" & vbCrLf &_
    "window.focus()" & vbCrLf &_
    "}" & vbCrLf &_
    "</script>" & vbCrLf &_
    "</head>" & vbCrLf &_
    "<body margin='0' onLoad=""resizeMe();"">" & vbCrLf &_
    "<table style='width:100%;height:100%;'>" & vbCrLf &_
    "<tr>" & vbCrLf &_
    "<td style='width:100%;height:100%;vertical-align:middle;text-align:center;'>" & vbCrLf &_
    "<img src='"&strmappe&"/"&ImageArray(request.querystring("id")-1)&"' name=""0"" id='0' border='0'>" & vbCrLf &_
    "</td>" & vbCrLf &_
    "</tr>" & vbCrLf &_
    "<tr>" & vbCrLf &_
    "<td style='text-align:center;'><a href='java script:window.close();'>close</a></td>" & vbCrLf &_
    "</tr>" & vbCrLf &_
    "</table>" & vbCrLf &_
    "</body>" & vbCrLf &_
    "</html>" & vbCrLf
else
    response.write "<html>" & vbCrLf &_
    "<head>" & vbCrLf &_
    "<title>image gallery [goat design]</title>" & vbCrLf &_
    "<SCRIPT LANGUAGE=""Javascript"" type=""text/javascript"">" & vbCrLf &_
    "<!--" & vbCrLf &_
    "function Popit(url) {" & vbCrLf &_
    "  popupWin = window.open(url,'new_page','width=500,height=400,scrollbars=yes')" & vbCrLf &_
    "}" & vbCrLf &_
    "//-->" & vbCrLf &_
    "</SCRIPT>" & vbCrLf &_
    "</head>" & vbCrLf &_
    "<body style='text-align:center;'>" & vbCrLf

   
    ItemsTotal = strcountfiles
    ItemsprPage = "12"
    CurrentPage  = request.querystring("id")
    If CurrentPage = "" or CurrentPage = "0" then CurrentPage = "1"
    CurrentPage = Int(CurrentPage)
   
    CountPages = (ItemsTotal/ItemsprPage)

    if CountPages > int(CountPages) then CountPages = int(CountPages) + 1

    ImageArray = split(strfilearr,",")

    StartImg = Int((CurrentPage-1)*(ItemsprPage))
    If StartImg = 0 then StartImg = 1
    EndImg = (ItemsTotal-StartImg)


    if cint(EndImg) > cint(ItemsprPage) then
        EndImg = round(StartImg-1) + round(ItemsprPage)
    else
        EndImg = (StartImg + EndImg)
    End if

    response.write "<table style='width:50%;'>"

    CountImgPrint = 0

    For I = StartImg to EndImg
        CountImgPrint = CountImgPrint +1

        If CountImgPrint = 1 then response.write "<tr>" & vbCrLf & vbCrLf
        response.write "<form action=""" & Request.ServerVariables("SCRIPT_NAME") & """ method=""post"">"
        response.write "<td style='width:20%;text-align:center;'><a href=""java script: Popit('"&SiteName&"?execute=popup&id="&I&"')"" onfocus='blur()'><img src='"&strmappe&"/"&ImageArray(I-1)&"' border='0' style='width:41px;;height:41px;' /></a>"
        Response.Write "<br><input type=""hidden"" name=""filen"" value=""" & Server.URLPathEncode(strmappe&"/"&ImageArray(I-1)) & """>"
        Response.Write "<br><input type=""submit"" name=""Selt"" value=""Slet""></td>" & vbCrLf
        response.write "</form>"
       
        If CountImgPrint = 5 then
            response.write "</tr>" & vbCrLf & vbCrLf
            CountImgPrint = 0
        end if
    Next

    response.write "</tr>" & vbCrLf &_
    "<tr>" & vbCrLf &_
    "<td colspan=""5"" style='width:100%;text-align:center;'>" & vbCrLf
    For I = 1 to CountPages
        If NOT Cint(CurrentPage) = Cint(I) then
            response.write "<a href=""default.asp?emne=admin&emne2=slet_pic&id="&I&"""> "&I&"</a><br>"
    Ret
        else
            response.write "["&I&"]"
        end if
    Next
    response.write "</td>" & vbCrLf &_
    "</tr>" & vbCrLf &_
    "</table>" & vbCrLf &_
    "</body>" & vbCrLf &_
    "</html>" & vbCrLf
end if

%>
</td>
</tr>

</table>
</center>

***********************
Avatar billede eagleeye Praktikant
15. august 2004 - 23:32 #4
Problem nr. 1

Prøv at rette denne linje:
        response.write "<form action=""" & Request.ServerVariables("SCRIPT_NAME") & """ method=""post"">"

Til dette:
        response.write "<form action=""" & Request.ServerVariables("SCRIPT_NAME") & "?emne=admin&emne2=sletpic"" method=""post"">"


Problem nr. 2

Prøv at rette denne linje:
<form action="admin/write_send.asp" METHOD="POST">

Til denne:
<form action="admin/write_send.asp?emne=admin&emne2=nybrev" METHOD="POST">
Avatar billede remo27 Nybegynder
19. august 2004 - 19:38 #5
Eagleeye >> Nu virker mit slet_pic.asp 1000 tak , men write_send.asp, funger ikke helt jeg har sat den linie ind du skrev.  Men jeg får denne fejl

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x6b0 Thread 0xae4 DBC 0xd89af24 Jet'.

/wml/admin/write_send.asp, line 17


**********' write_send.asp **************''

<HTML>
<HEAD>
<TITLE>Mailingliste</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000">
<%
if request("mode") = "send" then
'****** VÆLG PROGRAM TIL AT SENDE MAILEN ******
'1 = JMAIL
'2 = CDONTS

mailertype = 1

'**********************************************

Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "DBQ="&(Server.MapPath(".")) &"../wml.mdb; DefaultDir=DBQ="&(Server.MapPath(".")) &"\;Driver={Microsoft Access Driver (*.mdb)};"
    SQL = "SELECT * from mailingliste"
    set send = conn.execute( SQL )
    do while not send.eof
    on error resume next
if mailertype = 1 then
        Set JMail = Server.CreateObject("JMail.SMTPMail")
        ' This is my local SMTP server
        JMail.ServerAddress = "smtp.mail.dk"
   
        ' mail config settings
        JMail.Charset = "iso-8859-1"
        JMail.ContentTransferEncoding = "8bit"
       
        JMail.Sender = "rmo@pc.dk"
        JMail.Subject = request("header")
        JMail.AddRecipient send("email")
        JMail.Body = request("tekst")
       
        ' 1 - highest priority (Urgent)
        ' 3 - normal
        ' 5 - lowest
       
        JMail.Priority = 3
       
        ' Send it...
        JMail.Execute
        set JMail = nothing
elseif mailertype = 2 then

        ' importance = 0        ' lav
        importance = 1        ' normal
        ' importance = 2        ' høj

        Set mailObj = CreateObject("CDONTS.NewMail")
   
        ' send email med parametre : fra email, til email, header, besked, importance
        mailObj.Send "afsenders emailadresse", send("email"), request("header"), request("tekst"), importance

        ' slet reference til CDONTS object
        Set mailObj = Nothing
end if



response.write "<FONT FACE='Arial' SIZE='2' COLOR='#000000'><STRONG>E-mail er sendt til : "& send("email") &"</STRONG></FONT><BR>"
send.movenext
loop

conn.close

response.redirect("../default.asp?emne=admin")

else
%>
<CENTER>
<TABLE BORDER="0">
<form action="admin/write_send.asp?emne=admin&emne2=nybrev" METHOD="POST">
<INPUT TYPE="hidden" NAME="mode" VALUE="send">
  <TR>
 
    <TD ALIGN="LEFT" class="nyhed">Overskrift:&nbsp;</TD>
    <TD ALIGN="LEFT">
    <INPUT TYPE="TEXT" NAME="header" SIZE="50">
    </TD>
  </TR>
  <TR>
    <TD ALIGN="RIGHT" VALIGN="TOP" class="nyhed">Tekst:&nbsp;</TD>
    <TD ALIGN="LEFT">
    <TEXTAREA COLS="45" ROWS="15" NAME="tekst"></TEXTAREA>
    </TD>
  </TR>
  <TR>
    <TD ALIGN="LEFT">
    &nbsp;
    </TD>
    <TD ALIGN="RIGHT">    <input type="submit" value="-- SEND --"> </TD>
  </TR>
</FORM>
</TABLE>
</CENTER>
<% end if %>
</BODY>
</HTML>
Avatar billede eagleeye Praktikant
19. august 2004 - 19:50 #6
Fejlen betyder database filen ikke kan findes i den angivne folder eller fil navnet er forkert. Det er i denne linje:

conn.Open "DBQ="&(Server.MapPath(".")) &"../wml.mdb; DefaultDir=DBQ="&(Server.MapPath(".")) &"\;Driver={Microsoft Access Driver (*.mdb)};"
Avatar billede eagleeye Praktikant
19. august 2004 - 19:53 #7
Prøv at kigge i en af dine andre filer og finde en connection streng hvor stien paser hvis det er samme database fil der bruges til alle siderne.
Avatar billede remo27 Nybegynder
19. august 2004 - 20:05 #8
hmmm, det kan jeg sgu ikke få til at funge.
Avatar billede eagleeye Praktikant
19. august 2004 - 20:07 #9
Prøv at skrive:

conn.Open "DBQ="&(Server.MapPath(".")) &"../../wml.mdb; DefaultDir=DBQ="&(Server.MapPath(".")) &"\;Driver={Microsoft Access Driver (*.mdb)};"
Avatar billede eagleeye Praktikant
19. august 2004 - 20:08 #10
Hvor ligger database filen i forhold til roden?
Avatar billede remo27 Nybegynder
19. august 2004 - 20:13 #11
jeg har en mappe som hedder wml, her ligger min defalut.asp og andre asp filer + wml.db. i mappen wml er der en mappe som hedder admin, og er i denne mappe ligger filen write_send.asp
Avatar billede eagleeye Praktikant
19. august 2004 - 20:14 #12
Ok så prøv denne connection string:

conn.Open "DBQ="&Server.MapPath("/wml/wml.mdb")&"; DefaultDir="&Server.MapPath("/wml") &";Driver={Microsoft Access Driver (*.mdb)};"
Avatar billede remo27 Nybegynder
19. august 2004 - 20:18 #13
Det funger med ../../wml.db  Eagleeye du er en fucking ASP-GUD.  jeg lurer lidt på om det kunne laves således i min write_send.asp at, jeg havde en test knap ved siden af send, det test skulle gøre at den bare sender nyhedsbrevet til en selv for at se om det funger, hvis det er 10-4 skal man bare klikke på send for at sende til alle
Avatar billede eagleeye Praktikant
19. august 2004 - 20:57 #14
du kan prøve dette..den skulle sende en test mail til: rmo@pc.dk


<HTML>
<HEAD>
<TITLE>Mailingliste</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000">
<%
if request("mode") = "send" then
'****** VÆLG PROGRAM TIL AT SENDE MAILEN ******
'1 = JMAIL
'2 = CDONTS

mailertype = 1

'**********************************************
if request("testmail") = "" then

Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "DBQ="&(Server.MapPath(".")) &"../../wml.mdb; DefaultDir=DBQ="&(Server.MapPath(".")) &"\;Driver={Microsoft Access Driver (*.mdb)};"    SQL = "SELECT * from mailingliste"
    set send = conn.execute( SQL )
    do while not send.eof
    on error resume next
    if mailertype = 1 then
        Set JMail = Server.CreateObject("JMail.SMTPMail")
        ' This is my local SMTP server
        JMail.ServerAddress = "smtp.mail.dk"
   
        ' mail config settings
        JMail.Charset = "iso-8859-1"
        JMail.ContentTransferEncoding = "8bit"
       
        JMail.Sender = "rmo@pc.dk"
        JMail.Subject = request("header")
        JMail.AddRecipient send("email")
        JMail.Body = request("tekst")
       
        ' 1 - highest priority (Urgent)
        ' 3 - normal
        ' 5 - lowest
       
        JMail.Priority = 3
       
        ' Send it...
        JMail.Execute
        set JMail = nothing
    elseif mailertype = 2 then

        ' importance = 0        ' lav
        importance = 1        ' normal
        ' importance = 2        ' høj

        Set mailObj = CreateObject("CDONTS.NewMail")
   
        ' send email med parametre : fra email, til email, header, besked, importance
        mailObj.Send "afsenders emailadresse", send("email"), request("header"), request("tekst"), importance

        ' slet reference til CDONTS object
        Set mailObj = Nothing
    end if


    response.write "<FONT FACE='Arial' SIZE='2' COLOR='#000000'><STRONG>E-mail er sendt til : "& send("email") &"</STRONG></FONT><BR>"
    send.movenext
  loop

  conn.close

  response.redirect("../default.asp?emne=admin")

else 
'Send Test mail

    on error resume next
      if mailertype = 1 then
        Set JMail = Server.CreateObject("JMail.SMTPMail")
        ' This is my local SMTP server
        JMail.ServerAddress = "smtp.mail.dk"
   
        ' mail config settings
        JMail.Charset = "iso-8859-1"
        JMail.ContentTransferEncoding = "8bit"
       
        JMail.Sender = "rmo@pc.dk"
        JMail.Subject = request("header")
        JMail.AddRecipient "rmo@pc.dk"
        JMail.Body = request("tekst")
       
        ' 1 - highest priority (Urgent)
        ' 3 - normal
        ' 5 - lowest
       
        JMail.Priority = 3
       
        ' Send it...
        JMail.Execute
        set JMail = nothing
      elseif mailertype = 2 then

        ' importance = 0        ' lav
        importance = 1        ' normal
        ' importance = 2        ' høj

        Set mailObj = CreateObject("CDONTS.NewMail")
   
        ' send email med parametre : fra email, til email, header, besked, importance
        mailObj.Send "afsenders emailadresse", "rmo@pc.dk", request("header"), request("tekst"), importance

        ' slet reference til CDONTS object
        Set mailObj = Nothing
      end if

response.write("Test mail sendt")


End if






End if
if request("mode") <> "send" or request("testmail") <> "" then
%>
<CENTER>
<TABLE BORDER="0">
<form action="spm529250.asp?emne=admin&emne2=nybrev" METHOD="POST">
<INPUT TYPE="hidden" NAME="mode" VALUE="send">
  <TR>
 
    <TD ALIGN="LEFT" class="nyhed">Overskrift:&nbsp;</TD>
    <TD ALIGN="LEFT">
    <INPUT TYPE="TEXT" NAME="header" SIZE="50" value="<%=Request.Form("header")%>">
    </TD>
  </TR>
  <TR>
    <TD ALIGN="RIGHT" VALIGN="TOP" class="nyhed">Tekst:&nbsp;</TD>
    <TD ALIGN="LEFT">
    <TEXTAREA COLS="45" ROWS="15" NAME="tekst"><%=Request.Form("tekst")%></TEXTAREA>
    </TD>
  </TR>
  <TR>
    <TD ALIGN="LEFT">
    &nbsp;
    </TD>
    <TD ALIGN="RIGHT">    <input type="submit" value="-- SEND --"><input type="submit" value="TEST MAIL" name="testmail"> </TD>
  </TR>
</FORM>
</TABLE>
</CENTER>
<% end if %>
</BODY>
</HTML>
Avatar billede remo27 Nybegynder
19. august 2004 - 21:11 #15
Eagleeye>>  test lige dette link

http://remo.lir.dk/wml/default.asp?emne=admin&emne2=nybrev  og klik på test  og bagefter så send, fortæl lige hvad der går galt.
Avatar billede eagleeye Praktikant
19. august 2004 - 21:16 #16
Hmm :)
Prøv lige at rette denne linje:

<form action="spm529250.asp?emne=admin&emne2=nybrev" METHOD="POST">

Til denne jeg har haft pillet i <form> tagen:

<form action="admin/write_send.asp?emne=admin&emne2=nybrev" METHOD="POST">
Avatar billede eagleeye Praktikant
19. august 2004 - 21:17 #17
og i disse linjer rettes fra:

conn.Open "DBQ="&(Server.MapPath(".")) &"../../wml.mdb; DefaultDir=DBQ="&(Server.MapPath(".")) &"\;Driver={Microsoft Access Driver (*.mdb)};"    SQL = "SELECT * from mailingliste"
    set send = conn.execute( SQL )


Til dette, der mangler et linjeskift før SQL sætningen:

conn.Open "DBQ="&(Server.MapPath(".")) &"../../wml.mdb; DefaultDir=DBQ="&(Server.MapPath(".")) &"\;Driver={Microsoft Access Driver (*.mdb)};"   
    SQL = "SELECT * from mailingliste"
    set send = conn.execute( SQL )
Avatar billede remo27 Nybegynder
19. august 2004 - 21:21 #18
Det har jeg gjordt, iden


write_send.asp

<HTML>
<HEAD>
<TITLE>Mailingliste</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000">
<%
if request("mode") = "send" then
'****** VÆLG PROGRAM TIL AT SENDE MAILEN ******
'1 = JMAIL
'2 = CDONTS

mailertype = 1

'**********************************************
if request("testmail") = "" then

Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "DBQ="&(Server.MapPath(".")) &"../../wml.mdb; DefaultDir=DBQ="&(Server.MapPath(".")) &"\;Driver={Microsoft Access Driver (*.mdb)};"   
    SQL = "SELECT * from mailingliste"
    set send = conn.execute( SQL )
    do while not send.eof
    on error resume next
    if mailertype = 1 then
        Set JMail = Server.CreateObject("JMail.SMTPMail")
        ' This is my local SMTP server
        JMail.ServerAddress = "smtp.mail.dk"
   
        ' mail config settings
        JMail.Charset = "iso-8859-1"
        JMail.ContentTransferEncoding = "8bit"
       
        JMail.Sender = "rmo@pc.dk"
        JMail.Subject = request("header")
        JMail.AddRecipient send("email")
        JMail.Body = request("tekst")
       
        ' 1 - highest priority (Urgent)
        ' 3 - normal
        ' 5 - lowest
       
        JMail.Priority = 3
       
        ' Send it...
        JMail.Execute
        set JMail = nothing
    elseif mailertype = 2 then

        ' importance = 0        ' lav
        importance = 1        ' normal
        ' importance = 2        ' høj

        Set mailObj = CreateObject("CDONTS.NewMail")
   
        ' send email med parametre : fra email, til email, header, besked, importance
        mailObj.Send "afsenders emailadresse", send("email"), request("header"), request("tekst"), importance

        ' slet reference til CDONTS object
        Set mailObj = Nothing
    end if


    response.write "<FONT FACE='Arial' SIZE='2' COLOR='#000000'><STRONG>E-mail er sendt til : "& send("email") &"</STRONG></FONT><BR>"
    send.movenext
  loop

  conn.close

  response.redirect("../default.asp?emne=admin")

else 
'Send Test mail

    on error resume next
      if mailertype = 1 then
        Set JMail = Server.CreateObject("JMail.SMTPMail")
        ' This is my local SMTP server
        JMail.ServerAddress = "smtp.mail.dk"
   
        ' mail config settings
        JMail.Charset = "iso-8859-1"
        JMail.ContentTransferEncoding = "8bit"
       
        JMail.Sender = "rmo@pc.dk"
        JMail.Subject = request("header")
        JMail.AddRecipient "rmo@pc.dk"
        JMail.Body = request("tekst")
       
        ' 1 - highest priority (Urgent)
        ' 3 - normal
        ' 5 - lowest
       
        JMail.Priority = 3
       
        ' Send it...
        JMail.Execute
        set JMail = nothing
      elseif mailertype = 2 then

        ' importance = 0        ' lav
        importance = 1        ' normal
        ' importance = 2        ' høj

        Set mailObj = CreateObject("CDONTS.NewMail")
   
        ' send email med parametre : fra email, til email, header, besked, importance
        mailObj.Send "afsenders emailadresse", "rmo@pc.dk", request("header"), request("tekst"), importance

        ' slet reference til CDONTS object
        Set mailObj = Nothing
      end if

response.write("Test mail sendt")


End if



End if
if request("mode") <> "send" or request("testmail") <> "" then
%>
<CENTER>
<TABLE BORDER="0">
<form action="admin/write_send.asp?emne=admin&emne2=nybrev" METHOD="POST">
<INPUT TYPE="hidden" NAME="mode" VALUE="send">
  <TR>
 
    <TD ALIGN="LEFT" class="nyhed">Overskrift:&nbsp;</TD>
    <TD ALIGN="LEFT">
    <INPUT TYPE="TEXT" NAME="header" SIZE="50" value="<%=Request.Form("header")%>">
    </TD>
  </TR>
  <TR>
    <TD ALIGN="RIGHT" VALIGN="TOP" class="nyhed">Tekst:&nbsp;</TD>
    <TD ALIGN="LEFT">
    <TEXTAREA COLS="45" ROWS="15" NAME="tekst"><%=Request.Form("tekst")%></TEXTAREA>
    </TD>
  </TR>
  <TR>
    <TD ALIGN="LEFT">
    &nbsp;
    </TD>
    <TD ALIGN="RIGHT">    <input type="submit" value="-- SEND --"><input type="submit" value="TEST MAIL" name="testmail"> </TD>
  </TR>
</FORM>
</TABLE>
</CENTER>
<% end if %>
</BODY>
</HTML>
Avatar billede eagleeye Praktikant
19. august 2004 - 21:25 #19
Prøv at rette:

<form action="admin/write_send.asp?emne=admin&emne2=nybrev" METHOD="POST">


Til

<form action="/wml/admin/write_send.asp?emne=admin&emne2=nybrev" METHOD="POST">
Avatar billede eagleeye Praktikant
19. august 2004 - 21:27 #20
men det måske ikke nok, prøv også at lave denne om:

  response.redirect("../default.asp?emne=admin")

Til:

  response.redirect("/wml/default.asp?emne=admin")
Avatar billede remo27 Nybegynder
19. august 2004 - 21:35 #21
Nu funger det, men måske en lille prik over i'et, hvordan undgår jeg at når jeg klikker på test, at det kommer på en hvid side, så det hele er samlet på admin siden.

jeg opretter gerne et nyt spørgsmål så du kan få 100 points, for denne udbyggelse
Avatar billede eagleeye Praktikant
19. august 2004 - 21:40 #22
Prøv at rette:

<form action="/wml/admin/write_send.asp?emne=admin&emne2=nybrev" METHOD="POST">

Til:

<form action="/wml/default.asp?emne=admin&emne2=nybrev" METHOD="POST">
Avatar billede remo27 Nybegynder
19. august 2004 - 22:01 #23
hmmm...

nu synes jeg ikke det funger, den kommer ikke med nogle fejl, når jeg klikker på test og send, men der kommer heller ingen mail.

<HTML>
<HEAD>
<TITLE>Mailingliste</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000">
<%
if request("mode") = "send" then
'****** VÆLG PROGRAM TIL AT SENDE MAILEN ******
'1 = JMAIL
'2 = CDONTS

mailertype = 1

'**********************************************
if request("testmail") = "" then

Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "DBQ="&(Server.MapPath(".")) &"../wml.mdb; DefaultDir=DBQ="&(Server.MapPath(".")) &"\;Driver={Microsoft Access Driver (*.mdb)};"   
    SQL = "SELECT * from mailingliste"
    set send = conn.execute( SQL )
    do while not send.eof
    on error resume next
    if mailertype = 1 then
        Set JMail = Server.CreateObject("JMail.SMTPMail")
        ' This is my local SMTP server
        JMail.ServerAddress = "smtp.mail.dk"
   
        ' mail config settings
        JMail.Charset = "iso-8859-1"
        JMail.ContentTransferEncoding = "8bit"
       
        JMail.Sender = "rmo@pc.dk"
        JMail.Subject = request("header")
        JMail.AddRecipient send("email")
        JMail.Body = request("tekst")
       
        ' 1 - highest priority (Urgent)
        ' 3 - normal
        ' 5 - lowest
       
        JMail.Priority = 3
       
        ' Send it...
        JMail.Execute
        set JMail = nothing
    elseif mailertype = 2 then

        ' importance = 0        ' lav
        importance = 1        ' normal
        ' importance = 2        ' høj

        Set mailObj = CreateObject("CDONTS.NewMail")
   
        ' send email med parametre : fra email, til email, header, besked, importance
        mailObj.Send "afsenders emailadresse", send("email"), request("header"), request("tekst"), importance

        ' slet reference til CDONTS object
        Set mailObj = Nothing
    end if


    response.write "<FONT FACE='Arial' SIZE='2' COLOR='#000000'><STRONG>E-mail er sendt til : "& send("email") &"</STRONG></FONT><BR>"
    send.movenext
  loop

  conn.close

  response.redirect("/wml/default.asp?emne=admin")

else 
'Send Test mail

    on error resume next
      if mailertype = 1 then
        Set JMail = Server.CreateObject("JMail.SMTPMail")
        ' This is my local SMTP server
        JMail.ServerAddress = "smtp.mail.dk"
   
        ' mail config settings
        JMail.Charset = "iso-8859-1"
        JMail.ContentTransferEncoding = "8bit"
       
        JMail.Sender = "rmo@pc.dk"
        JMail.Subject = request("header")
        JMail.AddRecipient "rmo@pc.dk"
        JMail.Body = request("tekst")
       
        ' 1 - highest priority (Urgent)
        ' 3 - normal
        ' 5 - lowest
       
        JMail.Priority = 3
       
        ' Send it...
        JMail.Execute
        set JMail = nothing
      elseif mailertype = 2 then

        ' importance = 0        ' lav
        importance = 1        ' normal
        ' importance = 2        ' høj

        Set mailObj = CreateObject("CDONTS.NewMail")
   
        ' send email med parametre : fra email, til email, header, besked, importance
        mailObj.Send "afsenders emailadresse", "rmo@pc.dk", request("header"), request("tekst"), importance

        ' slet reference til CDONTS object
        Set mailObj = Nothing
      end if

response.write("Test mail sendt")


End if



End if
if request("mode") <> "send" or request("testmail") <> "" then
%>
<CENTER>
<TABLE BORDER="0">
<form action="/wml/default.asp?emne=admin&emne2=nybrev" METHOD="POST">
<INPUT TYPE="hidden" NAME="mode" VALUE="send">
  <TR>
 
    <TD ALIGN="LEFT" class="nyhed">Overskrift:&nbsp;</TD>
    <TD ALIGN="LEFT">
    <INPUT TYPE="TEXT" NAME="header" SIZE="50" value="<%=Request.Form("header")%>">
    </TD>
  </TR>
  <TR>
    <TD ALIGN="RIGHT" VALIGN="TOP" class="nyhed">Tekst:&nbsp;</TD>
    <TD ALIGN="LEFT">
    <TEXTAREA COLS="45" ROWS="15" NAME="tekst"><%=Request.Form("tekst")%></TEXTAREA>
    </TD>
  </TR>
  <TR>
    <TD ALIGN="LEFT">
    &nbsp;
    </TD>
    <TD ALIGN="RIGHT">    <input type="submit" value="-- SEND --"><input type="submit" value="TEST MAIL" name="testmail"> </TD>
  </TR>
</FORM>
</TABLE>
</CENTER>
<% end if %>
</BODY>
</HTML>
Avatar billede eagleeye Praktikant
20. august 2004 - 01:15 #24
Så må du helere rette den tilbage igen :)
Det ved jeg ikke helt hvordan man løser så. Resten af siden laves af default.asp men formen går forbi default.asp ved at havde en action som peger på sig selv.
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 12:15 morf bilede Af knuldefar1942 i Fri debat
07/0822:13 Gemme største værdi Af Lemming@privat.dk i Excel
07/0821:39 Kvindelig journalist ved DR - hvad er hendes navn. Af ErikHg i Fri debat
06/0817:10 Windows 10 Home 22H2 produktnøgle Af Uvanga i Windows
06/0817:10 Windows 10 Home 22H2 produktnøgle Af Uvanga i Windows
White papers
Flere white papers »