Nu er det lige sådan at det er et webhotel som jeg har det liggende på så jeg kan ikke ændre i Server.ScriptTimeout!!! Og det med at min side er lavet på en dårlig måde som gryn siger ved jeg sku ikke ... men hvis du er så klog så kan du jo lige kigge på den :-D
Her er min kode:
_________________________________________________________________________
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set rsRecordSet = Server.CreateObject("ADODB.Recordset")
Conn.Open "DBQ=" & Server.Mappath("Login.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
SQL = "SELECT Grupper.Gruppenavn, Bruger.Brugernavn, Bruger.Email, Bruger.Brugerkode, Bruger.Initial, Bruger.Fornavn, Bruger.Efternavn FROM Bruger INNER JOIN Grupper ON Bruger.Gruppenavn = Grupper.GruppeId"
rsRecordSet.Open SQL, Conn
do while not rsRecordSet.EOF
set JMail = server.createobject("JMail.SMTPMail")
JMail.sender = "Thomas@just2funny.dk"
JMail.SenderName = "Webmaster"
JMail.subject = "Login oplysninger til Havneparken 1 Intranet side"
JMail.AddRecipient rsRecordSet("Email")
JMail.ContentType = "text/plain"
JMail.body = "Kære "&rsRecordSet("Fornavn")&" "&rsRecordSet("Efternavn")&" "&VbCrLf&""&VbCrLf&"Dit brugernavn er: "&rsRecordSet("Brugernavn")&""&VbCrLf&"Dit kodeord er: "&rsRecordSet("Brugerkode")&""&VbCrLf&"Gruppenavn: "&rsRecordSet("Gruppenavn")&""&VbCrLf&"Navn: "&rsRecordSet("Fornavn")&" "&rsRecordSet("Efternavn")&""&VbCrLf&"Initial: "&rsRecordSet("Initial")&""&VbCrLf&""&VbCrLf&"Første del af Internetportalen for Havneparken 1 er nu klar til brug. Du kan få adgang til den eksterne del af portalen på adressen:"&VbCrLf&"
http://www.havneparken1vejle.dk"&VbCrLf&"Via den eksterne del kan du få adgang til den interne del af portalen ved at klikke på Login. Når Login billedet kommer op taster du dit brugernavn og dit kodeord ind. Første gang skal du trykke på ændring af adgangskode for at ændre din personlige adgangskode. Alle faciliteterne på nær booking af mødelokaler og bestilling af køkkenservice er klar til brug. Bookingsystemerne er under udvikling. Hvis der er fejl i overstående data bedes du venligst kontakte mig."&VbCrLf&""&VbCrLf&"Med venlig hilsen"&VbCrLf&"Thomas"&VbCrLf&"Thomas@just2funny.dk"
JMail.priority = 1
JMail.maildomain = "mail.just2funny.dk"
JMail.silent = true
JMail.execute
JMail.close()
rsRecordSet.movenext
loop
rsRecordSet.Close
Conn.Close
Set rsRecordSet = Nothing
Set Conn = Nothing
%>
Der er nu sendt en mail til alle brugerne i databasen!
_________________________________________________________________________