| | |
| |
Active Server Pages asp search engine active server page asp application components tutorial CJWSoft ASPProtect ASPBanner ASPClassifieds
(Advanced)
(Components)
(Database)
(General)
(Vbscript)
|
|
|
|
Subject: |
Problems using CDO |
|
From: |
Pieter |
|
Date: |
8/16/2000 7:14:54 AM |
|
IP: |
195.121.197.188 |
I have got a problem using CDO.
Ive made a VBscript wich I think is correct, but its just not working.
I dont get any errormessages, and any e-mail adress I have tried isnt
receiving any mail.
The webserver is using NT4.0 (service pack 6) with IIS4.0 and NT Option Pack installed
(with the SMTP piece installed)
Im not sure if its option pack 4 but then again its not returning error messages.
The server is also used as an Exchange Server.
Im using the following script.
<%
dim vnaam, anaam, bnaam, straat, wplaats, pcode, tnum, fnum, email, strkop, strtot
strkop = "Aanmeldformulier"
vnaam = request.form("voornaam")
anaam = request.form("achternaam")
bnaam = request.form("naam_bedrijf")
straat = request.form("straat")
wplaats = request.form("plaats")
pcode = request.form("postcode")
tnum = request.form("Telnum")
fnum = request.form("Faxnum")
email = request.form("Email")
strtot = strkop & "<br>" & vnaam & " " & anaam & "<br>" & bnaam & "<br>" & straat & "<br>" & wplaats & "<br>" & pcode & "<br>" & tnum & "<br>" & fnum & "<br>"& email
Dim objMail
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.To = "info@futec.nl"
objMail.From = email
objMail.Subject = "Aanmeldingsformulier " & anaam
objMail.Body = strtot
objMail.BodyFormat = 0
objMail.Mailformat = 0
objMail.Send
response.write "Uw aanvraag is verzonden"
Set objMail=Nothing
%>
Can somebody please help me about this pro |
Follow Up - Re: Problems using CDO - Akhilesh 8/28/2000 2:38:51 PM
Follow Up - Re: Problems using CDO - Pavan 9/1/2000 4:24:40 AM
|
|
|
|
|
|
