ik heb een script dat mijn formulier wegschrijft in een db en tevens
doorstuurd naar mijn mail, maar ik krijg maar telkens een van deze acties
aan het werken, hangt er van af welke ik eerst zet . Bijgevoegd het script
dat de db laat werken


<%
if Request.form("Submit")<> "Submit" then

%>
<%
else

strdate=date
stronderneming=Request.form("onderneming")
strcontact=Request.form("contact")
strtelefoon=Request.form("telefoon")
strfax=Request.form("fax")
stremail=Request.form("email")
stradres=Request.form("adres")
strpostcode=Request.form("postcode")
strgemeente=Request.form("gemeente")

Set objConn = Server.CreateObject("ADODB.Connection")
ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("/data/contact.mdb")
objConn.Open ConnectionString

sqlQuery = "SELECT * FROM contact"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open sqlQuery, objConn, 1, 2


objRS.AddNew
objRS("onderneming")=stronderneming
objRS("contact")=strcontact
objRS("telefoon")=strtelefoon
objRS("fax")=strfax
objRS("email")=stremail
objRS("submitdate")=strdate
objRS("adres")=stradres
objRS("postcode")=strpostcode
objRS("gemeente")=strgemeente

objRS.Update
objRS.Close
Set objRS = Nothing

End If
%>
<%



' change to address of your own SMTP server
strHost = "localhost"

' We use AspUpload component to capture uploaded file and access other form
items.
' Because of the special ENCTYPE attribute we can no longer use
Request.Form,
' we must use Upload.Form instead.
' More more info on AspUpload, visit www.aspupload.com.


Set Upload = Server.CreateObject("Persits.Upload")
Upload.IgnoreNoPost = True

' capture an upload and save uploaded files (if any) in temp directory
Upload.Save "C:\Program
Files\Sphera\ServerDirector\accounts\blsolutions.b e\WWW\upload"

' Note that we cannot use Upload.Form or Upload.Files until Upload.Save is
called.
If Upload.Form("Send") <> "" Then

Set Mail = Server.CreateObject("Persits.MailSender")
Mail.From = Upload.Form("email")
Mail.FromName = "data translations website"
Mail.Host = strHost
Mail.Subject = Upload.Form("Subject")
Mail.AddAddress "l.detournay@pandora.be"
Mail.Body ="Volgende gegevens werden verstuurd via uw Nederlandstalige
website, BROCHURE:" & vbCrLf &vbCrLf & "bedrijf: " &
Upload.Form("onderneming") & vbCrLf &vbCrLf & "Contactpersoon: " &
Upload.Form("contact") & vbCrLf &vbCrLf & "Adres: " & Upload.Form("adres") &
vbCrLf &vbCrLf & "Gemeente: " & Upload.Form("gemeente") & vbCrLf &vbCrLf &
"postcode: " & Upload.Form("postcode") & vbCrLf &vbCrLf & "Telefoon: " &
Upload.Form("telefoon") & vbCrLf &vbCrLf & "Fax: " & Upload.Form("fax") &
vbCrLf &vbCrLf & "E-Mail: " & Upload.Form("email") & vbCrLf &vbCrLf






' Check if a file was ineed uploaded

If Not Upload.Files("Attachment") Is Nothing Then

Mail.AddAttachment
Upload.Files("Attachment").Path

End If


' We are done. Send message
Mail.Send

Response.Write Upload.Form("contact") & "<br> Bedankt voor uw interesse
in Data Translations <br> Onze brochure wordt u vandaag met de post
toegezonden.."
End If

%>