<% @ LANGUAGE = VBSCRIPT %> <% '##################################################### '### Afsendelse af email via Jmail4 ASP komponent ### '### Programmeret af Kim Sundbæk, Web Solutions ### '### (C)2000 Alle rettigheder forbeholdes ### '### http://www.web-solutions.dk ### '### verson 1.2.2 ### '##################################################### ' ' Standard variabler som benyttes i scriptet: ' ' emne = emne på email ' ok = ok side når mail er sendt ' fejl = fejlside hvis mail ikke sendes ' modtager = email på modtager af mail ' email = email adresse på afsender af email ' dataorder = felter som skal printes i mail ' ' Ovenstående variabler sættes ind i HTML formularen Dim intResult, intResultRev, intLenght, Lenghtdiff, Data, a_strData, i IF NOT request.form("dataorder") = "" THEN Data = request.form("dataorder") a_strData = Split(Data, ",") ELSE %> Fejlside

 

Der er ikke specificeret nogen "dataorder".


Kontakt venligst <% = request.form("modtager") %> for at få rettet fejlen.

Tilbage

<% END IF intResult = InStr( request.form("email"), "@") intResultRev = InStrRev( request.form("email"), ".") intLenght = Len( request.form("email") ) Lenghtdiff = intLenght - intResultRev If Lenghtdiff > 4 or intResultRev = 0 or intResult = 0 Then %> <% If request.form("fejl") <> "" Then Response.Redirect request.form("fejl") Else %> Fejlside

 

Den indtastede e-mail adresse er tilsyneladende ikke gyldig.

Tilbage

<% End If %> <% else Set JMail = Server.CreateObject( "JMail.Message" ) JMail.Logging = true JMail.silent = true JMail.From = request.form("email") JMail.Subject = request.form("emne") JMail.AddRecipient request.form("modtager") JMail.body = "Følgende data var sendt: " & vbcrlf & vbcrlf For i = 0 To UBound(a_strData) JMail.appendtext ( a_strData(i) & ": " & Request.form(a_strData(i)) & vbcrlf ) NEXT 'JMail.Send( "wsmail.web-solutions.eu" ) IF NOT JMail.Send( "wsmail.web-solutions.eu" ) THEN response.write "
" & JMail.log & "
" END IF '##################################################### If request.form("ok") = "" Then Response.Redirect "http://www." & request.form("domain") Else response.redirect request.form("ok") End if End if %>