if not Mailer.SendMail then Response.Write " Mailing Failed... Error is: <br>" Response.Write Mailer.Response else Response.Write " sent successfully...<p>" end if
Set Mailer = nothing %>
</body> </html>
Well, den er jo ganske fin, og jeg fandt ud af jeg slap for den SENDT side, eller TAK side eller hvad man nu skal kalde den.
Men. Jeg har siddet og prøvet at lave om i den, der skal nemlig ikke skrives en modtager, det skal den gerne ordne selv. Derudover skal der være tjek på felterne, så man får a vide om man er kommet til at skrive forkert, jeg tror nok det hedder validering af email, post nr osv. Der må fx ikke være bogstaver i postnr.
Nogle der gider give en hånd med og hjælpe mig til at få lavet et sådan script?
function checkEmailAdr(emailAdr) Dim regEx Set regEx = New RegExp regEx.Pattern="^([a-zA-Z0-9_\-\.]+)([a-zA-Z0-9])@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$" regEx.IgnoreCase = True checkEmailAdr = regEx.Test(emailAdr) set regEx = nothing end function
Til validering af et nummer kan du fx bruge:
function checkNumber(iNumber,minLength,maxLength) checkNumber=false if isnumeric(iNumber) then if len(cstr(iNumber))>=minLength and len(cstr(iNumber))<=maxLength then checkNumber=true end if end if end function
zembla, du løste en lille smule af mit problem, men ikke det hele. Det har jeg fået løst andet sted, Så derfor får du heller ikke alle points.
Men tak for hjælpen :o)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.