/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
Form to mail med ASP
Fra : Lars Hørmann


Dato : 15-06-01 15:43

Jeg har store problemer med at modtage indholdet fra en formmail
til min mailadrese.
Det drejer sig om disse sider:

www.sloejd-fyn.dk/pages/Links.asp (selve formmailen)
www.sloejd-fyn.dk/form2mail.asp (Scriptet)

Mailadressen hvor jeg ønsker at modtage indholdet er:
hoermann@sol.dk

Håber der er nogen som kan hjælpe!!

--
Brug Validator service: http://www.html.dk/validator
- Tast din URL én gang, og validér dokumentet hos 12 validatorer
- Understøtter HTML, CSS og søgemaskineoptimering

 
 
Lars Hoffmann (15-06-2001)
Kommentar
Fra : Lars Hoffmann


Dato : 15-06-01 16:02

"Lars Hørmann" wrote:
>
> Jeg har store problemer med at modtage indholdet fra en formmail
> til min mailadrese.

Du må da lige komme med noget kildekode, da vi ellers ikke kan gætte
hvor problemet er.

--
/Lars

HTML software: <http://go.to/HTMLEasyColors>
Brug venligst Re: og ikke Sv: ved svar, da beskeder
der begynder med Sv: bliver slettet fra mange servere

Lars Hørmann (15-06-2001)
Kommentar
Fra : Lars Hørmann


Dato : 15-06-01 16:17


> Du må da lige komme med noget kildekode, da vi ellers ikke kan
gætte
> hvor problemet er.

Naturligvis !!
<%

' build particulars
method = Request.ServerVariables("HTTP_METHOD")
recipient = Request("recipient")
Subject = Request("Subject")
excludeflds = split(Request("exclude"),",")
fromemail = "website@sloejd-fyn.dk"
defemail = "hoermann@sol.dk" '" &
trim(Replace(Request.ServerVariables("HTTP_HOST"),"www.",""))
redirect = Request("redirect")
mailserver = Request("mailserver")
' set defaults if not specified
If mailserver = "" Then
mailserver = defmailserver
End If
If redirect = "" Then
redirect = "http://" & Request.ServerVariables("HTTP_HOST")
End If
If subject = "" Then
Subject = "Results of form posted from " &
Request.ServerVariables("HTTP_REFERER") & " - " & now()
End If
If recipient = "" Then
recipient = defemail
End If
If fromemail = "" Then
fromemail = defemail
End If
' determine the method of the form (post
' or get)
Select Case lcase(method)
   Case "post"
      'build a delimited list of the field names
      For Each fld In Request.Form
         ' remove the fieldnames of the email configuration fields
         Select Case lcase(fld)
            Case
"exclude","email","subject","recipient","redirect","mailserver"
            ' Do nothing
            Case Else
               tmpfldnames = tmpfldnames & fld & ","
         End Select
      Next
   Case "get"
      'build a delimited list of the field names
      For Each fld In Request.QueryString
         ' remove the fieldnames of the email configuration fields
         Select Case fld
            Case "exclude","email","subject","recipient"
            ' Do nothing
            Case Else
               tmpfldnames = tmpfldnames & fld & ","
         End Select
      Next
End Select
' remove the trailing comma
If mid(tmpfldnames,len(tmpfldnames),1) = "," Then
   tmpfldnames = mid(tmpfldnames,1,len(tmpfldnames)-1)
End If
' build an array of the fieldnames
fldarray = split(tmpfldnames,",")
' build the message header
bodytext = "Form results posted " & now() & vbcrlf &
"=-=-=-=-=-=-=-=-=-=-=--=-=-=-=-=-=-=-=-=-=-=-=-" & vbcrlf
' cycle through all of the fields
For Each fld In fldarray
   PrintFld = True
   ' exclude fields In the exclude list
   For Each checkfld In excludeflds
      If trim(lcase(checkfld)) = trim(lcase(fld)) Then
         PrintFld = False
      End If
   Next
' continue building the mail message wit
' h the form results
If PrintFld = True Then
   bodytext = bodytext & fld & ": " & request(fld) & vbcrlf
End If
next
sentbin =
sendmail("website@sloejd-fyn.dk",recipient,subject,bodytext)
Select Case sentbin
   Case True
      Response.Redirect(redirect)
   Case False
      Response.write("Der forekom problemer ved afsendelse af
formularen, tryk ""tilbage"" og prøv venligst igen!.")
End Select

   
Function SendMail(From,Rcpt,Subject,Body)
Set objMailer = CreateObject("CDONTS.Newmail")
objMailer.From = From
objMailer.To = Rcpt
objMailer.Subject = Subject
objMailer.Body = Body
objMailer.Send
Set objMailer = Nothing
SendMail = true
End Function
%>


--
Brug Validator service: http://www.html.dk/validator
- Tast din URL én gang, og validér dokumentet hos 12 validatorer
- Understøtter HTML, CSS og søgemaskineoptimering

Søg
Reklame
Statistik
Spørgsmål : 177557
Tips : 31968
Nyheder : 719565
Indlæg : 6408869
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste