inkt, navullen, navulservice, refil, cartridge, toner, toners, lasercartridge, tonercartridge, inktpatronen, foto, pasfoto's, ontwikkelen, vhs op dvd, dia, negatieven digitaliseren, reprodukties, foto op canvas, snelservice. Tip: InkOutlet is al jaren de inktspecialist van Groningen!
InkOutlet Fotoservice | Nieuwe Ebbingestraat 8 | 9712NK Groningen | KvK 50502336
BTWnr. NL169680216B01 | Tel. 050 - 313 6793 | E-mail: ink(at)inkoutlet.nl
Open: ma 13-18u, di/vr 09-18u za 09-17u
© InkOutlet 2005 - 2012
InkOutlet Navulservice InkOutlet Navulservice
InkOutlet Inkt Navulservie InkOutlet Inkt Navulservie
Pasfoto's Pasfoto's
Digitaliseren Digitaliseren
Canvas/posters Canvas/posters
Asadin online fotoservice Asadin online fotoservice
Algemene Voorwaarden
Naam:
Email:
Telefoon:
Opmerking:
Formaat:
Bestanden selecteren:
Wilt u meer dan 8 verschillende
foto's laten afdrukken? klik hier.
Ik ga akkoord met de algemene voorwaarden
Aantal:
1

2

3

4

5

6

7

8
TIP: U kunt in plaats van een fotobestand, ook een gecomprimeerd bestand (zip/rar) met meerdere foto's uploaden voor één bepaald formaat/aantal.
Verwerkingskosten per opdracht € 1,50
<% Function ValidateEmail(email) Dim regEx Set regEx = New RegExp regEx.IgnoreCase = False regEx.Pattern = "^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$" ValidateEmail = regEx.Test(email) End Function Function IsInternalField(value) IsInternalField = False Dim internalFieldsArray(3) Dim lvalue internalFieldsArray(0) = "submit" internalFieldsArray(1) = "reset" internalFieldsArray(2) = "send" lvalue = LCase(value) Response.Write lvalue For Each item In internalFieldsArray If item = lvalue Then IsInternalField = True End If Next End Function If Request.ServerVariables("REQUEST_METHOD") = "POST" Then On Error Resume Next Dim strMailTo Dim strMailFrom Dim strSubject Dim strBody Dim strSuccessUrl Dim strErrorUrl Dim strError Dim strLine strMailTo = "yourname@yourdomain.com" strMailFrom = Request.Form("email") If strMailFrom = "" Then strMailFrom = strMailTo End If strSubject = "Contact Information" strBody = "Values submitted from web site form:" strSuccessUrl = "success.html" strErrorUrl = "error.html" strError = "" If ValidateEmail(strMailFrom) <> True Then Response.Redirect strErrorUrl Response.End End If strBody = strBody & vbCrLF For each inputField in Request.Form If IsInternalField(inputField) <> True Then For each inputValue in Request.Form(inputField) strLine = inputField & " : " & inputValue & vbCrLF strBody = strBody & strLine Next End If Next Dim mailObject Set mailObject = CreateObject("CDO.Message") If err.number <> 0 Then Response.redirect error_url Response.End End If mailObject.To = strMailTo mailObject.From = strMailFrom mailObject.Subject = strSubject mailObject.TextBody = strBody ' dim mailConfig ' set mailConfig = CreateObject("CDO.Configuration") ' mailConfig.Fields(cdoSendUsingMethod) = cdoSendUsingPort ' mailConfig.Fields(cdoSMTPServer) = "smtp_server_name" ' mailConfig.Fields(cdoSMTPServerPort) = 25 ' mailConfig.Fields(cdoSMTPConnectionTimeout) = 10 ' mailConfig.Fields(cdoSMTPAuthenticate) = cdoBasic ' mailConfig.Fields(cdoSendUserName) = "username" ' mailConfig.Fields(cdoSendPassword) = "password" ' mailConfig.Fields.Update ' set mailObject.configuration = mailConfig mailObject.Send If err.number <> 0 Then Response.Redirect strErrorUrl else Response.Redirect strSuccessUrl end if Set mailObject = Nothing Response.End End If %>