cdo script

  • Thread starter Thread starter SS
  • Start date Start date
S

SS

Can anyone point me in the right direction for a script that sends to an
access database and email please?

I've searched but not luck except with cdonts.

Thanks Shona
 
You are going to have write a custom script that does both.

In your IE address bar type:

? Sending Email with CDOSYS

--
==============================================
Thomas A. Rowe
Microsoft MVP - FrontPage
==============================================
Agents Real Estate Listing Network
http://www.NReal.com
==============================================
 
Thanks I have a custom script which are both fine if done separately but put
together I get an error message appear. That is why I thought I would
hopefully find a link and start from scratch but most of the links appear to
be about CDONTS if to both or only to mail if cdosys or cdo.

Cheers Shona
 
Whats the error message?

: Thanks I have a custom script which are both fine if done
separately but put
: together I get an error message appear. That is why I
thought I would
: hopefully find a link and start from scratch but most of
the links appear to
: be about CDONTS if to both or only to mail if cdosys or
cdo.
:
: Cheers Shona
:
:
 
Thanks for getting back to me

The error is

Microsoft VBScript compilation error '800a0400'

Expected statement

Softwareanddatabase.asp, line 73

Option Explicit
^Although the only place Option Explicit is on the first lineCheers
 
For using CDO see http://www.interlacken.com/winnt/tips/tipshow.aspx?tip=46

--

_____________________________________________
SBR @ ENJOY (-: [ Microsoft MVP - FrontPage ]
"Warning - Using the F1 Key will not break anything!" (-;
To find the best Newsgroup for FrontPage support see:
http://www.frontpagemvps.com/FrontPageNewsGroups/tabid/53/Default.aspx
_____________________________________________


| Thanks for getting back to me
|
| The error is
|
| Microsoft VBScript compilation error '800a0400'
|
| Expected statement
|
| Softwareanddatabase.asp, line 73
|
| Option Explicit
| ^Although the only place Option Explicit is on the first lineCheers
| | > Whats the error message?
| >
| > | > : Thanks I have a custom script which are both fine if done
| > separately but put
| > : together I get an error message appear. That is why I
| > thought I would
| > : hopefully find a link and start from scratch but most of
| > the links appear to
| > : be about CDONTS if to both or only to mail if cdosys or
| > cdo.
| > :
| > : Cheers Shona
| > :
| > :
| >
| >
|
|
 
OK great thanks got that to work but when I try to add the create a database
connection it comes up with

An error occurred accessing your Windows SharePoint Services site files.

Unfortunately we are not allowed to use this

Any suggestions would be welcome

Cheers Shona
 
Hi

I think I'm nearly there and have now changed some of the scripting. I now
get the information to go to the database and the mail arrives with the
field names but not the information that was typed into the fields !

Do hope someone can help?



<!--
METADATA
TYPE="typelib"
UUID="CD000000-8B95-11D1-82DB-00C04FB1625D"
NAME="CDO for Windows 2000 Library"
-->

<%


Dim sTextBody
Dim sName



Set cdoConfig = CreateObject("CDO.Configuration")


sTextBody = sTextBody & "Name: " & Request("sName") & VbCrLf



With cdoConfig.Fields
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "rb-smtp-int.bosch.com"
.Update
End With



Dim objMail
'Create the mail object
Set objMail = Server.CreateObject("CDO.Message")
'Set key properties
objMail.From = "(e-mail address removed)"
objMail.To = "(e-mail address removed)"
objMail.Subject = "Software Required"
objMail.TextBody = sTextBody


objMail.Send



' End If

Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>


<%
Session("FP_OldCodePage") = Session.CodePage
Session("FP_OldLCID") = Session.LCID
Session.CodePage = 1252
Err.Clear

strErrorUrl = ""

If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
If Request.Form("VTI-GROUP") = "0" Then
Err.Clear

Set fp_conn = Server.CreateObject("ADODB.Connection")
FP_DumpError strErrorUrl, "Cannot create connection"

Set fp_rs = Server.CreateObject("ADODB.Recordset")
FP_DumpError strErrorUrl, "Cannot create record set"

fp_conn.Open Application("Name_ConnectionString")
FP_DumpError strErrorUrl, "Cannot open database"

fp_rs.Open "Results", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic,
adCmdTable
FP_DumpError strErrorUrl, "Cannot open record set"

fp_rs.AddNew
FP_DumpError strErrorUrl, "Cannot add new record set to the database"
'Dim arFormFields0(8)
' Dim arFormDBFields0(8)
' Dim arFormValues0(8)


arFormFields0(4) = "sName"
arFormDBFields0(4) = "sName"
arFormValues0(4) = Request("sName")


FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0


fp_rs.Update
FP_DumpError strErrorUrl, "Cannot update the database"

fp_rs.Close
fp_conn.Close

FP_FormConfirmation "text/html; charset=windows-1252",_
"Form Confirmation",_
"Thank you for submitting the following information:",_
"sendmail1.asp",_
"Return to the form."

End If
End If

Session.CodePage = Session("FP_OldCodePage")
Session.LCID = Session("FP_OldLCID")

%>

<p>&nbsp;</p>
<p>&nbsp;</p>
<form method="POST" action="--WEBBOT-SELF--">
<!--webbot bot="SaveDatabase" SuggestedExt="asp" S-DataConnection="name"
S-RecordSource="Results" U-Database-URL="../fpdb/name.mdb"
S-Form-Fields="sName" S-Form-DBFields="sName" -->
<p>
<input type="text" name="sName" size="20"></p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p><input type="submit" value="Submit" name="B1"><input type="reset"
value="Reset" name="B2"></p>
</form>

Thanks Shona
 
Back
Top