<% 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 %> Bjarne Pape Biler - Kundelogin
LOGIN TIL DIN
PERSONLIGE SIDE
HER KAN DU LOGGE PÅ DIN PERSONLIGE SIDE
Englandsvej 382 * 2770 Kastrup * Tlf. 32 52 32 32 * e-mail: biler@bjarnepape.dk * www.bjarnepape.dk
Englandsvej 382 * 2770 Kastrup * Tlf. 32 52 32 32 * e-mail: biler@bjarnepape.dk * www.bjarnepape.dk
Brugernavn:
Password:
Glemt dit password? FÅ ET NYT HER
Har du ikke et login endnu?
Bestil dit login lige her og nu...
Bestil
Tilmeld dig
nyhedsbrev
Book en
prøvetur
Book et
værkstedsbesøg
På din personlige side kan du booke værkstedsbesøg, prøveture, finde oplysninger om din bil, dine værkstedsbesøg, holde dine kontaktdata og interesser ved lige, deltage i konkurrencer, få specialtilbud, invitationer og meget meget mere....

Når du logger ind, behøver du f.eks. ikke udfylde alle dine og din bils kontaktdata, vi genkender automatisk det hele når du logger ind.
Det sparer dig for en del tid når du f.eks.vil booke tid til din bil på værkstedet.
Login til din
egen side