prøv det her:
<%
' Declaring variables
Dim name, email, country, comments, data_source, con, sql_insert
' A Function to check if some field entered by user is empty
Function ChkString(string)
If string = "" Then string = " "
ChkString = Replace(string, "'", "''")
End Function
' Receiving values from Form
dato = ChkString(Request.Form("dato"))
tekst = ChkString(Request.Form("tekst"))
emne = ChkString(Request.Form("emne"))
data_source = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../have.mdb")
sql_insert = "insert into have (dato, tekst, emne) values ('" & date & "', '" & tekst & "', '" & emne & "' )"
' Creating Connection Object and opening the database
Set con = Server.CreateObject("ADODB.Connection")
con.Open data_source
con.Execute sql_insert
' Done. Close the connection
con.Close
Set con = Nothing
Response.Write "Linket er tilføjet<br><br>"
Response.Write "<a href=""../default.asp?emne=admin"">link</a><br><br>" %>
Response.Write "<a href=""write_send.asp?mode=new&dato="&date&""">send det nye brev</a>" %>
''************* write_send.asp ***********''
<HTML>
<HEAD>
<TITLE>Mailingliste</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000">
<%
if request("mode") = "send" or request("mode") = "new" then
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "DBQ="&(Server.MapPath(".")) &"\som4u.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
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@privat.dk"
if request("mode") = "send" then
JMail.Subject = request("header")
JMail.AddRecipient send("email")
JMail.Body = request("tekst")
elseif request("mode") = "new" then
SQL = "SELECT * from have WHERE dato = '" & request("dato") & "'"
set newMail = conn.execute( SQL )
JMail.Subject = newMail("emne")
JMail.AddRecipient send("email")
JMail.Body = newMail("tekst")
end if
' 1 - highest priority (Urgent)
' 3 - normal
' 5 - lowest
JMail.Priority = 3
' Send it...
JMail.Execute
set JMail = 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
else
%>
<CENTER>
<TABLE BORDER="0">
<form action="write_send.asp" METHOD="POST">
<INPUT TYPE="hidden" NAME="mode" VALUE="send">
<TR>
<TD ALIGN="LEFT">
<FONT FACE="Arial" SIZE="2" COLOR="#000000"><STRONG>
Overskrift:
</STRONG></FONT>
</TD>
<TD ALIGN="LEFT">
<INPUT TYPE="TEXT" NAME="header" SIZE="50">
</TD>
</TR>
<TR>
<TD ALIGN="RIGHT" VALIGN="TOP">
<FONT FACE="Arial" SIZE="2" COLOR="#000000"><STRONG>
Tekst:
</STRONG></FONT>
</TD>
<TD ALIGN="LEFT">
<TEXTAREA COLS="45" ROWS="15" NAME="tekst"></TEXTAREA>
</TD>
</TR>
<TR>
<TD ALIGN="LEFT">
</TD>
<TD ALIGN="RIGHT">
<input type="submit" value="-- SEND --">
</TD>
</TR>
</FORM>
</TABLE>
</CENTER>
<% end if %>
</BODY>
</HTML>
