Hej NG!
I en kontakt formular hvor der er enkelte felter som er påkrævet
ønsker jeg:
1.) at man bliver directed til en side hvis man ikke udfylder
formularen forkert - eller hvis man blot submitter uden indhold!
2.) at ekskludere felter som SEND og SLET i afsendelsen.
Herunder er formularen og under den, det ASP script jeg bruger
til at maile med. (ikke noget jeg selv har lavet, men tiltusket
mig!)
på forhånd TAK!
Venligst Lars Hørmann
<form method="post" action="/form2mail.asp" name="Kontakt"
target="_self">
<input type="hidden" name="recipient" value=xx@xx>
<input type="hidden" name="subject" value="Kontakt
ønskes">
<input type="hidden" name="redirect"
value="kontakt_tak.asp">
<input type="text" name="Navn" size="18">
<input type="text" name="Telefon" size="18">
<input type="text" name="Mail" size="18">
<textarea name="Angående" rows="4"
cols="25"></textarea>
<input type="radio" name="Opringning" value="Ja" checked>
<input type="radio" name="Opringning" value="Nej">
<input type="image" src="/Images/Send.gif" alt="Send"
border="0"
name="SEND" width="50" height="15
a href="#"><img src="/Images/Slet.gif"
onClick="Kontakt.reset();"
width="50" height="15" alt="SLET" border="0">
</form>
<%
' build particulars
method = Request.ServerVariables("HTTP_METHOD")
recipient = Request("recipient")
Subject = Request("Subject")
excludeflds = split(Request("exclude"),",")
fromemail = ""
defemail = ""
'" &
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 = "" & 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(fromemail,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
%>
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials