Hej Jokkejensen!
Jeg bruger selv en ganske godt script. Jeg har lige copy pastet hele kildekoden, håber du kan bruge det til noget!
Mvh
Michael
-------------
<%
Response.Buffer = true
Dim password, brugernavn, pass
If Session("password") = "" or Session("brugernavn") = "" then
Session("password") = Request.Form("password")
Session("brugernavn") = Request.Form("brugernavn")
end if
%>
<% If session("password") = "Brugernavn" and session("brugernavn") = "Password" then %>
<html>
<head>
<title>Maillingliste</title>
</head>
<body bgcolor=White>
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="100%" colspan=2>
Du skal have outlook som dit standard emailprogram for at bruge denne funktion.<br>
info@dinside.dk modtager mailen<br>
info@enandenside.dk modtager mailen CC<br>
Alle abonnementer modtager mailen BCC<br>
<%
Conn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb") & ";UID=admin;PWD=;"
Set myConn = Server.CreateObject("ADODB.Connection")
strSQL = "SELECT email FROM maillingliste"
myConn.Open Conn
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
Response.Write "<A HREF='mailto:info@megalagersalg.dk?cc=info@moden.nu&bcc="
Do While Not rs.EOF
Response.Write rs("email") & ";"
rs.MoveNext
Loop
Response.Write "'>Email alle på maillinglisten</A>"
Else
Response.Write "Der er endnu ikke nogle emails i databasen endnu"
End If
myConn.Close
Set myConn = Nothing
%>
</td>
</tr>
</table>
</body>
</html>
<%Else%>
<html>
<Head>
<title>Maillingliste</title>
</head>
<body bgcolor=White>
<table border="0" cellpadding="0" cellspacing="0">
<tr align="center">
<form method="POST" action="udsend.asp?pass=1" id=form1 name=form1>
<td> </td>
<td valign="middle" align="left">
<br>Indtast venligst oplysningerne i følgende felter: <br>
</td>
</tr>
<tr>
<td valign="middle" align="left"><div align="right"><p><B>Password tast 1 </B></td>
<td valign="middle" align="left"><input type="text" name="password" size="20"></td>
</tr>
<tr>
<td valign="top" align="left"><div align="right"><p><B>Brugernavn tast 2 </B></td>
<td valign="middle" align="left"><input type="text" name="brugernavn" size="20"></td>
</tr>
<tr>
<td> </td>
<td valign="middle" align="left"><br>
<input type="submit" value="OK" name="OK">
<input type="button" value="Annuller" name="Annuller" onClick="java script:history.back();"></td>
</form>
</tr>
</table>
</body>
</html>
<% End If %>
