problem send emails using pacmail

cs97jjm3 · #1 (**permalink**) 11-04-03, 07:15 AM

I have download pacmail and re configered it about two months agao and i have had to more server and haviong problem with one script can anyone help keep getting message
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

/maillist/send.asp, line 12
all other DB work fine.

here is code
<% Response.Buffer = True %>
<%
writeby = "<a href='index.asp'>RETURN TO MAIN PAGE</a>"
SQL_query4 = "SELECT MAX(ID) as issue FROM sentmail"
Set RS3 = Conn.Execute(SQL_query4)
SQL_query = "INSERT INTO sentmail (subject,content) VALUES ('" & Replace(request.form("subj"),"'","''") & "','" & Replace(request.form("cont"),"'","''") & "')"
Conn.Execute(SQL_query)
SQL_query2 = "SELECT * FROM standard"
Set RS = Conn.Execute(SQL_query2)
SQL_query3 = "SELECT Users.x_firstname, Users.x_lastname, Users.x_email, Users.Availablelocum FROM Users WHERE (((Users.ActiveAccount)=Yes) AND ((Users.vacancies_If_Yes_I_would_like_to_be_contac ted_by_email)=Yes))"
Set RS2 = Conn.Execute(SQL_query3)

SQL_query14 = "SELECT TOP 1 results.Contact_Name, results.PracticeName, results.Surgery_Address_including_Postcode, results.Direct_Line_Number, results.email_address, Results.Advert_starts, results.Date_advert_ends FROM results ORDER BY results.ID DESC;"
Set RS13 = Conn.Execute(SQL_query14)

%>
<html>

<head>
<title>Sent Mail</title>
<link rel="stylesheet" type="text/css" href="../nelg.css">
<meta name="Microsoft Theme" content="copy-of-quadrant 1110, default">
</head>

<body leftmargin="100" marginwidth="100" topmargin="10" marginheight="10">

<%
subj = "Rapid Email from www.nelg.org.uk # " & RS3("issue") & " " & Request.Form("subj")
mess = Request.Form("cont")
Dim messArr(7)
messArr(1) = mess & chr(13) & chr(13)
messArr(2) = RS("adp") & chr(13) & chr(13)
messArr(3) = RS("ad1") & chr(13) & chr(13)
messArr(4) = RS("ad2") & chr(13) & chr(13)
messArr(5) = RS("ad3") & chr(13) & chr(13)
messArr(6) = RS("defaultsig") & chr(13) & chr(13)
messArr(7) = RS("remo")

iCount = 0
For i = 1 To 7
iCount = iCount+1
If messArr(iCount) > " " Then
finalmess = finalmess & messArr(iCount)
End If
Next

oto = RS2("x_email")
comefrom = RS("adminemail")
gotoname = RS2("x_firstname")

While NOT RS2.EOF

Dim ObjMail
Set ObjMail = Server.CreateObject("CDONTS.NewMail")
ObjMail.To = RS2("x_email")
ObjMail.From = comefrom
ObjMail.Subject = subj
ObjMail.Body = "Hello, " & RS2("x_firstname") & ", A new vacancy has been posted on NELG website by: " & RS13("Contact_Name") & ", for the practice: " & RS13("PracticeName") & " address: " & RS13("Surgery_Address_including_Postcode") & ", The direct line number is: " & RS13("Direct_Line_Number") & " email address: " & RS13("email_address")& " This post starts on: " & RS13("Advert_starts")& " and will be removed from the NELG website on: " & RS13("Date_advert_ends") & vbcrlf & vbcrlf & finalmess
ObjMail.Send
Set ObjMail = Nothing
RS2.MoveNext
WEND

%> 

</body>

</html>
<%
Conn.Close
Set RS = Nothing
Set RS2 = Nothing
Set RS3 = Nothing
Response.Redirect "../practice/your_post.htm"
%>