STARTPAGINA OMGEVING CULTUUR VAKANTIE LINKS NIEUW VRAAG EN ANTWOORD CONTACT    Zoeken: op internet op deze site

Startpagina Voeg een link toe       Zoek een link       Meld een gebroken link <% brokenlink = request.form("brokenlink") if brokenlink <> "" then receivermail = "bart@blueskyprop.com" subject = "Broken link" senderemail = "system@123worldprop.com" message = "" message = message & "" & VbCrLf message = message & "" & VbCrLf message = message & "" & VbCrLf message = message & "" & VbCrLf message = message & "" & VbCrLf message = message & "" & VbCrLf message = message & "" & VbCrLf message = message & "Name: "&brokenlink&"" & VbCrLf message = message & " " message = message & "" & VbCrLf message = message & " " & VbCrLf message = message & "" & VbCrLf ' localq for domains in MDaemon, remoteq for external domains queue = "remote" '··· Open DB ··· Call OpenDBmail(1,connm,rsm) SQLSTMT = "SELECT * FROM Domains" rsm.Open SQLSTMT,connm do while not rsm.EOF D_name = rsm("D_name") D_name = URLDecode(D_name) if instr(receivermail,D_name) > 0 then queue = "local" end if rsm.movenext loop 'response.write queue & " " Set objMail = Server.CreateObject("CDONTS.NewMail") '*** Begin versturen e-mail objMail.Importance = 2 objMail.To = ""&receivermail&" <"&receivermail&">" objMail.From = ""&senderemail&" " objMail.Value("Reply-To") = ""&senderemail&" <"&senderemail&">" objMail.Subject = subject objMail.BodyFormat=0 objMail.MailFormat=0 objMail.Body = message objMail.Send Set objMail = Nothing folder = "c:\inetpub\mailroot\pickup" Function ShowFolderList(folderspec) Dim fs, f, f1, fc, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(folderspec) Set fc = f.Files teller = 1 For Each f1 in fc filename = f1.name filename = replace(filename,".eml",".msg") ' Rename ******************* ' Const ForReading = 1, ForWriting = 2, ForAppending = 8 dim objFS, objFile ' initializing variables ' Creating the instance of the FileSystemObject form the scripting object. set objFS = Server.CreateObject ("Scripting.FileSystemObject") 'Check if the file is existing ' If objFS. FileExists ("c:\debugfile.txt") then objFS. MoveFile "c:\inetpub\mailroot\pickup\"&f1.name, "c:\mdaemon\"&queue&"q\"&filename ' end if '******************** Next ShowFolderList = s End Function ShowFolderList(folder) '******* Einde versturen e-mail response.write "Bedankt, de beheerder zal het controleren en indien nodig de link verbeteren of verwijderen. " end if %> Disclaimer | Copyright | Foto's | Bibliografie | Contact | Wettelijke vermelding

Bijzondere vakantie-huizen in Andalusië. Accommodaties op rustige lokaties, bijna alle voorzien van een privé-zwembad. Spaans leren in Spanje. Bijzondere vakantie-huizen in Andalusië. Accommodaties op rustige lokaties, bijna alle voorzien van een privé-zwembad. Bijzondere vakantie-huizen in Andalusië. Accommodaties op rustige lokaties, bijna alle voorzien van een privé-zwembad. Spaans leren in Spanje.