Håller på med ett formulär med mailkomponenten CDONTS. Jag vill inte ha några fält obligatoriska och har därför inte lagt in någon kod som checkar fälten. Problemet är att formulöret inte skickar någon data alls om inte alla fält är ifyllda. Alltså - hur gör man för att folk ska kunna skicka från mitt formulär utan att ha fyllt i alla fält? Vänd på din frågeställning istället. Är det intressant för dig att ta imot någonting som inte är korrekt ifyllt? I detta fall måste from-adressen vara en adress som din smtp-server tillåter att sända ifrån. Mottagaren måste också vara en adress, annars skickar inte programmet nåt mail. Så dessa två fält är det minsta som måste vara ifyllt.Formulär med CDONTS
/Erik
<%
din_mail = "testtest.test"
return_url = "tack.asp"
Dim CDOMail
Set CDOMail = Server.CreateObject("CDONTS.NewMail")
CDOMail.From = Request.Form("email")
CDOMail.To = din_mail
CDOMail.Bcc = ""
CDOMail.Subject = "Fråga"
CDOMail.Body = "Detta mail skickades från hemsidan" & vbcrlf & vbcrlf&_
"Namn: " & Request.Form("namn") & vbcrlf&_
"Adress: " & Request.Form("adress") & vbcrlf&_
"Telefon: " & Request.Form("telefon") & vbcrlf&_
"E-postadress: " & Request.Form("email") & vbcrlf & vbcrlf&_
"Skickades: " & now & "" & vbcrlf & vbcrlf&_
"Fråga från " & Request.Form("namn") & ":" & vbcrlf&_
"------------------------------------------------" & vbcrlf&_
"" & Request.Form("texten") & "" & vbcrlf&_
"------------------------------------------------"
CDOMail.Send
Set CDOMail = Nothing
Response.Redirect return_url
%>Sv: Formulär med CDONTS
För min privata del så tycker inte jag det, utan jag skulle istället göra en felkontroller som checkar av
om allt är korrekt ifyllt.Sv:Formulär med CDONTS