Fra ASP til PHP - Nogle som vil lave det her om til php
Hej,Fra ASP til PHP... - Nogle som vil lave det her om til php
Hvis det ikke kan lad sig gøre, så det nok med et nyhedsbrev script som kan udsende HTML email,
-----------------------------------------------
<form action="Nyhedsbrev.asp" style="margin:0px; padding:0px "><input type="text" style="width:160px; height:18px; font-family:tahoma; font-size:11px; border:1px solid #6D6D6D" size="20" name="TxtNyhedsbrev" value="email@email.dk"><br>
<br style="line-height:4px ">
<table border="0" width="160" cellspacing="1" cellpadding="0">
<tr>
<td width="100"><input name="CmdFrameld" type="image" src="images/frameld.jpg" width="59" height="20" align="right"></td>
<td width="60"><input name="CmdTilmeld" type="image" src="images/submit.jpg" width="59" height="20" align="right"></td>
</tr>
</table>
</form>
-----------------------------
nyhedsbrev.asp:
<%
'---------------------------------------
If Request.QueryString("CmdTilmeld") <> "" Then
'---------------------------------------
SQL = "SELECT * " &_
"FROM Nyhedsbrev"
Set RS = DBConn.Execute(SQL)
findes = false
While not RS.eof
If lcase(RS("Email")) = lcase(Request.QueryString("TxtNyhedsbrev")) Then findes = true
RS.MoveNext
Wend
gyldig = true
If lcase(Request.QueryString("TxtNyhedsbrev")) = "email@email.dk" Then gyldig = false
If lcase(Request.QueryString("TxtNyhedsbrev")) = "" Then gyldig = false
If InStr(Request.QueryString("TxtNyhedsbrev"), "@") = 0 Then gyldig = false
If InStr(Request.QueryString("TxtNyhedsbrev"), ".") = 0 Then gyldig = false
If gyldig = true Then
If findes = false Then
SQL = "INSERT INTO Nyhedsbrev " &_
"VALUES ('" & lcase(Request.QueryString("TxtNyhedsbrev")) & "')"
DBConn.Execute(SQL)
%>
<font size="4">
Tak for din tilmelding!</font><br>
<br>
<p>
Du vil fremover få tilsendt en e-mail når der er nyt på hjemmesiden.<br>
Beskeden bliver sendt til e-mail adressen: <b><% =Request.QueryString("TxtNyhedsbrev") %></b><br>
</p>
<p>Med venlig hilsen</p>
<p>AFSENDER
<%
End if
If findes = true Then
%>
<font size="4">
Allerede tilmeldt!</font><br>
<br>
<p>
Du er allerede tilmeldt nyhedsbrevet.<br>
Beskederne bliver sendt til e-mail adressen: <b><% =Request.QueryString("TxtNyhedsbrev") %></b><br>
</p>
<p>Med venlig hilsen</p>
<p>AFSENDER
<%
End if
Else
%>
<font size="4">
Ugyldig e-mail adresse!</font><br>
<br>
<p>
Den indtastede email adresse er ikke gyldig!<br>
Skriv venligst en korrekt e-mail adresse.<br>
</p>
<p>Med venlig hilsen</p>
<p>AFSENDER
<%
End if
%>
<%
'---------------------------------------
End if
'---------------------------------------
%>
<%
'---------------------------------------
If Request.QueryString("CmdFrameld") <> "" Then
'---------------------------------------
SQL = "DELETE FROM Nyhedsbrev " &_
"WHERE (Email = '" & lcase(Request.QueryString("TxtNyhedsbrev")) & "')"
DBConn.Execute(SQL)
%>
<font size="4">
Du er nu frameldt!</font><br>
<br>
<p>
Du vil fremover IKKE få tilsendt en e-mail når der er nyt på hjemmesiden.<br>
E-mail adresse som er frameldt: <b><% =Request.QueryString("TxtNyhedsbrev") %></b><br>
</p>
<p>Med venlig hilsen</p>
<p>AFSENDER
<%
'---------------------------------------
End if
'---------------------------------------
%>
---------------------------
Admin kode til at afsende nyhedsbrevet:
<%
Server.ScriptTimeOut = 3600
Session("FaaetNhb") = ""
for each optID in request.form("LstMed")
'-------------------------------------------
Dim objMail
Set objMail = Server.CreateObject("JMail.Message")
objMail.FromName = "Nyhedsbrev AFSENDER"
objMail.From = "nyhedsbrev@domæne.dk"
objMail.AddRecipient optID
objMail.Subject = "Nyhedsbrev fra AFSENDER"
objMail.Body = "SKRIV NYHEDSBREV HER"
objMail.Logging = True
objMail.Silent = True
objMail.Send("mail.domæne.dk")
'-------------------------------------------
next
Response.Write("Nyhedsbreve sendt!")
%>
