Question

CDOSYS send email to multiple recipients if recordset not null

Asked by: garethtnash

Hello Experts, Would appreciate a little help with a CDOSYS query, I have a page that runs a Stored Procedure, generates a number of recordsets, sends a confirmation email (using CDOSYS) should send an email of the SP insert to all recipents and finally does an additional insert, i was using an Dreamweaver Extension to send the second email, but as the data sent for the insert is not sent through a browser I can no longer do this, as the extension requires HTTP _USER_AGENT.

So what I want to do is replace the section begining -
<%
' Smart Mailer 1.0.8
' Send on load

With a new (second)
<%
Dim ObjSendMail

However this email is only generated and sent if recordset jbeusers is not null, additionally it should be sent to every record in jbeusers, and you will see that it is a HTML email....

I hope I have explained myself well enough, and hope you can offer a little guidance.

Many thanks

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../Connections/recruta2.asp" -->
<!--#include file="../ScriptLibrary/incSmartMailer.asp" -->
<!--#include file="../WA_DataAssist/WA_AppBuilder_VB.asp" -->
<%Session.Contents.Remove("SITEID")%>
<%Session.Contents.Remove("NEWVACANCY")%>
<%Session.Contents.Remove("NEWVACANCYCATEGORY")%>
<%Session.Contents.Remove("NEWVACANCYLOCATION")%>
<%Session.Contents.Remove("NEWVACANCYDESCRIPTION")%>
<%Session.Contents.Remove("CONKERSEMAIL")%>
<%Session.Contents.Remove("EMPLOYEENAME")%>
<%Session.Contents.Remove("EMPLOYEEUSERNAME")%>
<%Session.Contents.Remove("EMPLOYEEID")%>
<%Session.Contents.Remove("JBESENT")%>
<%Session("SITEID") = "30"%>
<%Session("NEWVACANCY") = Request.QueryString("jobtitle")%>
<%Session("NEWVACANCYCATEGORY") = Request.QueryString("Category")%>
<%Session("NEWVACANCYLOCATION") = Request.QueryString("Location")%>
<%Session("NEWVACANCYDESCRIPTION") = Request.QueryString("jobdescription")%>
<%Session("CONKERSEMAIL") = Request.QueryString("conkeremail")%>
<%
Dim username__MMColParam
username__MMColParam = "%"
If (Request.QueryString("username")   <> "") Then 
  username__MMColParam = Request.QueryString("username")  
End If
%>
<%
Dim username__MMColParam2
username__MMColParam2 = "%"
If (Request.QueryString("password")   <> "") Then 
  username__MMColParam2 = Request.QueryString("password")  
End If
%>
<%
Dim username__MMColParam3
username__MMColParam3 = "30"
If (Session("SITEID")  <> "") Then 
  username__MMColParam3 = Session("SITEID") 
End If
%>
<%
Dim username
Dim username_cmd
Dim username_numRows
 
Set username_cmd = Server.CreateObject ("ADODB.Command")
username_cmd.ActiveConnection = MM_recruta2_STRING
username_cmd.CommandText = "SELECT JBEUsername, JBEName, JBEID FROM dbo.JBEmployee WHERE JBEUsername = ? AND JBEPassword = ? AND JBESiteID = ?" 
username_cmd.Prepared = true
username_cmd.Parameters.Append username_cmd.CreateParameter("param1", 200, 1, 255, username__MMColParam) ' adVarChar
username_cmd.Parameters.Append username_cmd.CreateParameter("param2", 200, 1, 255, username__MMColParam2) ' adVarChar
username_cmd.Parameters.Append username_cmd.CreateParameter("param3", 5, 1, -1, username__MMColParam3) ' adDouble
 
Set username = username_cmd.Execute
username_numRows = 0
%>
<%Session("EMPLOYEENAME") = username.Fields.Item("JBEName").Value%>
<%Session("EMPLOYEEUSERNAME") = username.Fields.Item("JBEUsername").Value%>
<%Session("EMPLOYEEID") = username.Fields.Item("JBEID").Value%>
<%
 
Dim Conkers__username
Conkers__username = "0"
if(Request.QueryString("username") <> "") then Conkers__username = Request.QueryString("username")
 
Dim Conkers__password
Conkers__password = "0"
if(Request.QueryString("password") <> "") then Conkers__password = Request.QueryString("password")
 
Dim Conkers__siteid
Conkers__siteid = "0"
if(Session("SITEID") <> "") then Conkers__siteid = Session("SITEID")
 
Dim Conkers__jobtitle
Conkers__jobtitle = "0"
if(Request.QueryString("jobtitle") <> "") then Conkers__jobtitle = Request.QueryString("jobtitle")
 
Dim Conkers__jobdescription
Conkers__jobdescription = "0"
if(Request.QueryString("jobdescription") <> "") then Conkers__jobdescription = Server.HTMLEncode(Request.QueryString("jobdescription"))
 
Dim Conkers__Payrate
Conkers__Payrate = "0"
if(Request.QueryString("Payrate") <> "") then Conkers__Payrate = Server.HTMLEncode(Request.QueryString("Payrate"))
 
Dim Conkers__Location
Conkers__Location = "0"
if(Request.QueryString("Location") <> "") then Conkers__Location = Request.QueryString("Location")
 
Dim Conkers__Category
Conkers__Category = "0"
if(Request.QueryString("Category") <> "") then Conkers__Category = Request.QueryString("Category")
 
Dim Conkers__JonType
Conkers__JonType = "0"
if(Request.QueryString("JonType") <> "") then Conkers__JonType = Request.QueryString("JonType")
 
Dim Conkers__reference
Conkers__reference = "0"
if(Request.QueryString("reference") <> "") then Conkers__reference = Request.QueryString("reference")
 
Dim Conkers__startdate
Conkers__startdate = "0"
if(Request.QueryString("startdate") <> "") then Conkers__startdate = Request.QueryString("startdate")
 
Dim Conkers__conkeremai
Conkers__conkeremai = "0"
if(Request.QueryString("conkeremail") <> "") then Conkers__conkeremai = Request.QueryString("conkeremail")
 
%>
<%
 
set Conkers = Server.CreateObject("ADODB.Command")
Conkers.ActiveConnection = MM_recruta2_STRING
Conkers.CommandText = "dbo.conker"
Conkers.CommandType = 4
Conkers.CommandTimeout = 0
Conkers.Prepared = true
Conkers.Parameters.Append Conkers.CreateParameter("@RETURN_VALUE", 3, 4)
Conkers.Parameters.Append Conkers.CreateParameter("@username", 200, 1,225,Conkers__username)
Conkers.Parameters.Append Conkers.CreateParameter("@password", 200, 1,50,Conkers__password)
Conkers.Parameters.Append Conkers.CreateParameter("@siteid", 3, 1,5,Conkers__siteid)
Conkers.Parameters.Append Conkers.CreateParameter("@jobtitle", 200, 1,50,Conkers__jobtitle)
Conkers.Parameters.Append Conkers.CreateParameter("@jobdescription", 200, 1,4000,Conkers__jobdescription)
Conkers.Parameters.Append Conkers.CreateParameter("@Payrate", 200, 1,250,Conkers__Payrate)
Conkers.Parameters.Append Conkers.CreateParameter("@Location", 200, 1,50,Conkers__Location)
Conkers.Parameters.Append Conkers.CreateParameter("@Category", 200, 1,50,Conkers__Category)
Conkers.Parameters.Append Conkers.CreateParameter("@JonType", 200, 1,50,Conkers__JonType)
Conkers.Parameters.Append Conkers.CreateParameter("@reference", 200, 1,50,Conkers__reference)
Conkers.Parameters.Append Conkers.CreateParameter("@startdate", 200, 1,50,Conkers__startdate)
Conkers.Parameters.Append Conkers.CreateParameter("@conkeremai", 200, 1,225,Conkers__conkeremai)
Conkers.Execute()
 
%>
<%
Dim jbeusers__MMColParam
jbeusers__MMColParam = "0"
If (Session("SITEID")  <> "") Then 
  jbeusers__MMColParam = Session("SITEID") 
End If
%>
<%
Dim jbeusers__MMColParam2
jbeusers__MMColParam2 = "%"
If (Session("NEWVACANCYLOCATION")  <> "") Then 
  jbeusers__MMColParam2 = Session("NEWVACANCYLOCATION") 
End If
%>
<%
Dim jbeusers__MMColParam3
jbeusers__MMColParam3 = "%"
If (Session("NEWVACANCYCATEGORY")   <> "") Then 
  jbeusers__MMColParam3 = Session("NEWVACANCYCATEGORY")  
End If
%>
<%
Dim jbeusers__MMColParam4
jbeusers__MMColParam4 = "%"
If (Session("NEWVACANCYDESCRIPTION")   <> "") Then 
  jbeusers__MMColParam4 = Session("NEWVACANCYDESCRIPTION")  
End If
%>
<%
Dim jbeusers
Dim jbeusers_cmd
Dim jbeusers_numRows
 
Set jbeusers_cmd = Server.CreateObject ("ADODB.Command")
jbeusers_cmd.ActiveConnection = MM_recruta2_STRING
jbeusers_cmd.CommandText = "SELECT * FROM dbo.JBEmailNotification WHERE JBENsiteID = ? AND JBENlocation = ? AND JBENcategory = ? AND ? like '%' + JBENKeyword + '%'" 
jbeusers_cmd.Prepared = true
jbeusers_cmd.Parameters.Append jbeusers_cmd.CreateParameter("param1", 5, 1, -1, jbeusers__MMColParam) ' adDouble
jbeusers_cmd.Parameters.Append jbeusers_cmd.CreateParameter("param2", 200, 1, 255, jbeusers__MMColParam2) ' adVarChar
jbeusers_cmd.Parameters.Append jbeusers_cmd.CreateParameter("param3", 200, 1, 255, jbeusers__MMColParam3) ' adVarChar
jbeusers_cmd.Parameters.Append jbeusers_cmd.CreateParameter("param4", 200, 1, 4000, jbeusers__MMColParam4) ' adVarChar
 
Set jbeusers = jbeusers_cmd.Execute
jbeusers_numRows = 0
%>
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "0"
If (Session("SITEID")  <> "") Then 
  Recordset1__MMColParam = Session("SITEID") 
End If
%>
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows
 
Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_recruta2_STRING
Recordset1_cmd.CommandText = "SELECT JBSSiteID, JBSMetaTitle, JBSLogo, JBSMetaKeywords, JBSMetaDescription, JBSHomePageText, JBSURL, JBSURLShort, JBSNoReplyEmail FROM dbo.JBSite WHERE JBSSiteID = ?" 
Recordset1_cmd.Prepared = true
Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 5, 1, -1, Recordset1__MMColParam) ' adDouble
 
Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>
<%
Dim USERS__MMColParam
USERS__MMColParam = "0"
If (Session("SITEID")  <> "") Then 
  USERS__MMColParam = Session("SITEID") 
End If
%>
<%
Dim USERS__MMColParam2
USERS__MMColParam2 = "%"
If (Session("NEWVACANCYLOCATION")  <> "") Then 
  USERS__MMColParam2 = Session("NEWVACANCYLOCATION") 
End If
%>
<%
Dim USERS__MMColParam3
USERS__MMColParam3 = "%"
If (Session("NEWVACANCYCATEGORY")   <> "") Then 
  USERS__MMColParam3 = Session("NEWVACANCYCATEGORY")  
End If
%>
<%
Dim USERS__MMColParam4
USERS__MMColParam4 = "%"
If (Session("NEWVACANCYDESCRIPTION")   <> "") Then 
  USERS__MMColParam4 = Session("NEWVACANCYDESCRIPTION")  
End If
%>
<%
Dim USERS
Dim USERS_cmd
Dim USERS_numRows
 
Set USERS_cmd = Server.CreateObject ("ADODB.Command")
USERS_cmd.ActiveConnection = MM_recruta2_STRING
USERS_cmd.CommandText = "SELECT COUNT(JBENusername) As USERS FROM dbo.JBEmailNotification WHERE JBENsiteID = ? AND JBENlocation = ? AND JBENcategory = ? AND ? like '%' + JBENKeyword + '%'" 
USERS_cmd.Prepared = true
USERS_cmd.Parameters.Append USERS_cmd.CreateParameter("param1", 5, 1, -1, USERS__MMColParam) ' adDouble
USERS_cmd.Parameters.Append USERS_cmd.CreateParameter("param2", 200, 1, 255, USERS__MMColParam2) ' adVarChar
USERS_cmd.Parameters.Append USERS_cmd.CreateParameter("param3", 200, 1, 255, USERS__MMColParam3) ' adVarChar
USERS_cmd.Parameters.Append USERS_cmd.CreateParameter("param4", 200, 1, 4000, USERS__MMColParam4) ' adVarChar
 
Set USERS = USERS_cmd.Execute
USERS_numRows = 0
%>
<%
Dim VACANCY__MMColParam
VACANCY__MMColParam = "0"
If (Session("NEWVACANCY") <> "") Then 
  VACANCY__MMColParam = Session("NEWVACANCY")
End If
%>
<%
Dim VACANCY__MMColParam2
VACANCY__MMColParam2 = "0"
If (Session("EMPLOYEEID") <> "") Then 
  VACANCY__MMColParam2 = Session("EMPLOYEEID")
End If
%><%
Dim VACANCY__MMColParam3
VACANCY__MMColParam3 = "0"
If (Session("SITEID") <> "") Then 
  VACANCY__MMColParam3 = Session("SITEID")
End If
%><%
Dim VACANCY
Dim VACANCY_cmd
Dim VACANCY_numRows
 
Set VACANCY_cmd = Server.CreateObject ("ADODB.Command")
VACANCY_cmd.ActiveConnection = MM_recruta2_STRING
VACANCY_cmd.CommandText = "SELECT JBAID, JBAEmployeeID, JBASiteID, JBATitle, JBADatePosted, JBADescription, JBAPayRate, JBALocation, JBAEmplymentType, JBAReference, JBAConkersEmail FROM dbo.JBAdvert WHERE JBATitle = ? AND JBAEmployeeID = ? AND JBASiteID = ? AND JBADatePosted BETWEEN DATEADD(mi, -3, GETDATE()) AND GETDATE()" 
VACANCY_cmd.Prepared = true
VACANCY_cmd.Parameters.Append VACANCY_cmd.CreateParameter("param1", 200, 1, 255, VACANCY__MMColParam) ' adVarChar
VACANCY_cmd.Parameters.Append VACANCY_cmd.CreateParameter("param2", 5, 1, -1, VACANCY__MMColParam2) ' adDouble
VACANCY_cmd.Parameters.Append VACANCY_cmd.CreateParameter("param3", 5, 1, -1, VACANCY__MMColParam3) ' adDouble
 
Set VACANCY = VACANCY_cmd.Execute
VACANCY_numRows = 0
%>
<%Session("JBESENT") = (USERS.Fields.Item("USERS").Value)%>
<%
Dim ObjSendMail
Dim iConf
Dim Flds
Set ObjSendMail = Server.CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup"
Flds.Update
EmployeeName=(Session("EMPLOYEENAME"))
Vacancy=(VACANCY("JBATitle"))
URLShort=(Recordset1("JBSURLShort"))
ReplyMail=(Recordset1("JBSNoReplyEmail"))
ConkerEmail=(VACANCY("JBAConkersEmail"))
RecEmail=(username("JBEUsername"))
Set ObjSendMail.Configuration = iConf
ObjSendMail.To = RECEmail
ObjSendMail.Subject = "Job Advert " & Vacancy & " posted on  " & URLShort
ObjSendMail.From = ReplyMail
if VACANCY("JBAConkersEmail")="" then
ObjSendMail.Bcc = ConkerEmail
else
end if
ObjSendMail.ReplyTo = APEmail     
ObjSendMail.TextBody = "Dear " & EmployeeName & "," & vbCRLF & "" & vbCRLF & "Your vacancy titled " & Vacancy & " has successfully been posted on " & URLShort & "" & vbCRLF & "" & vbCRLF & "Kind regards"
ObjSendMail.Send
     
Set ObjSendMail = Nothing
%>
<%
' Smart Mailer 1.0.8
' Send on load
Server.ScriptTimeout = 300
Set sm1 = new SmartMailer
sm1.checkVersion "1.08"
sm1.contentCharset = "iso-8859-1"
Session.CodePage = sm1.getCodepage()
sm1.smtpSetup "", "", "", ""
sm1.pickup = ""
sm1.component = "cdo"
sm1.tmpFolder = ""
sm1.embedImages = true
sm1.progressBar = ""
sm1.ignore_errors = true
sm1.useQueue = false
sm1.setFrom Recordset1.Fields.Item("JBSURLShort").Value, Recordset1.Fields.Item("JBSNoReplyEmail").Value
Set sm1.toRecord = jbeusers
sm1.toRecordName = "JBENname"
sm1.toRecordEmail = "JBENusername"
sm1.total_mail = sm1.getTotalRecords(jbeusers)
while not sm1.toRecord.EOF
  sm1.setTo sm1.toRecord.Fields.Item(sm1.toRecordName).Value, sm1.toRecord.Fields.Item(sm1.toRecordEmail).Value
  sm1.Subject = "" & (VACANCY.Fields.Item("JBATitle").Value) & " advertised on " & (Recordset1.Fields.Item("JBSURLShort").Value) & ""
  ' using template for body
  sm1.setBody_Template_html "../jobseeker/afterregistration/vacancynotification.asp?ID=" & (VACANCY.Fields.Item("JBAID").Value) & ""
  ' Attachments none
  sm1.sendMail "multiple"
  jbeusers.MoveNext()
Wend
sm1.done()
%>
<%
' WA Application Builder Insert
if ("" = "")  then
  WA_connection = MM_recruta2_STRING
  WA_table = "dbo.JBESent"
  WA_sessionName = "JBESent_JBESID"
  WA_redirectURL = "success.asp"
  WA_keepQueryString = false
  WA_indexField = "JBESID"
  WA_fieldNamesStr = "JBESSiteID|JBESJobID|JBESLocation|JBESCategory|JBESReceipients"
  WA_fieldValuesStr = "" & cStr( Session("SITEID") ) & "" & "|" & "" & cStr((VACANCY.Fields.Item("JBAID").Value)) & "" & "|" & "" & cStr( Session("NEWVACANCYLOCATION") ) & "" & "|" & "" & cStr( Session("NEWVACANCYCATEGORY") ) & "" & "|" & "" & cStr( Session("JBESENT") ) & ""
  WA_columnTypesStr = "none,none,NULL|none,none,NULL|',none,''|',none,''|none,none,NULL"
  WA_comparisonStr = " = | = | LIKE | LIKE | = "
  WA_fieldNames = Split(WA_fieldNamesStr,"|")
  WA_fieldValues = Split(WA_fieldValuesStr,"|")
  WA_columns = Split(WA_columnTypesStr,"|")
  WA_comparisions = Split(WA_comparisonStr, "|")
 
  insertParamsObj = WA_AB_generateInsertParams(WA_fieldNames, WA_columns, WA_fieldValues, -1)
  set MM_editCmd = Server.CreateObject("ADODB.Command")
  MM_editCmd.ActiveConnection = WA_connection
  MM_editCmd.CommandText = "INSERT INTO " & WA_table & " (" & insertParamsObj(1) & ") VALUES (" & insertParamsObj(2) & ")"
  MM_editCmd.Execute()
  MM_editCmd.ActiveConnection.Close()
  obj = WA_AB_generateWhereClause(WA_fieldNames, WA_columns, WA_fieldValues, WA_comparisions)
  sqlstr = "SELECT " & WA_indexField & " FROM " & WA_table & " WHERE " &  obj & " ORDER BY " & WA_indexField & " DESC"
  set WA_AppBuilderRecordset = Server.CreateObject("ADODB.Recordset")
  WA_AppBuilderRecordset.ActiveConnection = WA_connection
  WA_AppBuilderRecordset.Source = sqlstr
  WA_AppBuilderRecordset.CursorType = 0
  WA_AppBuilderRecordset.CursorLocation = 2
  WA_AppBuilderRecordset.LockType = 1
  WA_AppBuilderRecordset.Open()
  if (NOT WA_AppBuilderRecordset.EOF)  then  Session(WA_sessionName) = WA_AppBuilderRecordset.Fields.Item(WA_indexField).Value
  WA_AppBuilderRecordset.Close()
  if (WA_redirectURL <> "")  then
    if (WA_keepQueryString AND Request.QueryString <> "" AND Request.QueryString.Count > 0) then
      if (inStr(WA_redirectURL,"?") > 0)  then
        WA_redirectURL = WA_redirectURL & "&"
      else
        WA_redirectURL = WA_redirectURL & "?"
      end if
      WA_redirectURL = WA_redirectURL & Request.QueryString
    end if
    Response.Redirect(WA_redirectURL)
  end if
end if
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them
 
If (jbeusers_total = -1) Then
 
  ' count the total records by iterating through the recordset
  jbeusers_total=0
  While (Not jbeusers.EOF)
    jbeusers_total = jbeusers_total + 1
    jbeusers.MoveNext
  Wend
 
  ' reset the cursor to the beginning
  If (jbeusers.CursorType > 0) Then
    jbeusers.MoveFirst
  Else
    jbeusers.Requery
  End If
 
  ' set the number of rows displayed on this page
  If (jbeusers_numRows < 0 Or jbeusers_numRows > jbeusers_total) Then
    jbeusers_numRows = jbeusers_total
  End If
 
  ' set the first and last displayed record
  jbeusers_first = 1
  jbeusers_last = jbeusers_first + jbeusers_numRows - 1
  
  If (jbeusers_first > jbeusers_total) Then
    jbeusers_first = jbeusers_total
  End If
  If (jbeusers_last > jbeusers_total) Then
    jbeusers_last = jbeusers_total
  End If
 
End If
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>vacancypost</title>
<meta name="Robots" content="noindex,nofollow" />
</head>
 
<body>
<%=(VACANCY.Fields.Item("JBATitle").Value)%>
</body>
</html>
<%
username.Close()
Set username = Nothing
%>
<%
jbeusers.Close()
Set jbeusers = Nothing
%>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
USERS.Close()
Set USERS = Nothing
%><%
VACANCY.Close()
Set VACANCY = Nothing
%>

                                  
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284:
285:
286:
287:
288:
289:
290:
291:
292:
293:
294:
295:
296:
297:
298:
299:
300:
301:
302:
303:
304:
305:
306:
307:
308:
309:
310:
311:
312:
313:
314:
315:
316:
317:
318:
319:
320:
321:
322:
323:
324:
325:
326:
327:
328:
329:
330:
331:
332:
333:
334:
335:
336:
337:
338:
339:
340:
341:
342:
343:
344:
345:
346:
347:
348:
349:
350:
351:
352:
353:
354:
355:
356:
357:
358:
359:
360:
361:
362:
363:
364:
365:
366:
367:
368:
369:
370:
371:
372:
373:
374:
375:
376:
377:
378:
379:
380:
381:
382:
383:
384:
385:
386:
387:
388:
389:
390:
391:
392:
393:
394:
395:
396:
397:
398:
399:
400:
401:
402:
403:
404:
405:
406:
407:
408:
409:
410:
411:
412:
413:
414:
415:
416:
417:
418:
419:
420:
421:
422:
423:
424:
425:
426:
427:
428:
429:
430:
431:
432:
433:
434:
435:
436:
437:
438:
439:
440:
441:
442:
443:
444:
445:
446:
447:
448:
449:
450:
451:
452:
453:
454:
455:
456:
457:
458:
459:
460:

Select allOpen in new window

This Question has been solved and asker verified All Experts Exchange premium technology solutions are available to subscription members.

Subscribe now for full access to Experts Exchange and get

Instant Access to this Solution

  • Plus...
  • 30 Day FREE access, no risk, no obligation
  • Collaborate with the world's top tech experts
  • Unlimited access to our exclusive solution database
  • Never be left without tech help again

Subscribe Now

Asked On
2009-07-06 at 07:31:31ID24546610
Tags

CDOSYS

Topic

Active Server Pages (ASP)

Participating Experts
2
Points
500
Comments
45

Trusted by hundreds of thousands everyday for fast, accurate and reliable tech support.

  • "The time we save is the biggest benefit of Experts Exchange to Warner Bros. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange." Mike Kapnisakis, Warner Bros.
  • "Our team likes having a resource that is more secure than just using Google and most experts using this service really know their stuff. It's nice to look here first versus using Google." Dayna Sellner, Lockheed Martin
  • "Anytime that I've been stumped with a problem, 9 out of 10 times Experts Exchange has either the accepted solution or an open discussion of the potential solution to the problem." Kenny Red, eBay Inc.

See what Experts Exchange can do for you.

Got a question?

We've got the answer.

Experts Exchange has been collecting answers to technology questions since 1996…3 million and counting! If you have a question, chances are we already have your answer.

Screenshot of Experts Exchange Knowledgebase

Need individual assistance?

Our experts are ready to help.

If you can't find the exact answer you're looking for, ask our exclusive community of 50,000 experts. You’ll get a personalized answer from a trusted professional.

Screenshot of Experts Exchange Knowledgebase

Want to learn from the best?

Read articles from industry experts.

Thousands of free tech tips, tricks, how-to’s and tutorials are available in our peer reviewed articles section. See for yourself how smart our experts are, no login required.

Screenshot of an Article

Working on a long term project?

Store your work and research.

Save solutions to your questions, answers you’ve discovered through searching plus helpful articles in your personal knowledgebase for easy future access.

Screenshot of Experts Exchange Knowledgebase

Access the answers to your technology questions today.

Subscribe Now

30-day free trial. Register in 60 seconds.

What Makes Experts Exchange Unique?

Members of the expert community talk about why the experience at Experts Exchange is different than what you will find anywhere else.

Trusted by the world's most respected brands.

image of each brand's logo

Faithfully serving IT professionals since 1996.

Experts Exchange Logo

Try it out and discover for yourself.

Subscribe Now

30-day free trial. Register in 60 seconds.

Related Solutions

  1. Recordset
    Hello Experts I want to create a recordset in dreamweaver If I create and advanced recordset Connection xxx SELECT * from Products it tests OK If I try to create a simple recordset a message appears Unable to retrieve tables from this connection click on define etc When...
  2. Dreamweaver Access recordset error
    Hello I have an access table with three fields CurrID Key Auto Number CurrName Text CurrRate double number I am trying to create a recordset in Dreamweaver but when I try to test this recordset I get an error message Syntax error in FROM clause. the sql is SELECT * FROM Cu...
  3. Dreamweaver PHP Recordset problem
    When trying to create a Recordset (under the Bindings tab in Dreamweaver 8) in a php page, I get the error: The Recordset script does not define the applyServerBehavior function I'm running Dreamweaver 8, Win 2003 Server, IIS 6, PHP 5.2, MySQL 5.0.27. I've installed Interak...
  4. Dreamweaver recordset
    When you create dreamweaver recordset Is it have a tolol to sumation in some colum
  5. Combining Recordsets in Dreamweaver
    How do I combine two recordsets into one in Dreamweaver? (MX2004) I am using PHP and MYSQL. Explanation: This is an events page. I have two recordsets, each one is pulling information from two identical tables located in separate databases (different connections), combining...

Free Tech Articles

  1. WARNING: 5 Reasons why you should NEVER fix a computer for free.
    It is in our nature to love the puzzle. We are obsessed. The lot of us. We love puzzles. We love the challenge. We thrive on finding the answer. We hate disarray. It bothers us deep in our soul. W...
  2. SCCM OSD Basic troubleshooting
    SCCM 2007 OSD is a fantastic way to deploy operating systems, however, like most things SCCM issues can sometimes be difficult to resolve due to the sheer volume of logs to sift through and the dispe...
  3. Migrate Small Business Server 2003 to Exchange 2010 and Windows 2008 R2
    This guide is intended to provide step by step instructions on how to migrate from Small Business Server 2003 to Windows 2008 R2 with Exchange 2010. For this migration to work you will need the fo...
  4. Create a Win7 Gadget
    This article shows you how to create a simple "Gadget" -- a sort of mini-application supported by Windows 7 and Vista. Gadgets can be dropped anywhere on the desktop to provide instant information, ...
  5. Outlook continually prompting for username and password
    There have been a lot of questions recently regarding Outlook prompting for a username and password whilst using Exchange 2007. There are a few reasons why this would happen and I will try to cover t...
  6. Backup Exchange 2010 Information Store using Windows Backup
    There seems to be quite a lot of confusion around the ability to backup Exchange 2010 using the built in Windows Backup feature. This stems from the omission of this feature prior to Exchange 2007 s...

Cloud Class Webinars

  1. Avoiding Bugs in Microsoft Access
    Alison Balter takes and in-depth look at avoiding bugs in Access. In this webinar you will learn about using the immediate window to debug your applications, invoking the debugger, using breakpoints to troubleshoot, stepping through code, setting the next statement to execute, ...
  2. Top 10 Best New Features in Visio 2010
    Scott Helmers gives live demonstrations of the top 10 new features in Visio 2010. This webinar will teach you how to create compelling diagrams by adding shapes to the page with a single click, linking the shapes in a diagram to data in Excel (or SQL Server, or SharePoint), ...
  3. IT Consultant Business Secrets Revealed
    Michael Munger, Experts Exchange tech pro and IT consultant, pulls back the curtain on his very successful businesses and answers question on every IT consultant and business owner should know about. He shares secrets on what he did to solve the 5 most common problems in IT, ...
  4. Disaster Recovery and Business Continuity
    Quest CTO, Mike Billon, gives an overview of the steps involved in building a dunamic disaster recovery plan. Through case studies and an examination of software/hardware tooles for monitoring and testing, you'll gain a better understandin of where you are, where you want ...
  5. Organize Your Visio Diagrams with Containers and Lists
    Scott Helmers uses cross functional flowcharts, wireframe diagrams, data graphic legends and seating charts to teach you: how to ustilize all three new structured diagram components in Visio 2010, the best practices for organizeing shapes in previous version of Visio, how to organize ...
  6. How to Us Objects, Properties, Events and Methods in Microsoft Access
    Alison Dalter gives an in-depbth look at objects, properties, events and methods in Microsoft Access. In this webinar you will learn about using the object browser, referring to objects, working with properties and methods, working with object variables, understanding the ...

Join the Community

Give a Little. Get a Lot.

Join the community of experts here and help other tech pros by answering question in your area of expertise. You can earn FREE access to all Experts Exchange's premium features and resources.

Join the Community

Answers

 

by: carrzkissPosted on 2009-07-06 at 20:12:33ID: 24791189

you would do this
<%if not jbeusers.eof then%>
Put your code to send using CDOSYS here
<%end if%>
If you are going to be doing an Insert, that needs to read if NULL is in the recordset as well.
Then add it right before the <%end if%> happens.

Hope that gets your started, if not let me know
And if I have the time I will try to assist further.

Back to getting this site done.
Carrzkiss

 

by: garethtnashPosted on 2009-07-07 at 02:44:52ID: 24792714

Two questions my friend, (but first hope you had a good July 4th weekend?)

As I'm already using Dim ObjSendMail will the second need to be like Dim ObjSendMail2?

Also as I am BCC ing multiple people, is there anything else I need to add to the BCC field? All People are from a recordset

Hope you are well my friend and not too stressed?

 

by: _Stilgar_Posted on 2009-07-07 at 08:11:51ID: 24794946

1.Yes.

2. I think you have AddReciepient equivallent to the BCC as well. If not, you can probably pass multiple e-mail addresses seperated by ;

 

by: carrzkissPosted on 2009-07-07 at 08:14:09ID: 24794966

It should be something like this.
(This is completely untested, so play around with it, and see if your can make it work
Into your actual Project)
Since I am not sure how your doing things, I cannot put it all together the way it should be.
Just look at the code.

This code will replace the
>>>    ' Smart Mailer 1.0.8

And if you need to do the INSERT after you send the mail, then add it at the end
I have added a not with the name of the INSERT right above the <%end if%>

----------
4th of July weekend was alright.
Spent it on the computer the entire weekend.
Did take out some time to cookout with my Son and Mother
Had to many things on my mind and could not stop working.
The site will be released later on this afternoon.
And the promotion starts on it "TODAY" so I have no other choice but to release it today.
(So, trying not to get stressed, trying that is)

Enjoy Gareth.
And like always, if you need assist, let me know.

Carrzkiss

<%if not jbeusers.eof then' This is where we start to look at the recordset, if it is not EMPTY, then we will send mail and insert some records%>
<%
Dim SMail
Dim MyConf
Dim MyFlds
Set SMail = Server.CreateObject("CDO.Message")
Set MyConf = CreateObject("CDO.Configuration")
Set MyFlds = MyConf.Fields
MyFlds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
MyFlds("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup"
MyFlds.Update
EmployeeName=(Session("EMPLOYEENAME"))
Vacancy=(VACANCY("JBATitle"))
URLShort=(Recordset1("JBSURLShort"))
ReplyMail=(Recordset1("JBSNoReplyEmail"))
ConkerEmail=(VACANCY("JBAConkersEmail"))
RecEmail=(username("JBEUsername"))
Set SMail.Configuration = MyConf
SMail.To = RECEmail
SMail.Subject = "Job Advert " & Vacancy & " posted on  " & URLShort
SMail.From = ReplyMail
if VACANCY("JBAConkersEmail")="" then
SMail.Bcc = ConkerEmail
else
end if
SMail.ReplyTo = APEmail     
SMail.TextBody = "Dear " & EmployeeName & "," & vbCRLF & "" & vbCRLF & "Your vacancy titled " & Vacancy & " has successfully been posted on " & URLShort & "" & vbCRLF & "" & vbCRLF & "Kind regards"
SMail.Send
     
Set SMail = Nothing
%>
<%'if you need to add in the INSERT to this, then you would put it here
' WA Application Builder Insert%>
<%end if%>

                                              
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

Select allOpen in new window

 

by: carrzkissPosted on 2009-07-07 at 08:40:49ID: 24795228

_Stilgar_:
You are correct, I forgot about that question.

Gareth
In your BCC area, you will want to use this code (Change it to suit your needs)

While Not objRs.EOF
response.Write ""&objRs("email_1")&";"
objRs.MoveNext
wend


This will add in all you names with a   ;
Between them.

Good Luck
Carrzkiss

 

by: garethtnashPosted on 2009-07-08 at 05:20:45ID: 24802896

Hi Guys,

Thanks for your help, i hope I have got this right, i've amended it a little as we are sending a HTML (webpage) email to the 'jobs by email' subscribers -

Please can you let me know whether this looks correct or not?

Many thanks

GTN

<%if not jbeusers.eof then' This is where we start to look at the recordset, if it is not EMPTY, then we will send mail and insert some records%>
<%
Dim SMail
Dim MyConf
Dim MyFlds
Set SMail = Server.CreateObject("CDO.Message")
Set MyConf = CreateObject("CDO.Configuration")
Set MyFlds = MyConf.Fields
MyFlds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
MyFlds("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup"
MyFlds.Update
Vacancy=(VACANCY("JBATitle"))
URLShort=(Recordset1("JBSURLShort"))
ReplyMail=(Recordset1("JBSNoReplyEmail"))
Set SMail.Configuration = MyConf
SMail.To = ReplyMail
SMail.Subject = "Job Advert " & Vacancy & " advertised on  " & URLShort
SMail.From = ReplyMail
SMail.Bcc = While Not jbeusers.EOF
response.Write ""& jbeusers ("JBENusername")&";"
jbeusers.MoveNext
wend 
SMail.ReplyTo = ReplyMail
SMail.CreateMHTMLBody = "../jobseeker/afterregistration/vacancynotification.asp?ID=" & (VACANCY.Fields.Item("JBAID").Value) & ""
SMail.Send
     
Set SMail = Nothing
%>
<%'if you need to add in the INSERT to this, then you would put it here
' WA Application Builder Insert%>
<%end if%>
                                              
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

Select allOpen in new window

 

by: carrzkissPosted on 2009-07-08 at 06:48:35ID: 24803703

OK.
I cannot for the life of me get the other code to work in this environment.
So.
The next best thing (Unless someone can get it to work the other way)
Is going to be

Loop through the recordset and send out indivisual emails to everyone within the
Criteria of the RecordSet.

I use this in my site that I am "Trying to finish and release, hopefully today???"
And it works like a complete charm.

So.
Give this as shot and see if you like it?

Carrzkiss

<%
if not jbeusers.eof then
do while not jbeusers.eof
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="webmaster@domain.com"
'myMail.Bcc= ""& jbeusers("JBENusername")&"; "
' If you decide to do it this way, It is going to be best to put the email in the TO instead of the BCC.
myMail.To= ""& jbeusers("JBENusername")&"; "
' The    do while not   and the    loop
' this is going to loop through and send the email to everyone that is on the list.
' If yo
myMail.TextBody="This is a message."
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
'Name or IP of remote SMTP server
 
' Make sure that when sending mail to other domains, that you are using the same SMTP Domain.com and User@domain.com
' They have to be the same, if not, they will end up in the Spam Folder of such sites as: Yahoo!<br>
' My personal nightmare.
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.domain.com"
'Server port
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
 
jbeusers.MoveNext 
Loop
Set jbeusers = nothing 
objConn.close
end if
%>

                                              
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:

Select allOpen in new window

 

by: garethtnashPosted on 2009-07-09 at 06:43:17ID: 24813497

Thanks mate, hope all went well for you yesterday?

Just to confirm, should my new code look like this -

-

<%
if not jbeusers.eof then
do while not jbeusers.eof
Set myMail=CreateObject("CDO.Message")
MyFlds.Update
Vacancy=(VACANCY("JBATitle"))
URLShort=(Recordset1("JBSURLShort"))
ReplyMail=(Recordset1("JBSNoReplyEmail"))
myMail.Subject= "Job Advert " & Vacancy & " advertised on  " & URLShort
myMail.From= ReplyMail
myMail.To= ""& jbeusers("JBENusername")&"; "
myMail. CreateMHTMLBody = "../jobseeker/afterregistration/vacancynotification.asp?ID=" & (VACANCY.Fields.Item("JBAID").Value) & ""
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.domain.com"
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
 
jbeusers.MoveNext 
Loop
Set jbeusers = nothing 
objConn.close
end if
%>
                                              
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

Select allOpen in new window

 

by: carrzkissPosted on 2009-07-09 at 11:50:23ID: 24816892

before I say yes.
Let make sure of a few things first.

#1 >> myMail.Subject= "Job Advert " & Vacancy & " advertised on  " & URLShort
Is the same information sent to everyone for: Vacancy and URLShort ?

#2 >>myMail.From= ReplyMail
Is the same email here: ReplyMail


If you answered [Yes - Everything is the same] then you are ready, and the code is good

If you answered [No - Different] to any of the questions above. Then no you are not ready
And you will need to let me know which once are [Different]

Carrzkiss

 

by: garethtnashPosted on 2009-07-10 at 06:48:40ID: 24823211

Thanks Mate,

small problem have tried running this but I get a -

 
"Microsoft VBScript runtime error '800a000d'
Type mismatch
/conkers/vacancypost3.asp, line 296 "

Error, where line 296 is -

ConkerEmail=(VACANCY("JBAConkersEmail"))

Any ideas?

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../Connections/recruta2.asp" -->
<!--#include file="../WA_DataAssist/WA_AppBuilder_VB.asp" -->
<%Session.Contents.Remove("SITEID")%>
<%Session.Contents.Remove("NEWVACANCY")%>
<%Session.Contents.Remove("NEWVACANCYCATEGORY")%>
<%Session.Contents.Remove("NEWVACANCYLOCATION")%>
<%Session.Contents.Remove("NEWVACANCYDESCRIPTION")%>
<%Session.Contents.Remove("CONKERSEMAIL")%>
<%Session.Contents.Remove("EMPLOYEENAME")%>
<%Session.Contents.Remove("EMPLOYEEUSERNAME")%>
<%Session.Contents.Remove("EMPLOYEEID")%>
<%Session.Contents.Remove("JBESENT")%>
<%Session("SITEID") = "30"%>
<%Session("NEWVACANCY") = Request.QueryString("jobtitle")%>
<%Session("NEWVACANCYCATEGORY") = Request.QueryString("Category")%>
<%Session("NEWVACANCYLOCATION") = Request.QueryString("Location")%>
<%Session("NEWVACANCYDESCRIPTION") = Request.QueryString("jobdescription")%>
<%Session("CONKERSEMAIL") = Request.QueryString("conkeremail")%>
<%
Dim username__MMColParam
username__MMColParam = "%"
If (Request.QueryString("username")   <> "") Then 
  username__MMColParam = Request.QueryString("username")  
End If
%>
<%
Dim username__MMColParam2
username__MMColParam2 = "%"
If (Request.QueryString("password")   <> "") Then 
  username__MMColParam2 = Request.QueryString("password")  
End If
%>
<%
Dim username__MMColParam3
username__MMColParam3 = "30"
If (Session("SITEID")  <> "") Then 
  username__MMColParam3 = Session("SITEID") 
End If
%>
<%
Dim username
Dim username_cmd
Dim username_numRows
 
Set username_cmd = Server.CreateObject ("ADODB.Command")
username_cmd.ActiveConnection = MM_recruta2_STRING
username_cmd.CommandText = "SELECT JBEUsername, JBEName, JBEID FROM dbo.JBEmployee WHERE JBEUsername = ? AND JBEPassword = ? AND JBESiteID = ?" 
username_cmd.Prepared = true
username_cmd.Parameters.Append username_cmd.CreateParameter("param1", 200, 1, 255, username__MMColParam) ' adVarChar
username_cmd.Parameters.Append username_cmd.CreateParameter("param2", 200, 1, 255, username__MMColParam2) ' adVarChar
username_cmd.Parameters.Append username_cmd.CreateParameter("param3", 5, 1, -1, username__MMColParam3) ' adDouble
 
Set username = username_cmd.Execute
username_numRows = 0
%>
<%Session("EMPLOYEENAME") = username.Fields.Item("JBEName").Value%>
<%Session("EMPLOYEEUSERNAME") = username.Fields.Item("JBEUsername").Value%>
<%Session("EMPLOYEEID") = username.Fields.Item("JBEID").Value%>
<%
 
Dim Conkers__username
Conkers__username = "0"
if(Request.QueryString("username") <> "") then Conkers__username = Request.QueryString("username")
 
Dim Conkers__password
Conkers__password = "0"
if(Request.QueryString("password") <> "") then Conkers__password = Request.QueryString("password")
 
Dim Conkers__siteid
Conkers__siteid = "0"
if(Session("SITEID") <> "") then Conkers__siteid = Session("SITEID")
 
Dim Conkers__jobtitle
Conkers__jobtitle = "0"
if(Request.QueryString("jobtitle") <> "") then Conkers__jobtitle = Request.QueryString("jobtitle")
 
Dim Conkers__jobdescription
Conkers__jobdescription = "0"
if(Request.QueryString("jobdescription") <> "") then Conkers__jobdescription = Server.HTMLEncode(Request.QueryString("jobdescription"))
 
Dim Conkers__Payrate
Conkers__Payrate = "0"
if(Request.QueryString("Payrate") <> "") then Conkers__Payrate = Server.HTMLEncode(Request.QueryString("Payrate"))
 
Dim Conkers__Location
Conkers__Location = "0"
if(Request.QueryString("Location") <> "") then Conkers__Location = Request.QueryString("Location")
 
Dim Conkers__Category
Conkers__Category = "0"
if(Request.QueryString("Category") <> "") then Conkers__Category = Request.QueryString("Category")
 
Dim Conkers__JonType
Conkers__JonType = "0"
if(Request.QueryString("JonType") <> "") then Conkers__JonType = Request.QueryString("JonType")
 
Dim Conkers__reference
Conkers__reference = "0"
if(Request.QueryString("reference") <> "") then Conkers__reference = Request.QueryString("reference")
 
Dim Conkers__startdate
Conkers__startdate = "0"
if(Request.QueryString("startdate") <> "") then Conkers__startdate = Request.QueryString("startdate")
 
Dim Conkers__conkeremai
Conkers__conkeremai = "0"
if(Request.QueryString("conkeremail") <> "") then Conkers__conkeremai = Request.QueryString("conkeremail")
 
%>
<%
 
set Conkers = Server.CreateObject("ADODB.Command")
Conkers.ActiveConnection = MM_recruta2_STRING
Conkers.CommandText = "dbo.conker"
Conkers.CommandType = 4
Conkers.CommandTimeout = 0
Conkers.Prepared = true
Conkers.Parameters.Append Conkers.CreateParameter("@RETURN_VALUE", 3, 4)
Conkers.Parameters.Append Conkers.CreateParameter("@username", 200, 1,225,Conkers__username)
Conkers.Parameters.Append Conkers.CreateParameter("@password", 200, 1,50,Conkers__password)
Conkers.Parameters.Append Conkers.CreateParameter("@siteid", 3, 1,5,Conkers__siteid)
Conkers.Parameters.Append Conkers.CreateParameter("@jobtitle", 200, 1,50,Conkers__jobtitle)
Conkers.Parameters.Append Conkers.CreateParameter("@jobdescription", 200, 1,4000,Conkers__jobdescription)
Conkers.Parameters.Append Conkers.CreateParameter("@Payrate", 200, 1,250,Conkers__Payrate)
Conkers.Parameters.Append Conkers.CreateParameter("@Location", 200, 1,50,Conkers__Location)
Conkers.Parameters.Append Conkers.CreateParameter("@Category", 200, 1,50,Conkers__Category)
Conkers.Parameters.Append Conkers.CreateParameter("@JonType", 200, 1,50,Conkers__JonType)
Conkers.Parameters.Append Conkers.CreateParameter("@reference", 200, 1,50,Conkers__reference)
Conkers.Parameters.Append Conkers.CreateParameter("@startdate", 200, 1,50,Conkers__startdate)
Conkers.Parameters.Append Conkers.CreateParameter("@conkeremai", 200, 1,225,Conkers__conkeremai)
Conkers.Execute()
 
%>
<%
Dim jbeusers__MMColParam
jbeusers__MMColParam = "0"
If (Session("SITEID")  <> "") Then 
  jbeusers__MMColParam = Session("SITEID") 
End If
%>
<%
Dim jbeusers__MMColParam2
jbeusers__MMColParam2 = "%"
If (Session("NEWVACANCYLOCATION")  <> "") Then 
  jbeusers__MMColParam2 = Session("NEWVACANCYLOCATION") 
End If
%>
<%
Dim jbeusers__MMColParam3
jbeusers__MMColParam3 = "%"
If (Session("NEWVACANCYCATEGORY")   <> "") Then 
  jbeusers__MMColParam3 = Session("NEWVACANCYCATEGORY")  
End If
%>
<%
Dim jbeusers__MMColParam4
jbeusers__MMColParam4 = "%"
If (Session("NEWVACANCYDESCRIPTION")   <> "") Then 
  jbeusers__MMColParam4 = Session("NEWVACANCYDESCRIPTION")  
End If
%>
<%
Dim jbeusers
Dim jbeusers_cmd
Dim jbeusers_numRows
 
Set jbeusers_cmd = Server.CreateObject ("ADODB.Command")
jbeusers_cmd.ActiveConnection = MM_recruta2_STRING
jbeusers_cmd.CommandText = "SELECT * FROM dbo.JBEmailNotification WHERE JBENsiteID = ? AND JBENlocation = ? AND JBENcategory = ? AND ? like '%' + JBENKeyword + '%'" 
jbeusers_cmd.Prepared = true
jbeusers_cmd.Parameters.Append jbeusers_cmd.CreateParameter("param1", 5, 1, -1, jbeusers__MMColParam) ' adDouble
jbeusers_cmd.Parameters.Append jbeusers_cmd.CreateParameter("param2", 200, 1, 255, jbeusers__MMColParam2) ' adVarChar
jbeusers_cmd.Parameters.Append jbeusers_cmd.CreateParameter("param3", 200, 1, 255, jbeusers__MMColParam3) ' adVarChar
jbeusers_cmd.Parameters.Append jbeusers_cmd.CreateParameter("param4", 200, 1, 4000, jbeusers__MMColParam4) ' adVarChar
 
Set jbeusers = jbeusers_cmd.Execute
jbeusers_numRows = 0
%>
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "0"
If (Session("SITEID")  <> "") Then 
  Recordset1__MMColParam = Session("SITEID") 
End If
%>
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows
 
Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_recruta2_STRING
Recordset1_cmd.CommandText = "SELECT JBSSiteID, JBSMetaTitle, JBSLogo, JBSMetaKeywords, JBSMetaDescription, JBSHomePageText, JBSURL, JBSURLShort, JBSNoReplyEmail FROM dbo.JBSite WHERE JBSSiteID = ?" 
Recordset1_cmd.Prepared = true
Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 5, 1, -1, Recordset1__MMColParam) ' adDouble
 
Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>
<%
Dim USERS__MMColParam
USERS__MMColParam = "0"
If (Session("SITEID")  <> "") Then 
  USERS__MMColParam = Session("SITEID") 
End If
%>
<%
Dim USERS__MMColParam2
USERS__MMColParam2 = "%"
If (Session("NEWVACANCYLOCATION")  <> "") Then 
  USERS__MMColParam2 = Session("NEWVACANCYLOCATION") 
End If
%>
<%
Dim USERS__MMColParam3
USERS__MMColParam3 = "%"
If (Session("NEWVACANCYCATEGORY")   <> "") Then 
  USERS__MMColParam3 = Session("NEWVACANCYCATEGORY")  
End If
%>
<%
Dim USERS__MMColParam4
USERS__MMColParam4 = "%"
If (Session("NEWVACANCYDESCRIPTION")   <> "") Then 
  USERS__MMColParam4 = Session("NEWVACANCYDESCRIPTION")  
End If
%>
<%
Dim USERS
Dim USERS_cmd
Dim USERS_numRows
 
Set USERS_cmd = Server.CreateObject ("ADODB.Command")
USERS_cmd.ActiveConnection = MM_recruta2_STRING
USERS_cmd.CommandText = "SELECT COUNT(JBENusername) As USERS FROM dbo.JBEmailNotification WHERE JBENsiteID = ? AND JBENlocation = ? AND JBENcategory = ? AND ? like '%' + JBENKeyword + '%'" 
USERS_cmd.Prepared = true
USERS_cmd.Parameters.Append USERS_cmd.CreateParameter("param1", 5, 1, -1, USERS__MMColParam) ' adDouble
USERS_cmd.Parameters.Append USERS_cmd.CreateParameter("param2", 200, 1, 255, USERS__MMColParam2) ' adVarChar
USERS_cmd.Parameters.Append USERS_cmd.CreateParameter("param3", 200, 1, 255, USERS__MMColParam3) ' adVarChar
USERS_cmd.Parameters.Append USERS_cmd.CreateParameter("param4", 200, 1, 4000, USERS__MMColParam4) ' adVarChar
 
Set USERS = USERS_cmd.Execute
USERS_numRows = 0
%>
<%
Dim VACANCY__MMColParam
VACANCY__MMColParam = "0"
If (Session("NEWVACANCY") <> "") Then 
  VACANCY__MMColParam = Session("NEWVACANCY")
End If
%>
<%
Dim VACANCY__MMColParam2
VACANCY__MMColParam2 = "0"
If (Session("EMPLOYEEID") <> "") Then 
  VACANCY__MMColParam2 = Session("EMPLOYEEID")
End If
%><%
Dim VACANCY__MMColParam3
VACANCY__MMColParam3 = "0"
If (Session("SITEID") <> "") Then 
  VACANCY__MMColParam3 = Session("SITEID")
End If
%><%
Dim VACANCY
Dim VACANCY_cmd
Dim VACANCY_numRows
 
Set VACANCY_cmd = Server.CreateObject ("ADODB.Command")
VACANCY_cmd.ActiveConnection = MM_recruta2_STRING
VACANCY_cmd.CommandText = "SELECT JBAID, JBAEmployeeID, JBASiteID, JBATitle, JBADatePosted, JBADescription, JBAPayRate, JBALocation, JBAEmplymentType, JBAReference, JBAConkersEmail FROM dbo.JBAdvert WHERE JBATitle = ? AND JBAEmployeeID = ? AND JBASiteID = ? AND JBADatePosted BETWEEN DATEADD(mi, -3, GETDATE()) AND GETDATE()" 
VACANCY_cmd.Prepared = true
VACANCY_cmd.Parameters.Append VACANCY_cmd.CreateParameter("param1", 200, 1, 255, VACANCY__MMColParam) ' adVarChar
VACANCY_cmd.Parameters.Append VACANCY_cmd.CreateParameter("param2", 5, 1, -1, VACANCY__MMColParam2) ' adDouble
VACANCY_cmd.Parameters.Append VACANCY_cmd.CreateParameter("param3", 5, 1, -1, VACANCY__MMColParam3) ' adDouble
 
Set VACANCY = VACANCY_cmd.Execute
VACANCY_numRows = 0
%>
<%Session("JBESENT") = (USERS.Fields.Item("USERS").Value)%>
<%
Dim ObjSendMail
Dim iConf
Dim Flds
Set ObjSendMail = Server.CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup"
Flds.Update
EmployeeName=(Session("EMPLOYEENAME"))
Vacancy=(VACANCY("JBATitle"))
URLShort=(Recordset1("JBSURLShort"))
ReplyMail=(Recordset1("JBSNoReplyEmail"))
ConkerEmail=(VACANCY("JBAConkersEmail"))
RecEmail=(username("JBEUsername"))
Set ObjSendMail.Configuration = iConf
ObjSendMail.To = RECEmail
ObjSendMail.Subject = "Job Advert " & Vacancy & " posted on  " & URLShort
ObjSendMail.From = ReplyMail
if VACANCY("JBAConkersEmail")="" then
ObjSendMail.Bcc = ConkerEmail
else
end if
ObjSendMail.ReplyTo = APEmail     
ObjSendMail.TextBody = "Dear " & EmployeeName & "," & vbCRLF & "" & vbCRLF & "Your vacancy titled " & Vacancy & " has successfully been posted on " & URLShort & "" & vbCRLF & "" & vbCRLF & "Kind regards"
ObjSendMail.Send
     
Set ObjSendMail = Nothing
%>
<%
if not jbeusers.eof then
do while not jbeusers.eof
Set myMail=CreateObject("CDO.Message")
MyFlds.Update
Vacancy=(VACANCY("JBATitle"))
URLShort=(Recordset1("JBSURLShort"))
ReplyMail=(Recordset1("JBSNoReplyEmail"))
myMail.Subject= "Job Advert " & Vacancy & " advertised on  " & URLShort
myMail.From= ReplyMail
myMail.To= ""& jbeusers("JBENusername")&"; "
myMail. CreateMHTMLBody = "../jobseeker/afterregistration/vacancynotification.asp?ID=" & (VACANCY.Fields.Item("JBAID").Value) & ""
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.domain.com"
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
 
jbeusers.MoveNext 
Loop
Set jbeusers = nothing 
objConn.close
end if
%>
<%
' WA Application Builder Insert
if ("" = "")  then
  WA_connection = MM_recruta2_STRING
  WA_table = "dbo.JBESent"
  WA_sessionName = "JBESent_JBESID"
  WA_redirectURL = "success.asp"
  WA_keepQueryString = false
  WA_indexField = "JBESID"
  WA_fieldNamesStr = "JBESSiteID|JBESJobID|JBESLocation|JBESCategory|JBESReceipients"
  WA_fieldValuesStr = "" & cStr( Session("SITEID") ) & "" & "|" & "" & cStr((VACANCY.Fields.Item("JBAID").Value)) & "" & "|" & "" & cStr( Session("NEWVACANCYLOCATION") ) & "" & "|" & "" & cStr( Session("NEWVACANCYCATEGORY") ) & "" & "|" & "" & cStr( Session("JBESENT") ) & ""
  WA_columnTypesStr = "none,none,NULL|none,none,NULL|',none,''|',none,''|none,none,NULL"
  WA_comparisonStr = " = | = | LIKE | LIKE | = "
  WA_fieldNames = Split(WA_fieldNamesStr,"|")
  WA_fieldValues = Split(WA_fieldValuesStr,"|")
  WA_columns = Split(WA_columnTypesStr,"|")
  WA_comparisions = Split(WA_comparisonStr, "|")
 
  insertParamsObj = WA_AB_generateInsertParams(WA_fieldNames, WA_columns, WA_fieldValues, -1)
  set MM_editCmd = Server.CreateObject("ADODB.Command")
  MM_editCmd.ActiveConnection = WA_connection
  MM_editCmd.CommandText = "INSERT INTO " & WA_table & " (" & insertParamsObj(1) & ") VALUES (" & insertParamsObj(2) & ")"
  MM_editCmd.Execute()
  MM_editCmd.ActiveConnection.Close()
  obj = WA_AB_generateWhereClause(WA_fieldNames, WA_columns, WA_fieldValues, WA_comparisions)
  sqlstr = "SELECT " & WA_indexField & " FROM " & WA_table & " WHERE " &  obj & " ORDER BY " & WA_indexField & " DESC"
  set WA_AppBuilderRecordset = Server.CreateObject("ADODB.Recordset")
  WA_AppBuilderRecordset.ActiveConnection = WA_connection
  WA_AppBuilderRecordset.Source = sqlstr
  WA_AppBuilderRecordset.CursorType = 0
  WA_AppBuilderRecordset.CursorLocation = 2
  WA_AppBuilderRecordset.LockType = 1
  WA_AppBuilderRecordset.Open()
  if (NOT WA_AppBuilderRecordset.EOF)  then  Session(WA_sessionName) = WA_AppBuilderRecordset.Fields.Item(WA_indexField).Value
  WA_AppBuilderRecordset.Close()
  if (WA_redirectURL <> "")  then
    if (WA_keepQueryString AND Request.QueryString <> "" AND Request.QueryString.Count > 0) then
      if (inStr(WA_redirectURL,"?") > 0)  then
        WA_redirectURL = WA_redirectURL & "&"
      else
        WA_redirectURL = WA_redirectURL & "?"
      end if
      WA_redirectURL = WA_redirectURL & Request.QueryString
    end if
    Response.Redirect(WA_redirectURL)
  end if
end if
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them
 
If (jbeusers_total = -1) Then
 
  ' count the total records by iterating through the recordset
  jbeusers_total=0
  While (Not jbeusers.EOF)
    jbeusers_total = jbeusers_total + 1
    jbeusers.MoveNext
  Wend
 
  ' reset the cursor to the beginning
  If (jbeusers.CursorType > 0) Then
    jbeusers.MoveFirst
  Else
    jbeusers.Requery
  End If
 
  ' set the number of rows displayed on this page
  If (jbeusers_numRows < 0 Or jbeusers_numRows > jbeusers_total) Then
    jbeusers_numRows = jbeusers_total
  End If
 
  ' set the first and last displayed record
  jbeusers_first = 1
  jbeusers_last = jbeusers_first + jbeusers_numRows - 1
  
  If (jbeusers_first > jbeusers_total) Then
    jbeusers_first = jbeusers_total
  End If
  If (jbeusers_last > jbeusers_total) Then
    jbeusers_last = jbeusers_total
  End If
 
End If
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>vacancypost</title>
<meta name="Robots" content="noindex,nofollow" />
</head>
 
<body>
<%=(VACANCY.Fields.Item("JBATitle").Value)%>
</body>
</html>
<%
username.Close()
Set username = Nothing
%>
<%
jbeusers.Close()
Set jbeusers = Nothing
%>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
USERS.Close()
Set USERS = Nothing
%><%
VACANCY.Close()
Set VACANCY = Nothing
%>

                                              
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284:
285:
286:
287:
288:
289:
290:
291:
292:
293:
294:
295:
296:
297:
298:
299:
300:
301:
302:
303:
304:
305:
306:
307:
308:
309:
310:
311:
312:
313:
314:
315:
316:
317:
318:
319:
320:
321:
322:
323:
324:
325:
326:
327:
328:
329:
330:
331:
332:
333:
334:
335:
336:
337:
338:
339:
340:
341:
342:
343:
344:
345:
346:
347:
348:
349:
350:
351:
352:
353:
354:
355:
356:
357:
358:
359:
360:
361:
362:
363:
364:
365:
366:
367:
368:
369:
370:
371:
372:
373:
374:
375:
376:
377:
378:
379:
380:
381:
382:
383:
384:
385:
386:
387:
388:
389:
390:
391:
392:
393:
394:
395:
396:
397:
398:
399:
400:
401:
402:
403:
404:
405:
406:
407:
408:
409:
410:
411:
412:
413:
414:
415:
416:
417:
418:
419:
420:
421:
422:
423:
424:
425:
426:
427:
428:
429:
430:
431:
432:
433:
434:
435:
436:
437:
438:
439:
440:
441:
442:
443:
444:
445:
446:
447:
448:
449:
450:
451:
452:
453:
454:
455:

Select allOpen in new window

 

by: carrzkissPosted on 2009-07-10 at 07:07:32ID: 24823409

I am not really sure what you have going on here, but I think that I see a problem.

Vacancy=(VACANCY("JBATitle"))  ' Problem here (Line 293)
URLShort=(Recordset1("JBSURLShort"))
ReplyMail=(Recordset1("JBSNoReplyEmail"))
ConkerEmail=(VACANCY("JBAConkersEmail"))  ' Causing this to be a Problem

You cannot have a string to be the same name as a RecordSet.
So, Change to

strVacancy=(VACANCY("JBATitle"))  ' (Line 293) change Vacancy -to- strVacancy
URLShort=(Recordset1("JBSURLShort"))
ReplyMail=(Recordset1("JBSNoReplyEmail"))
ConkerEmail=(VACANCY("JBAConkersEmail"))  ' This should run now....?

See if that will help

 

by: garethtnashPosted on 2009-07-10 at 07:31:05ID: 24823649

Thanks mate that worked, however now I get the following error -

"  
Microsoft VBScript runtime error '800a01a8'
Object required: 'MyFlds'
/conkers/vacancypost3.asp, line 316 "

Where line 316 is -

MyFlds.Update

Again any ideas?

Thanks - :-) 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../Connections/recruta2.asp" -->
<!--#include file="../WA_DataAssist/WA_AppBuilder_VB.asp" -->
<%Session.Contents.Remove("SITEID")%>
<%Session.Contents.Remove("NEWVACANCY")%>
<%Session.Contents.Remove("NEWVACANCYCATEGORY")%>
<%Session.Contents.Remove("NEWVACANCYLOCATION")%>
<%Session.Contents.Remove("NEWVACANCYDESCRIPTION")%>
<%Session.Contents.Remove("CONKERSEMAIL")%>
<%Session.Contents.Remove("EMPLOYEENAME")%>
<%Session.Contents.Remove("EMPLOYEEUSERNAME")%>
<%Session.Contents.Remove("EMPLOYEEID")%>
<%Session.Contents.Remove("JBESENT")%>
<%Session("SITEID") = "30"%>
<%Session("NEWVACANCY") = Request.QueryString("jobtitle")%>
<%Session("NEWVACANCYCATEGORY") = Request.QueryString("Category")%>
<%Session("NEWVACANCYLOCATION") = Request.QueryString("Location")%>
<%Session("NEWVACANCYDESCRIPTION") = Request.QueryString("jobdescription")%>
<%Session("CONKERSEMAIL") = Request.QueryString("conkeremail")%>
<%
Dim username__MMColParam
username__MMColParam = "%"
If (Request.QueryString("username")   <> "") Then 
  username__MMColParam = Request.QueryString("username")  
End If
%>
<%
Dim username__MMColParam2
username__MMColParam2 = "%"
If (Request.QueryString("password")   <> "") Then 
  username__MMColParam2 = Request.QueryString("password")  
End If
%>
<%
Dim username__MMColParam3
username__MMColParam3 = "30"
If (Session("SITEID")  <> "") Then 
  username__MMColParam3 = Session("SITEID") 
End If
%>
<%
Dim username
Dim username_cmd
Dim username_numRows
 
Set username_cmd = Server.CreateObject ("ADODB.Command")
username_cmd.ActiveConnection = MM_recruta2_STRING
username_cmd.CommandText = "SELECT JBEUsername, JBEName, JBEID FROM dbo.JBEmployee WHERE JBEUsername = ? AND JBEPassword = ? AND JBESiteID = ?" 
username_cmd.Prepared = true
username_cmd.Parameters.Append username_cmd.CreateParameter("param1", 200, 1, 255, username__MMColParam) ' adVarChar
username_cmd.Parameters.Append username_cmd.CreateParameter("param2", 200, 1, 255, username__MMColParam2) ' adVarChar
username_cmd.Parameters.Append username_cmd.CreateParameter("param3", 5, 1, -1, username__MMColParam3) ' adDouble
 
Set username = username_cmd.Execute
username_numRows = 0
%>
<%Session("EMPLOYEENAME") = username.Fields.Item("JBEName").Value%>
<%Session("EMPLOYEEUSERNAME") = username.Fields.Item("JBEUsername").Value%>
<%Session("EMPLOYEEID") = username.Fields.Item("JBEID").Value%>
<%
 
Dim Conkers__username
Conkers__username = "0"
if(Request.QueryString("username") <> "") then Conkers__username = Request.QueryString("username")
 
Dim Conkers__password
Conkers__password = "0"
if(Request.QueryString("password") <> "") then Conkers__password = Request.QueryString("password")
 
Dim Conkers__siteid
Conkers__siteid = "0"
if(Session("SITEID") <> "") then Conkers__siteid = Session("SITEID")
 
Dim Conkers__jobtitle
Conkers__jobtitle = "0"
if(Request.QueryString("jobtitle") <> "") then Conkers__jobtitle = Request.QueryString("jobtitle")
 
Dim Conkers__jobdescription
Conkers__jobdescription = "0"
if(Request.QueryString("jobdescription") <> "") then Conkers__jobdescription = Server.HTMLEncode(Request.QueryString("jobdescription"))
 
Dim Conkers__Payrate
Conkers__Payrate = "0"
if(Request.QueryString("Payrate") <> "") then Conkers__Payrate = Server.HTMLEncode(Request.QueryString("Payrate"))
 
Dim Conkers__Location
Conkers__Location = "0"
if(Request.QueryString("Location") <> "") then Conkers__Location = Request.QueryString("Location")
 
Dim Conkers__Category
Conkers__Category = "0"
if(Request.QueryString("Category") <> "") then Conkers__Category = Request.QueryString("Category")
 
Dim Conkers__JonType
Conkers__JonType = "0"
if(Request.QueryString("JonType") <> "") then Conkers__JonType = Request.QueryString("JonType")
 
Dim Conkers__reference
Conkers__reference = "0"
if(Request.QueryString("reference") <> "") then Conkers__reference = Request.QueryString("reference")
 
Dim Conkers__startdate
Conkers__startdate = "0"
if(Request.QueryString("startdate") <> "") then Conkers__startdate = Request.QueryString("startdate")
 
Dim Conkers__conkeremai
Conkers__conkeremai = "0"
if(Request.QueryString("conkeremail") <> "") then Conkers__conkeremai = Request.QueryString("conkeremail")
 
%>
<%
 
set Conkers = Server.CreateObject("ADODB.Command")
Conkers.ActiveConnection = MM_recruta2_STRING
Conkers.CommandText = "dbo.conker"
Conkers.CommandType = 4
Conkers.CommandTimeout = 0
Conkers.Prepared = true
Conkers.Parameters.Append Conkers.CreateParameter("@RETURN_VALUE", 3, 4)
Conkers.Parameters.Append Conkers.CreateParameter("@username", 200, 1,225,Conkers__username)
Conkers.Parameters.Append Conkers.CreateParameter("@password", 200, 1,50,Conkers__password)
Conkers.Parameters.Append Conkers.CreateParameter("@siteid", 3, 1,5,Conkers__siteid)
Conkers.Parameters.Append Conkers.CreateParameter("@jobtitle", 200, 1,50,Conkers__jobtitle)
Conkers.Parameters.Append Conkers.CreateParameter("@jobdescription", 200, 1,4000,Conkers__jobdescription)
Conkers.Parameters.Append Conkers.CreateParameter("@Payrate", 200, 1,250,Conkers__Payrate)
Conkers.Parameters.Append Conkers.CreateParameter("@Location", 200, 1,50,Conkers__Location)
Conkers.Parameters.Append Conkers.CreateParameter("@Category", 200, 1,50,Conkers__Category)
Conkers.Parameters.Append Conkers.CreateParameter("@JonType", 200, 1,50,Conkers__JonType)
Conkers.Parameters.Append Conkers.CreateParameter("@reference", 200, 1,50,Conkers__reference)
Conkers.Parameters.Append Conkers.CreateParameter("@startdate", 200, 1,50,Conkers__startdate)
Conkers.Parameters.Append Conkers.CreateParameter("@conkeremai", 200, 1,225,Conkers__conkeremai)
Conkers.Execute()
 
%>
<%
Dim jbeusers__MMColParam
jbeusers__MMColParam = "0"
If (Session("SITEID")  <> "") Then 
  jbeusers__MMColParam = Session("SITEID") 
End If
%>
<%
Dim jbeusers__MMColParam2
jbeusers__MMColParam2 = "%"
If (Session("NEWVACANCYLOCATION")  <> "") Then 
  jbeusers__MMColParam2 = Session("NEWVACANCYLOCATION") 
End If
%>
<%
Dim jbeusers__MMColParam3
jbeusers__MMColParam3 = "%"
If (Session("NEWVACANCYCATEGORY")   <> "") Then 
  jbeusers__MMColParam3 = Session("NEWVACANCYCATEGORY")  
End If
%>
<%
Dim jbeusers__MMColParam4
jbeusers__MMColParam4 = "%"
If (Session("NEWVACANCYDESCRIPTION")   <> "") Then 
  jbeusers__MMColParam4 = Session("NEWVACANCYDESCRIPTION")  
End If
%>
<%
Dim jbeusers
Dim jbeusers_cmd
Dim jbeusers_numRows
 
Set jbeusers_cmd = Server.CreateObject ("ADODB.Command")
jbeusers_cmd.ActiveConnection = MM_recruta2_STRING
jbeusers_cmd.CommandText = "SELECT * FROM dbo.JBEmailNotification WHERE JBENsiteID = ? AND JBENlocation = ? AND JBENcategory = ? AND ? like '%' + JBENKeyword + '%'" 
jbeusers_cmd.Prepared = true
jbeusers_cmd.Parameters.Append jbeusers_cmd.CreateParameter("param1", 5, 1, -1, jbeusers__MMColParam) ' adDouble
jbeusers_cmd.Parameters.Append jbeusers_cmd.CreateParameter("param2", 200, 1, 255, jbeusers__MMColParam2) ' adVarChar
jbeusers_cmd.Parameters.Append jbeusers_cmd.CreateParameter("param3", 200, 1, 255, jbeusers__MMColParam3) ' adVarChar
jbeusers_cmd.Parameters.Append jbeusers_cmd.CreateParameter("param4", 200, 1, 4000, jbeusers__MMColParam4) ' adVarChar
 
Set jbeusers = jbeusers_cmd.Execute
jbeusers_numRows = 0
%>
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "0"
If (Session("SITEID")  <> "") Then 
  Recordset1__MMColParam = Session("SITEID") 
End If
%>
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows
 
Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_recruta2_STRING
Recordset1_cmd.CommandText = "SELECT JBSSiteID, JBSMetaTitle, JBSLogo, JBSMetaKeywords, JBSMetaDescription, JBSHomePageText, JBSURL, JBSURLShort, JBSNoReplyEmail FROM dbo.JBSite WHERE JBSSiteID = ?" 
Recordset1_cmd.Prepared = true
Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 5, 1, -1, Recordset1__MMColParam) ' adDouble
 
Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>
<%
Dim USERS__MMColParam
USERS__MMColParam = "0"
If (Session("SITEID")  <> "") Then 
  USERS__MMColParam = Session("SITEID") 
End If
%>
<%
Dim USERS__MMColParam2
USERS__MMColParam2 = "%"
If (Session("NEWVACANCYLOCATION")  <> "") Then 
  USERS__MMColParam2 = Session("NEWVACANCYLOCATION") 
End If
%>
<%
Dim USERS__MMColParam3
USERS__MMColParam3 = "%"
If (Session("NEWVACANCYCATEGORY")   <> "") Then 
  USERS__MMColParam3 = Session("NEWVACANCYCATEGORY")  
End If
%>
<%
Dim USERS__MMColParam4
USERS__MMColParam4 = "%"
If (Session("NEWVACANCYDESCRIPTION")   <> "") Then 
  USERS__MMColParam4 = Session("NEWVACANCYDESCRIPTION")  
End If
%>
<%
Dim USERS
Dim USERS_cmd
Dim USERS_numRows
 
Set USERS_cmd = Server.CreateObject ("ADODB.Command")
USERS_cmd.ActiveConnection = MM_recruta2_STRING
USERS_cmd.CommandText = "SELECT COUNT(JBENusername) As USERS FROM dbo.JBEmailNotification WHERE JBENsiteID = ? AND JBENlocation = ? AND JBENcategory = ? AND ? like '%' + JBENKeyword + '%'" 
USERS_cmd.Prepared = true
USERS_cmd.Parameters.Append USERS_cmd.CreateParameter("param1", 5, 1, -1, USERS__MMColParam) ' adDouble
USERS_cmd.Parameters.Append USERS_cmd.CreateParameter("param2", 200, 1, 255, USERS__MMColParam2) ' adVarChar
USERS_cmd.Parameters.Append USERS_cmd.CreateParameter("param3", 200, 1, 255, USERS__MMColParam3) ' adVarChar
USERS_cmd.Parameters.Append USERS_cmd.CreateParameter("param4", 200, 1, 4000, USERS__MMColParam4) ' adVarChar
 
Set USERS = USERS_cmd.Execute
USERS_numRows = 0
%>
<%
Dim VACANCY__MMColParam
VACANCY__MMColParam = "0"
If (Session("NEWVACANCY") <> "") Then 
  VACANCY__MMColParam = Session("NEWVACANCY")
End If
%>
<%
Dim VACANCY__MMColParam2
VACANCY__MMColParam2 = "0"
If (Session("EMPLOYEEID") <> "") Then 
  VACANCY__MMColParam2 = Session("EMPLOYEEID")
End If
%><%
Dim VACANCY__MMColParam3
VACANCY__MMColParam3 = "0"
If (Session("SITEID") <> "") Then 
  VACANCY__MMColParam3 = Session("SITEID")
End If
%><%
Dim VACANCY
Dim VACANCY_cmd
Dim VACANCY_numRows
 
Set VACANCY_cmd = Server.CreateObject ("ADODB.Command")
VACANCY_cmd.ActiveConnection = MM_recruta2_STRING
VACANCY_cmd.CommandText = "SELECT JBAID, JBAEmployeeID, JBASiteID, JBATitle, JBADatePosted, JBADescription, JBAPayRate, JBALocation, JBAEmplymentType, JBAReference, JBAConkersEmail FROM dbo.JBAdvert WHERE JBATitle = ? AND JBAEmployeeID = ? AND JBASiteID = ? AND JBADatePosted BETWEEN DATEADD(mi, -3, GETDATE()) AND GETDATE()" 
VACANCY_cmd.Prepared = true
VACANCY_cmd.Parameters.Append VACANCY_cmd.CreateParameter("param1", 200, 1, 255, VACANCY__MMColParam) ' adVarChar
VACANCY_cmd.Parameters.Append VACANCY_cmd.CreateParameter("param2", 5, 1, -1, VACANCY__MMColParam2) ' adDouble
VACANCY_cmd.Parameters.Append VACANCY_cmd.CreateParameter("param3", 5, 1, -1, VACANCY__MMColParam3) ' adDouble
 
Set VACANCY = VACANCY_cmd.Execute
VACANCY_numRows = 0
%>
<%Session("JBESENT") = (USERS.Fields.Item("USERS").Value)%>
<%
Dim ObjSendMail
Dim iConf
Dim Flds
Set ObjSendMail = Server.CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup"
Flds.Update
EmployeeName=(Session("EMPLOYEENAME"))
strVacancy=(VACANCY("JBATitle"))
URLShort=(Recordset1("JBSURLShort"))
ReplyMail=(Recordset1("JBSNoReplyEmail"))
ConkerEmail=(VACANCY("JBAConkersEmail"))
RecEmail=(username("JBEUsername"))
Set ObjSendMail.Configuration = iConf
ObjSendMail.To = RECEmail
ObjSendMail.Subject = "Job Advert " & strVacancy & " posted on  " & URLShort
ObjSendMail.From = ReplyMail
if VACANCY("JBAConkersEmail")="" then
ObjSendMail.Bcc = ConkerEmail
else
end if
ObjSendMail.ReplyTo = APEmail     
ObjSendMail.TextBody = "Dear " & EmployeeName & "," & vbCRLF & "" & vbCRLF & "Your vacancy titled " & strVacancy & " has successfully been posted on " & URLShort & "" & vbCRLF & "" & vbCRLF & "Kind regards"
ObjSendMail.Send
     
Set ObjSendMail = Nothing
%>
<%
if not jbeusers.eof then
do while not jbeusers.eof
Set myMail=CreateObject("CDO.Message")
MyFlds.Update
Vacancy=(VACANCY("JBATitle"))
URLShort=(Recordset1("JBSURLShort"))
ReplyMail=(Recordset1("JBSNoReplyEmail"))
myMail.Subject= "Job Advert " & Vacancy & " advertised on  " & URLShort
myMail.From= ReplyMail
myMail.To= ""& jbeusers("JBENusername")&"; "
myMail. CreateMHTMLBody = "../jobseeker/afterregistration/vacancynotification.asp?ID=" & (VACANCY.Fields.Item("JBAID").Value) & ""
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.domain.com"
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
 
jbeusers.MoveNext 
Loop
Set jbeusers = nothing 
objConn.close
end if
%>
<%
' WA Application Builder Insert
if ("" = "")  then
  WA_connection = MM_recruta2_STRING
  WA_table = "dbo.JBESent"
  WA_sessionName = "JBESent_JBESID"
  WA_redirectURL = "success.asp"
  WA_keepQueryString = false
  WA_indexField = "JBESID"
  WA_fieldNamesStr = "JBESSiteID|JBESJobID|JBESLocation|JBESCategory|JBESReceipients"
  WA_fieldValuesStr = "" & cStr( Session("SITEID") ) & "" & "|" & "" & cStr((VACANCY.Fields.Item("JBAID").Value)) & "" & "|" & "" & cStr( Session("NEWVACANCYLOCATION") ) & "" & "|" & "" & cStr( Session("NEWVACANCYCATEGORY") ) & "" & "|" & "" & cStr( Session("JBESENT") ) & ""
  WA_columnTypesStr = "none,none,NULL|none,none,NULL|',none,''|',none,''|none,none,NULL"
  WA_comparisonStr = " = | = | LIKE | LIKE | = "
  WA_fieldNames = Split(WA_fieldNamesStr,"|")
  WA_fieldValues = Split(WA_fieldValuesStr,"|")
  WA_columns = Split(WA_columnTypesStr,"|")
  WA_comparisions = Split(WA_comparisonStr, "|")
 
  insertParamsObj = WA_AB_generateInsertParams(WA_fieldNames, WA_columns, WA_fieldValues, -1)
  set MM_editCmd = Server.CreateObject("ADODB.Command")
  MM_editCmd.ActiveConnection = WA_connection
  MM_editCmd.CommandText = "INSERT INTO " & WA_table & " (" & insertParamsObj(1) & ") VALUES (" & insertParamsObj(2) & ")"
  MM_editCmd.Execute()
  MM_editCmd.ActiveConnection.Close()
  obj = WA_AB_generateWhereClause(WA_fieldNames, WA_columns, WA_fieldValues, WA_comparisions)
  sqlstr = "SELECT " & WA_indexField & " FROM " & WA_table & " WHERE " &  obj & " ORDER BY " & WA_indexField & " DESC"
  set WA_AppBuilderRecordset = Server.CreateObject("ADODB.Recordset")
  WA_AppBuilderRecordset.ActiveConnection = WA_connection
  WA_AppBuilderRecordset.Source = sqlstr
  WA_AppBuilderRecordset.CursorType = 0
  WA_AppBuilderRecordset.CursorLocation = 2
  WA_AppBuilderRecordset.LockType = 1
  WA_AppBuilderRecordset.Open()
  if (NOT WA_AppBuilderRecordset.EOF)  then  Session(WA_sessionName) = WA_AppBuilderRecordset.Fields.Item(WA_indexField).Value
  WA_AppBuilderRecordset.Close()
  if (WA_redirectURL <> "")  then
    if (WA_keepQueryString AND Request.QueryString <> "" AND Request.QueryString.Count > 0) then
      if (inStr(WA_redirectURL,"?") > 0)  then
        WA_redirectURL = WA_redirectURL & "&"
      else
        WA_redirectURL = WA_redirectURL & "?"
      end if
      WA_redirectURL = WA_redirectURL & Request.QueryString
    end if
    Response.Redirect(WA_redirectURL)
  end if
end if
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them
 
If (jbeusers_total = -1) Then
 
  ' count the total records by iterating through the recordset
  jbeusers_total=0
  While (Not jbeusers.EOF)
    jbeusers_total = jbeusers_total + 1
    jbeusers.MoveNext
  Wend
 
  ' reset the cursor to the beginning
  If (jbeusers.CursorType > 0) Then
    jbeusers.MoveFirst
  Else
    jbeusers.Requery
  End If
 
  ' set the number of rows displayed on this page
  If (jbeusers_numRows < 0 Or jbeusers_numRows > jbeusers_total) Then
    jbeusers_numRows = jbeusers_total
  End If
 
  ' set the first and last displayed record
  jbeusers_first = 1
  jbeusers_last = jbeusers_first + jbeusers_numRows - 1
  
  If (jbeusers_first > jbeusers_total) Then
    jbeusers_first = jbeusers_total
  End If
  If (jbeusers_last > jbeusers_total) Then
    jbeusers_last = jbeusers_total
  End If
 
End If
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>vacancypost</title>
<meta name="Robots" content="noindex,nofollow" />
</head>
 
<body>
<%=(VACANCY.Fields.Item("JBATitle").Value)%>
</body>
</html>
<%
username.Close()
Set username = Nothing
%>
<%
jbeusers.Close()
Set jbeusers = Nothing
%>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
USERS.Close()
Set USERS = Nothing
%><%
VACANCY.Close()
Set VACANCY = Nothing
%>
                                              
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284:
285:
286:
287:
288:
289:
290:
291:
292:
293:
294:
295:
296:
297:
298:
299:
300:
301:
302:
303:
304:
305:
306:
307:
308:
309:
310:
311:
312:
313:
314:
315:
316:
317:
318:
319:
320:
321:
322:
323:
324:
325:
326:
327:
328:
329:
330:
331:
332:
333:
334:
335:
336:
337:
338:
339:
340:
341:
342:
343:
344:
345:
346:
347:
348:
349:
350:
351:
352:
353:
354:
355:
356:
357:
358:
359:
360:
361:
362:
363:
364:
365:
366:
367:
368:
369:
370:
371:
372:
373:
374:
375:
376:
377:
378:
379:
380:
381:
382:
383:
384:
385:
386:
387:
388:
389:
390:
391:
392:
393:
394:
395:
396:
397:
398:
399:
400:
401:
402:
403:
404:
405:
406:
407:
408:
409:
410:
411:
412:
413:
414:
415:
416:
417:
418:
419:
420:
421:
422:
423:
424:
425:
426:
427:
428:
429:
430:
431:
432:
433:
434:
435:
436:
437:
438:
439:
440:
441:
442:
443:
444:
445:
446:
447:
448:
449:
450:
451:
452:
453:
454:
455:

Select allOpen in new window

 

by: carrzkissPosted on 2009-07-10 at 08:08:56ID: 24824094

where is   >> MyFlds.Update
Being used at?
It is not used in the script that you have provided here.
If it is not being used, then [Remove] it.
If it is being used, then show me the script and how it works in with what you have posted.

 

by: carrzkissPosted on 2009-07-10 at 08:11:00ID: 24824120

that goes with this code
http:#a24794966
But where is this code @ within the code that you have just provided?

 

by: garethtnashPosted on 2009-07-10 at 08:12:43ID: 24824135

Thanks wayne, have removed that, but now have -

 
Microsoft VBScript runtime error '800a01a8'
Object required: 'Basic Test'
/conkers/vacancypost3.asp, line 322

Where line 322 is -

myMail. CreateMHTMLBody = "../jobseeker/afterregistration/vacancynotification.asp?ID=" & (VACANCY.Fields.Item("JBAID").Value) & ""

Sorry for being a pain mate

 

by: carrzkissPosted on 2009-07-10 at 08:29:11ID: 24824320

I like that error.
Made me look really hard :~)

Need to remove the space between your . and Create

Change this
myMail. CreateMHTMLBody
to this
myMail.CreateMHTMLBody

 

by: carrzkissPosted on 2009-07-10 at 08:31:30ID: 24824349

(That was a keeper for my KB) :~)

 

by: garethtnashPosted on 2009-07-10 at 08:38:28ID: 24824427

Removed but still getting -

"  
Microsoft VBScript runtime error '800a01a8'
Object required: 'Basic Test'
/conkers/vacancypost3.asp, line 322 "

Line 322 now reads -

myMail.CreateMHTMLBody= "../jobseeker/afterregistration/vacancynotification.asp?ID=" & (VACANCY.Fields.Item("JBAID").Value) & ""

 

Help!!!!

You relaxing this weekend? Project all done? Would love to see it :-)

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../Connections/recruta2.asp" -->
<!--#include file="../WA_DataAssist/WA_AppBuilder_VB.asp" -->
<%Session.Contents.Remove("SITEID")%>
<%Session.Contents.Remove("NEWVACANCY")%>
<%Session.Contents.Remove("NEWVACANCYCATEGORY")%>
<%Session.Contents.Remove("NEWVACANCYLOCATION")%>
<%Session.Contents.Remove("NEWVACANCYDESCRIPTION")%>
<%Session.Contents.Remove("CONKERSEMAIL")%>
<%Session.Contents.Remove("EMPLOYEENAME")%>
<%Session.Contents.Remove("EMPLOYEEUSERNAME")%>
<%Session.Contents.Remove("EMPLOYEEID")%>
<%Session.Contents.Remove("JBESENT")%>
<%Session("SITEID") = "30"%>
<%Session("NEWVACANCY") = Request.QueryString("jobtitle")%>
<%Session("NEWVACANCYCATEGORY") = Request.QueryString("Category")%>
<%Session("NEWVACANCYLOCATION") = Request.QueryString("Location")%>
<%Session("NEWVACANCYDESCRIPTION") = Request.QueryString("jobdescription")%>
<%Session("CONKERSEMAIL") = Request.QueryString("conkeremail")%>
<%
Dim username__MMColParam
username__MMColParam = "%"
If (Request.QueryString("username")   <> "") Then 
  username__MMColParam = Request.QueryString("username")  
End If
%>
<%
Dim username__MMColParam2
username__MMColParam2 = "%"
If (Request.QueryString("password")   <> "") Then 
  username__MMColParam2 = Request.QueryString("password")  
End If
%>
<%
Dim username__MMColParam3
username__MMColParam3 = "30"
If (Session("SITEID")  <> "") Then 
  username__MMColParam3 = Session("SITEID") 
End If
%>
<%
Dim username
Dim username_cmd
Dim username_numRows
 
Set username_cmd = Server.CreateObject ("ADODB.Command")
username_cmd.ActiveConnection = MM_recruta2_STRING
username_cmd.CommandText = "SELECT JBEUsername, JBEName, JBEID FROM dbo.JBEmployee WHERE JBEUsername = ? AND JBEPassword = ? AND JBESiteID = ?" 
username_cmd.Prepared = true
username_cmd.Parameters.Append username_cmd.CreateParameter("param1", 200, 1, 255, username__MMColParam) ' adVarChar
username_cmd.Parameters.Append username_cmd.CreateParameter("param2", 200, 1, 255, username__MMColParam2) ' adVarChar
username_cmd.Parameters.Append username_cmd.CreateParameter("param3", 5, 1, -1, username__MMColParam3) ' adDouble
 
Set username = username_cmd.Execute
username_numRows = 0
%>
<%Session("EMPLOYEENAME") = username.Fields.Item("JBEName").Value%>
<%Session("EMPLOYEEUSERNAME") = username.Fields.Item("JBEUsername").Value%>
<%Session("EMPLOYEEID") = username.Fields.Item("JBEID").Value%>
<%
 
Dim Conkers__username
Conkers__username = "0"
if(Request.QueryString("username") <> "") then Conkers__username = Request.QueryString("username")
 
Dim Conkers__password
Conkers__password = "0"
if(Request.QueryString("password") <> "") then Conkers__password = Request.QueryString("password")
 
Dim Conkers__siteid
Conkers__siteid = "0"
if(Session("SITEID") <> "") then Conkers__siteid = Session("SITEID")
 
Dim Conkers__jobtitle
Conkers__jobtitle = "0"
if(Request.QueryString("jobtitle") <> "") then Conkers__jobtitle = Request.QueryString("jobtitle")
 
Dim Conkers__jobdescription
Conkers__jobdescription = "0"
if(Request.QueryString("jobdescription") <> "") then Conkers__jobdescription = Server.HTMLEncode(Request.QueryString("jobdescription"))
 
Dim Conkers__Payrate
Conkers__Payrate = "0"
if(Request.QueryString("Payrate") <> "") then Conkers__Payrate = Server.HTMLEncode(Request.QueryString("Payrate"))
 
Dim Conkers__Location
Conkers__Location = "0"
if(Request.QueryString("Location") <> "") then Conkers__Location = Request.QueryString("Location")
 
Dim Conkers__Category
Conkers__Category = "0"
if(Request.QueryString("Category") <> "") then Conkers__Category = Request.QueryString("Category")
 
Dim Conkers__JonType
Conkers__JonType = "0"
if(Request.QueryString("JonType") <> "") then Conkers__JonType = Request.QueryString("JonType")
 
Dim Conkers__reference
Conkers__reference = "0"
if(Request.QueryString("reference") <> "") then Conkers__reference = Request.QueryString("reference")
 
Dim Conkers__startdate
Conkers__startdate = "0"
if(Request.QueryString("startdate") <> "") then Conkers__startdate = Request.QueryString("startdate")
 
Dim Conkers__conkeremai
Conkers__conkeremai = "0"
if(Request.QueryString("conkeremail") <> "") then Conkers__conkeremai = Request.QueryString("conkeremail")
 
%>
<%
 
set Conkers = Server.CreateObject("ADODB.Command")
Conkers.ActiveConnection = MM_recruta2_STRING
Conkers.CommandText = "dbo.conker"
Conkers.CommandType = 4
Conkers.CommandTimeout = 0
Conkers.Prepared = true
Conkers.Parameters.Append Conkers.CreateParameter("@RETURN_VALUE", 3, 4)
Conkers.Parameters.Append Conkers.CreateParameter("@username", 200, 1,225,Conkers__username)
Conkers.Parameters.Append Conkers.CreateParameter("@password", 200, 1,50,Conkers__password)
Conkers.Parameters.Append Conkers.CreateParameter("@siteid", 3, 1,5,Conkers__siteid)
Conkers.Parameters.Append Conkers.CreateParameter("@jobtitle", 200, 1,50,Conkers__jobtitle)
Conkers.Parameters.Append Conkers.CreateParameter("@jobdescription", 200, 1,4000,Conkers__jobdescription)
Conkers.Parameters.Append Conkers.CreateParameter("@Payrate", 200, 1,250,Conkers__Payrate)
Conkers.Parameters.Append Conkers.CreateParameter("@Location", 200, 1,50,Conkers__Location)
Conkers.Parameters.Append Conkers.CreateParameter("@Category", 200, 1,50,Conkers__Category)
Conkers.Parameters.Append Conkers.CreateParameter("@JonType", 200, 1,50,Conkers__JonType)
Conkers.Parameters.Append Conkers.CreateParameter("@reference", 200, 1,50,Conkers__reference)
Conkers.Parameters.Append Conkers.CreateParameter("@startdate", 200, 1,50,Conkers__startdate)
Conkers.Parameters.Append Conkers.CreateParameter("@conkeremai", 200, 1,225,Conkers__conkeremai)
Conkers.Execute()
 
%>
<%
Dim jbeusers__MMColParam
jbeusers__MMColParam = "0"
If (Session("SITEID")  <> "") Then 
  jbeusers__MMColParam = Session("SITEID") 
End If
%>
<%
Dim jbeusers__MMColParam2
jbeusers__MMColParam2 = "%"
If (Session("NEWVACANCYLOCATION")  <> "") Then 
  jbeusers__MMColParam2 = Session("NEWVACANCYLOCATION") 
End If
%>
<%
Dim jbeusers__MMColParam3
jbeusers__MMColParam3 = "%"
If (Session("NEWVACANCYCATEGORY")   <> "") Then 
  jbeusers__MMColParam3 = Session("NEWVACANCYCATEGORY")  
End If
%>
<%
Dim jbeusers__MMColParam4
jbeusers__MMColParam4 = "%"
If (Session("NEWVACANCYDESCRIPTION")   <> "") Then 
  jbeusers__MMColParam4 = Session("NEWVACANCYDESCRIPTION")  
End If
%>
<%
Dim jbeusers
Dim jbeusers_cmd
Dim jbeusers_numRows
 
Set jbeusers_cmd = Server.CreateObject ("ADODB.Command")
jbeusers_cmd.ActiveConnection = MM_recruta2_STRING
jbeusers_cmd.CommandText = "SELECT * FROM dbo.JBEmailNotification WHERE JBENsiteID = ? AND JBENlocation = ? AND JBENcategory = ? AND ? like '%' + JBENKeyword + '%'" 
jbeusers_cmd.Prepared = true
jbeusers_cmd.Parameters.Append jbeusers_cmd.CreateParameter("param1", 5, 1, -1, jbeusers__MMColParam) ' adDouble
jbeusers_cmd.Parameters.Append jbeusers_cmd.CreateParameter("param2", 200, 1, 255, jbeusers__MMColParam2) ' adVarChar
jbeusers_cmd.Parameters.Append jbeusers_cmd.CreateParameter("param3", 200, 1, 255, jbeusers__MMColParam3) ' adVarChar
jbeusers_cmd.Parameters.Append jbeusers_cmd.CreateParameter("param4", 200, 1, 4000, jbeusers__MMColParam4) ' adVarChar
 
Set jbeusers = jbeusers_cmd.Execute
jbeusers_numRows = 0
%>
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "0"
If (Session("SITEID")  <> "") Then 
  Recordset1__MMColParam = Session("SITEID") 
End If
%>
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows
 
Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_recruta2_STRING
Recordset1_cmd.CommandText = "SELECT JBSSiteID, JBSMetaTitle, JBSLogo, JBSMetaKeywords, JBSMetaDescription, JBSHomePageText, JBSURL, JBSURLShort, JBSNoReplyEmail FROM dbo.JBSite WHERE JBSSiteID = ?" 
Recordset1_cmd.Prepared = true
Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 5, 1, -1, Recordset1__MMColParam) ' adDouble
 
Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>
<%
Dim USERS__MMColParam
USERS__MMColParam = "0"
If (Session("SITEID")  <> "") Then 
  USERS__MMColParam = Session("SITEID") 
End If
%>
<%
Dim USERS__MMColParam2
USERS__MMColParam2 = "%"
If (Session("NEWVACANCYLOCATION")  <> "") Then 
  USERS__MMColParam2 = Session("NEWVACANCYLOCATION") 
End If
%>
<%
Dim USERS__MMColParam3
USERS__MMColParam3 = "%"
If (Session("NEWVACANCYCATEGORY")   <> "") Then 
  USERS__MMColParam3 = Session("NEWVACANCYCATEGORY")  
End If
%>
<%
Dim USERS__MMColParam4
USERS__MMColParam4 = "%"
If (Session("NEWVACANCYDESCRIPTION")   <> "") Then 
  USERS__MMColParam4 = Session("NEWVACANCYDESCRIPTION")  
End If
%>
<%
Dim USERS
Dim USERS_cmd
Dim USERS_numRows
 
Set USERS_cmd = Server.CreateObject ("ADODB.Command")
USERS_cmd.ActiveConnection = MM_recruta2_STRING
USERS_cmd.CommandText = "SELECT COUNT(JBENusername) As USERS FROM dbo.JBEmailNotification WHERE JBENsiteID = ? AND JBENlocation = ? AND JBENcategory = ? AND ? like '%' + JBENKeyword + '%'" 
USERS_cmd.Prepared = true
USERS_cmd.Parameters.Append USERS_cmd.CreateParameter("param1", 5, 1, -1, USERS__MMColParam) ' adDouble
USERS_cmd.Parameters.Append USERS_cmd.CreateParameter("param2", 200, 1, 255, USERS__MMColParam2) ' adVarChar
USERS_cmd.Parameters.Append USERS_cmd.CreateParameter("param3", 200, 1, 255, USERS__MMColParam3) ' adVarChar
USERS_cmd.Parameters.Append USERS_cmd.CreateParameter("param4", 200, 1, 4000, USERS__MMColParam4) ' adVarChar
 
Set USERS = USERS_cmd.Execute
USERS_numRows = 0
%>
<%
Dim VACANCY__MMColParam
VACANCY__MMColParam = "0"
If (Session("NEWVACANCY") <> "") Then 
  VACANCY__MMColParam = Session("NEWVACANCY")
End If
%>
<%
Dim VACANCY__MMColParam2
VACANCY__MMColParam2 = "0"
If (Session("EMPLOYEEID") <> "") Then 
  VACANCY__MMColParam2 = Session("EMPLOYEEID")
End If
%><%
Dim VACANCY__MMColParam3
VACANCY__MMColParam3 = "0"
If (Session("SITEID") <> "") Then 
  VACANCY__MMColParam3 = Session("SITEID")
End If
%><%
Dim VACANCY
Dim VACANCY_cmd
Dim VACANCY_numRows
 
Set VACANCY_cmd = Server.CreateObject ("ADODB.Command")
VACANCY_cmd.ActiveConnection = MM_recruta2_STRING
VACANCY_cmd.CommandText = "SELECT JBAID, JBAEmployeeID, JBASiteID, JBATitle, JBADatePosted, JBADescription, JBAPayRate, JBALocation, JBAEmplymentType, JBAReference, JBAConkersEmail FROM dbo.JBAdvert WHERE JBATitle = ? AND JBAEmployeeID = ? AND JBASiteID = ? AND JBADatePosted BETWEEN DATEADD(mi, -3, GETDATE()) AND GETDATE()" 
VACANCY_cmd.Prepared = true
VACANCY_cmd.Parameters.Append VACANCY_cmd.CreateParameter("param1", 200, 1, 255, VACANCY__MMColParam) ' adVarChar
VACANCY_cmd.Parameters.Append VACANCY_cmd.CreateParameter("param2", 5, 1, -1, VACANCY__MMColParam2) ' adDouble
VACANCY_cmd.Parameters.Append VACANCY_cmd.CreateParameter("param3", 5, 1, -1, VACANCY__MMColParam3) ' adDouble
 
Set VACANCY = VACANCY_cmd.Execute
VACANCY_numRows = 0
%>
<%Session("JBESENT") = (USERS.Fields.Item("USERS").Value)%>
<%
Dim ObjSendMail
Dim iConf
Dim Flds
Set ObjSendMail = Server.CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup"
Flds.Update
EmployeeName=(Session("EMPLOYEENAME"))
strVacancy=(VACANCY("JBATitle"))
URLShort=(Recordset1("JBSURLShort"))
ReplyMail=(Recordset1("JBSNoReplyEmail"))
ConkerEmail=(VACANCY("JBAConkersEmail"))
RecEmail=(username("JBEUsername"))
Set ObjSendMail.Configuration = iConf
ObjSendMail.To = RECEmail
ObjSendMail.Subject = "Job Advert " & strVacancy & " posted on  " & URLShort
ObjSendMail.From = ReplyMail
if VACANCY("JBAConkersEmail")="" then
ObjSendMail.Bcc = ConkerEmail
else
end if
ObjSendMail.ReplyTo = APEmail     
ObjSendMail.TextBody = "Dear " & EmployeeName & "," & vbCRLF & "" & vbCRLF & "Your vacancy titled " & strVacancy & " has successfully been posted on " & URLShort & "" & vbCRLF & "" & vbCRLF & "Kind regards"
ObjSendMail.Send
     
Set ObjSendMail = Nothing
%>
<%
if not jbeusers.eof then
do while not jbeusers.eof
Set myMail=CreateObject("CDO.Message")
Vacancy=(VACANCY("JBATitle"))
URLShort=(Recordset1("JBSURLShort"))
ReplyMail=(Recordset1("JBSNoReplyEmail"))
myMail.Subject= "Job Advert " & Vacancy & " advertised on  " & URLShort
myMail.From= ReplyMail
myMail.To= ""& jbeusers("JBENusername")&"; "
myMail.CreateMHTMLBody= "../jobseeker/afterregistration/vacancynotification.asp?ID=" & (VACANCY.Fields.Item("JBAID").Value) & ""
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.domain.com"
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
 
jbeusers.MoveNext 
Loop
Set jbeusers = nothing 
objConn.close
end if
%>
<%
' WA Application Builder Insert
if ("" = "")  then
  WA_connection = MM_recruta2_STRING
  WA_table = "dbo.JBESent"
  WA_sessionName = "JBESent_JBESID"
  WA_redirectURL = "success.asp"
  WA_keepQueryString = false
  WA_indexField = "JBESID"
  WA_fieldNamesStr = "JBESSiteID|JBESJobID|JBESLocation|JBESCategory|JBESReceipients"
  WA_fieldValuesStr = "" & cStr( Session("SITEID") ) & "" & "|" & "" & cStr((VACANCY.Fields.Item("JBAID").Value)) & "" & "|" & "" & cStr( Session("NEWVACANCYLOCATION") ) & "" & "|" & "" & cStr( Session("NEWVACANCYCATEGORY") ) & "" & "|" & "" & cStr( Session("JBESENT") ) & ""
  WA_columnTypesStr = "none,none,NULL|none,none,NULL|',none,''|',none,''|none,none,NULL"
  WA_comparisonStr = " = | = | LIKE | LIKE | = "
  WA_fieldNames = Split(WA_fieldNamesStr,"|")
  WA_fieldValues = Split(WA_fieldValuesStr,"|")
  WA_columns = Split(WA_columnTypesStr,"|")
  WA_comparisions = Split(WA_comparisonStr, "|")
 
  insertParamsObj = WA_AB_generateInsertParams(WA_fieldNames, WA_columns, WA_fieldValues, -1)
  set MM_editCmd = Server.CreateObject("ADODB.Command")
  MM_editCmd.ActiveConnection = WA_connection
  MM_editCmd.CommandText = "INSERT INTO " & WA_table & " (" & insertParamsObj(1) & ") VALUES (" & insertParamsObj(2) & ")"
  MM_editCmd.Execute()
  MM_editCmd.ActiveConnection.Close()
  obj = WA_AB_generateWhereClause(WA_fieldNames, WA_columns, WA_fieldValues, WA_comparisions)
  sqlstr = "SELECT " & WA_indexField & " FROM " & WA_table & " WHERE " &  obj & " ORDER BY " & WA_indexField & " DESC"
  set WA_AppBuilderRecordset = Server.CreateObject("ADODB.Recordset")
  WA_AppBuilderRecordset.ActiveConnection = WA_connection
  WA_AppBuilderRecordset.Source = sqlstr
  WA_AppBuilderRecordset.CursorType = 0
  WA_AppBuilderRecordset.CursorLocation = 2
  WA_AppBuilderRecordset.LockType = 1
  WA_AppBuilderRecordset.Open()
  if (NOT WA_AppBuilderRecordset.EOF)  then  Session(WA_sessionName) = WA_AppBuilderRecordset.Fields.Item(WA_indexField).Value
  WA_AppBuilderRecordset.Close()
  if (WA_redirectURL <> "")  then
    if (WA_keepQueryString AND Request.QueryString <> "" AND Request.QueryString.Count > 0) then
      if (inStr(WA_redirectURL,"?") > 0)  then
        WA_redirectURL = WA_redirectURL & "&"
      else
        WA_redirectURL = WA_redirectURL & "?"
      end if
      WA_redirectURL = WA_redirectURL & Request.QueryString
    end if
    Response.Redirect(WA_redirectURL)
  end if
end if
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them
 
If (jbeusers_total = -1) Then
 
  ' count the total records by iterating through the recordset
  jbeusers_total=0
  While (Not jbeusers.EOF)
    jbeusers_total = jbeusers_total + 1
    jbeusers.MoveNext
  Wend
 
  ' reset the cursor to the beginning
  If (jbeusers.CursorType > 0) Then
    jbeusers.MoveFirst
  Else
    jbeusers.Requery
  End If
 
  ' set the number of rows displayed on this page
  If (jbeusers_numRows < 0 Or jbeusers_numRows > jbeusers_total) Then
    jbeusers_numRows = jbeusers_total
  End If
 
  ' set the first and last displayed record
  jbeusers_first = 1
  jbeusers_last = jbeusers_first + jbeusers_numRows - 1
  
  If (jbeusers_first > jbeusers_total) Then
    jbeusers_first = jbeusers_total
  End If
  If (jbeusers_last > jbeusers_total) Then
    jbeusers_last = jbeusers_total
  End If
 
End If
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>vacancypost</title>
<meta name="Robots" content="noindex,nofollow" />
</head>
 
<body>
<%=(VACANCY.Fields.Item("JBATitle").Value)%>
</body>
</html>
<%
username.Close()
Set username = Nothing
%>
<%
jbeusers.Close()
Set jbeusers = Nothing
%>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
USERS.Close()
Set USERS = Nothing
%><%
VACANCY.Close()
Set VACANCY = Nothing
%>
                                              
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:
276:
277:
278:
279:
280:
281:
282:
283:
284:
285:
286:
287:
288:
289:
290:
291:
292:
293:
294:
295:
296:
297:
298:
299:
300:
301:
302:
303:
304:
305:
306:
307:
308:
309:
310:
311:
312:
313:
314:
315:
316:
317:
318:
319:
320:
321:
322:
323:
324:
325:
326:
327:
328:
329:
330:
331:
332:
333:
334:
335:
336:
337:
338:
339:
340:
341:
342:
343:
344:
345:
346:
347:
348:
349:
350:
351:
352:
353:
354:
355:
356:
357:
358:
359:
360:
361:
362:
363:
364:
365:
366:
367:
368:
369:
370:
371:
372:
373:
374:
375:
376:
377:
378:
379:
380:
381:
382:
383:
384:
385:
386:
387:
388:
389:
390:
391:
392:
393:
394:
395:
396:
397:
398:
399:
400:
401:
402:
403:
404:
405:
406:
407:
408:
409:
410:
411:
412:
413:
414:
415:
416:
417:
418:
419:
420:
421:
422:
423:
424:
425:
426:
427:
428:
429:
430:
431:
432:
433:
434:
435:
436:
437:
438:
439:
440:
441:
442:
443:
444:
445:
446:
447:
448:
449:
450:
451:
452:
453:
454:

Select allOpen in new window

 

by: carrzkissPosted on 2009-07-10 at 08:47:32ID: 24824524

>>Project done....
I wish, I posponed the release as I found some bugs (Actually my son foung a HUGE bug.
Inserting Email address without proper validation would allow a person to enter a address as:
something.com   <-- as you can tell, there is no @ )
Along with a few other issues, so I am going to spend this afternoon and the entire weekend
Getting it working properly, and then I will release it hopefully on Monday. Hopefuly.(Finger crossed)
----------------
Replace your code
myMail.CreateMHTMLBody= "../jobseeker/afterregistration/vacancynotification.asp?ID=" & (VACANCY.Fields.Item("JBAID").Value) & ""

With this code
myMail. CreateMHTMLBody = "../jobseeker/afterregistration/vacancynotification.asp?ID=" &VACANCY("JBAID")

 

by: garethtnashPosted on 2009-07-10 at 08:52:09ID: 24824571

Sorry buddy still getting the same problem,... can't however wait to see your project!

If I can be of any help please let me know

GTN

 

by: carrzkissPosted on 2009-07-10 at 09:26:31ID: 24824917

try with just this
myMail. CreateMHTMLBody = "../jobseeker/afterregistration/vacancynotification.asp?ID="

 

by: garethtnashPosted on 2009-07-13 at 02:27:32ID: 24838133

Hi Wayne,

Hope you are well, and had a productive weekend? Ok the problem has slightly changed now -

 
Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'myMail.CreateMHTMLBody'
/conkers/vacancypost3.asp, line 322

Any ideas?

Thanks mate

 

by: carrzkissPosted on 2009-07-13 at 10:39:33ID: 24842001

change
myMail.CreateMHTMLBody
to
myMail.CreateHTMLBody

 

by: garethtnashPosted on 2009-07-13 at 14:02:33ID: 24843910

Sorry mate new problem -

 
Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'myMail.CreateHTMLBody'
/conkers/vacancypost3.asp, line 322

:-)

 

by: carrzkissPosted on 2009-07-13 at 16:56:56ID: 24845129

I found the problem.
Remove the = (Equal sign)
myMail.CreateMHTMLBody= "../jobseeker/afterregistration/vacancynotification.asp?ID=" & (VACANCY.Fields.Item("JBAID").Value) & ""

To this
myMail.CreateMHTMLBody "../jobseeker/afterregistration/vacancynotification.asp?ID=" & (VACANCY.Fields.Item("JBAID").Value) & ""


Sorry I did not get back to you sooner, I have just been put under the gun to get this site out.
(Financial Issues)
So, that has become priority #1.

I have just done some major improvements to the site.
And am going to try to release by Early Tomorrow Morning if possible.. Fingers Crossed.

Carrzkiss

 

by: garethtnashPosted on 2009-07-14 at 00:22:20ID: 24846933

Don't apologise mate, you're being extremely helpful as usual, sorry to say this but still getting the same error message -

"  
Microsoft VBScript runtime error '800a01b6'
Object doesn't support this property or method: 'myMail.CreateHTMLBody'
/conkers/vacancypost3.asp, line 322 "

Help!!

 

by: carrzkissPosted on 2009-07-14 at 09:41:34ID: 24851508

Hopefully this will take care of the issue for you.
It seems that the CreateMHTMLBody
Is not longer supported.

Hope this does it.

Carrzkiss

' add function at the top of your ASP Script
Function GetRemoteFile(strURL)
	Dim objXML, strContents, arrLines
	Set objXML=Server.CreateObject("Microsoft.XMLHTTP")
	
	'read text file...
	objXML.Open "GET", strURL, False
	objXML.Send
	GetRemoteFile = objXML.ResponseText
	Set objXML=Nothing
End Function
' end function
 
' Replace your existing with this.
myMail.HTMLBody = GetRemoteFile("../jobseeker/afterregistration/vacancynotification.asp?ID=" & (VACANCY.Fields.Item("JBAID").Value) & "")"

                                              
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

Select allOpen in new window

 

by: garethtnashPosted on 2009-07-14 at 10:43:17ID: 24852108

Sorry Mate, please could you explain a little more...

 

by: carrzkissPosted on 2009-07-14 at 10:54:02ID: 24852215

The function, add it in your page somewhere.
Then replace
========
myMail.CreateMHTMLBody= "../jobseeker/afterregistration/vacancynotification.asp?ID=" & (VACANCY.Fields.Item("JBAID").Value) & ""
========
With this
========
myMail.HTMLBody = GetRemoteFile("../jobseeker/afterregistration/vacancynotification.asp?ID=" & (VACANCY.Fields.Item("JBAID").Value) & "")"
========

 

by: garethtnashPosted on 2009-07-14 at 14:04:47ID: 24854055

Hi Mate Sorry to do this to you, my code now looks like below, but I get the following error -

error '80004005'
/conkers/vacancypost3.asp, line 317

Where line 317 is -

objXML.Open "GET", strURL, False

Any thoughts?

Thank you

<%Function GetRemoteFile(strURL)
	Dim objXML, strContents, arrLines
	Set objXML=Server.CreateObject("Microsoft.XMLHTTP")
	
	'read text file...
	objXML.Open "GET", strURL, False
	objXML.Send
	GetRemoteFile = objXML.ResponseText
	Set objXML=Nothing
End Function
' end function%>
<%
if not jbeusers.eof then
do while not jbeusers.eof
Set myMail=CreateObject("CDO.Message")
strVacancy=(VACANCY("JBATitle"))
URLShort=(Recordset1("JBSURLShort"))
ReplyMail=(Recordset1("JBSNoReplyEmail"))
myMail.Subject= "Job Advert " & strVacancy & " advertised on  " & URLShort
myMail.From= ReplyMail
myMail.To= ""& jbeusers("JBENusername")&"; "
myMail.HTMLBody = GetRemoteFile("../jobseeker/afterregistration/vacancynotification.asp?ID=" & (VACANCY.Fields.Item("JBAID").Value) & "")
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.domain.com"
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
 
jbeusers.MoveNext 
Loop
Set jbeusers = nothing 
objConn.close
end if
%>

                                              
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

Select allOpen in new window

 

by: garethtnashPosted on 2009-07-15 at 03:53:58ID: 24857930

Hi Mate,

Hope all is well? I've revised the code a little, so it now reads like below, one small problem though, when I test i do get an email(text), the problem is all tells me is -


./jobseeker/afterregistration/vacancynotification.asp?ID=7513

Any thoughts

<%Function GetRemoteFile(strURL)
 Dim objXML, strContents, arrLines
 Set objXML=Server.CreateObject("Microsoft.XMLHTTP")
 
 'read text file...
 objXML.Open "GET", strURL, False
 objXML.Send
 GetRemoteFile = objXML.ResponseText
 Set objXML=Nothing
End Function
' end function%>
<%
if not jbeusers.eof then
do while not jbeusers.eof
Set myMail=CreateObject("CDO.Message")
strVacancy=(VACANCY("JBATitle"))
URLShort=(Recordset1("JBSURLShort"))
ReplyMail=(Recordset1("JBSNoReplyEmail"))
HTMLBOD=("../jobseeker/afterregistration/vacancynotification.asp?ID=" & (VACANCY.Fields.Item("JBAID").Value) & "")
myMail.Subject= "Job Advert " & strVacancy & " advertised on  " & URLShort
myMail.From= ReplyMail
myMail.To= ""& jbeusers("JBENusername")&"; "
myMail.HTMLBody = HTMLBOD
myMail.Send
set myMail=nothing
 
jbeusers.MoveNext 
Loop
Set jbeusers = nothing 
end if
%> 
                                              
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

Select allOpen in new window

 

by: carrzkissPosted on 2009-07-15 at 10:41:21ID: 24861921

Line 19
HTMLBOD=
Shouldn't that be
myMail.HTMLBody = GetRemoteFile("../jobseeker/afterregistration/vacancynotification.asp?ID=" & (VACANCY.Fields.Item("JBAID").Value) & "")"

 

by: garethtnashPosted on 2009-07-15 at 11:23:31ID: 24862441

tried that, it didn't work, sorry

 

by: carrzkissPosted on 2009-07-15 at 14:16:04ID: 24864288

As long as you have that Function somewhere at the top of the page.
Please try this code, this is the way the function is suppose to work.
If it does not work, then I will have to test it later on.
As I am still working on my site, and it has not been released yet.
I keep on getting bugs, and killing them off 1 by 1.

So, try this code here, and see what happens.

Carrzkiss

<%Function GetRemoteFile(strURL)
 Dim objXML, strContents, arrLines
 Set objXML=Server.CreateObject("Microsoft.XMLHTTP")
 
 'read text file...
 objXML.Open "GET", strURL, False
 objXML.Send
 GetRemoteFile = objXML.ResponseText
 Set objXML=Nothing
End Function
' end function%>
<%
if not jbeusers.eof then
do while not jbeusers.eof
Set myMail=CreateObject("CDO.Message")
strVacancy=(VACANCY("JBATitle"))
URLShort=(Recordset1("JBSURLShort"))
ReplyMail=(Recordset1("JBSNoReplyEmail"))
myMail.Subject= "Job Advert " & strVacancy & " advertised on  " & URLShort
myMail.From= ReplyMail
myMail.To= ""& jbeusers("JBENusername")&"; "
myMail.HTMLBody = GetRemoteFile("../jobseeker/afterregistration/vacancynotification.asp?ID=" & (VACANCY.Fields.Item("JBAID").Value) & "")"
myMail.Send
set myMail=nothing
 
jbeusers.MoveNext 
Loop
Set jbeusers = nothing 
end if
%> 

                                              
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

Select allOpen in new window

 

by: garethtnashPosted on 2009-07-15 at 14:43:16ID: 24864505

Sorry mate that gives me the following -

error '80004005'
/conkers/vacancypost3.asp, line 317

Sorry to hear about your bugs, I know the feeling!

 

by: carrzkissPosted on 2009-07-15 at 16:04:24ID: 24864989

That means that the code is working !!!
So, that is a good error (To a point, bad for ciphering it out)

Is there anything else with that error?
==================================
error '80004005'
/conkers/vacancypost3.asp, line 317
==================================
There should be something else? I need to know the rest of it.
The [80004005] can be a multitude of things

Carrzkiss

 

by: garethtnashPosted on 2009-07-16 at 01:48:47ID: 24867508

Sorry mate there is nothing else with the error, I have registered to get an email when the test advert is posted, but nothing came through, interestingly line 317 is -

objXML.Open "GET", strURL, False

of -

<%Function GetRemoteFile(strURL)
Dim objXML, strContents, arrLines
Set objXML=Server.CreateObject("Microsoft.XMLHTTP")

 'read text file...
objXML.Open "GET", strURL, False
objXML.Send
GetRemoteFile = objXML.ResponseText
Set objXML=Nothing
End Function
' end function%>

Have i missed something in this function?

Cheers

 

by: garethtnashPosted on 2009-07-16 at 04:45:03ID: 24868468

Hi Mate,

I've tried something else (Sorry), this works in that it processes the page ands redirects to the success page, but no email is sent, apparently I've missed the send function, I'm just not to sure where it goes, or how it should look?

Any thoughts?

Thanks mate, hope you are almost done :-)

<% if not jbeusers.eof then
do while not jbeusers.eof
strVacancy=(VACANCY("JBATitle"))
URLShort=(Recordset1("JBSURLShort"))
ReplyMail=(Recordset1("JBSNoReplyEmail"))
HTMLBOD=("http://www.hampshirejobsonline.co.uk/jobseeker/afterregistration/vacancynotification.asp?ID=" & (VACANCY.Fields.Item("JBAID").Value) & "")
Dim  FromAddress
FromAddress = ReplyMail
Dim  FromName
FromName = ReplyMail
Dim  ToAddress
ToAddress = ""& jbeusers("JBENusername")&"; "
Dim  Subject
Subject = "Job Advert " & strVacancy & " advertised on  " & URLShort
Dim  url
url = "http://www.hampshirejobsonline.co.uk/jobseeker/afterregistration/vacancynotification.asp?ID=" & (VACANCY.Fields.Item("JBAID").Value) & ""
' for CDO.Message: 
set cdoM = CreateObject("CDO.Message") 
set cdoC = CreateObject("CDO.Configuration") 
Set cdoF = cdoC.Fields 
With cdoF 
.Item(cdoURL & "sendusing") = 1
.Update 
End With 
Set cdoM = Nothing 
Set cdoS = Nothing 
Set cdoF = Nothing
jbeusers.MoveNext 
Loop
Set jbeusers = nothing 
end if
%>

                                              
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

Select allOpen in new window

 

by: carrzkissPosted on 2009-07-16 at 10:11:22ID: 24871322

you keep on changing your code on me, and it is a bit confusing.
So, I am going to give it a shot and say

line 23
.Update
and this below it
.Send

So it should look like this

.Update
.Send

And I really do not know if that is going to work, as I do not know the way you have your code done.
I do not do it that way.

Good Luck

 

by: garethtnashPosted on 2009-07-16 at 12:28:53ID: 24872857

tried that mate, no joy :-( how about if we stick to the code we had yesterday, any idea what is causing the -

error '80004005'
/conkers/vacancypost3.asp, line 317

Error?

Thanks mate

 

by: carrzkissPosted on 2009-07-16 at 13:02:19ID: 24873227

Please explain to me exactly what you are trying to accomplish with this code?

Are you wanting to send information (HTML Page) in the BODY of the Email?
Is that what you are wanting to do?

If that is what you are trying to do, then you can accomplish that by using what I have all in my
Site's Generated Email.
Heck, I even send out Emails with Images of the people and information about them, with
Their login credentials.

And the only thing that I use is;
the first line    
>>>         myMail.HTMLBody = "
Gets a single. Every line there after you have to do double with the &
>>>         myMail.HTMLBody = myMail.HTMLBody &"

myMail.HTMLBody = "<table id=""BannerTD""><tr><td style=""width:360px"" id=""BadImageTD"" ><img id=""MainLOGO"" name=""BusinessImage"" src=""http://"&strurl&"/images/Logo.jpg"" alt=""site Logo"" style=""background-color: #003366"" /> </td></tr></table>"
myMail.HTMLBody = myMail.HTMLBody &"<p>We would like to let you know that <strong>"&FN&" "&LN&"</strong> has reached his Goal!<br />"


And so forth.
This is the best way to accomplish it.
This is what I do, and it works like an absolute charm.

Have to get back to the site.
I am releasing it this evening sometime.
Seems that everything is working good, Except for the [Opera Browser]
It has a few problems rendering some of the pages, but not a HUGE deal.
Just displays some of the Javascript to the page, at least it is not
The sensitive ASP Code that gets rendered to the page, right? Right

Good Luck
Carrzkiss

 

by: garethtnashPosted on 2009-07-31 at 03:21:24ID: 24987511

Hi Mate,

Sorry for the sudden lack of contact, have been on holiday, hope the site launch went well? Do let me see the site?

Right I think I've got what you mean, and have rewritten that particular code so that it reads like below, however now I get a -

"  
Microsoft VBScript compilation error '800a0401'
Expected end of statement
/conkers/vacancypost3.asp, line 322 myMail.HTMLBody = "<table width="100%" border="0" cellspacing="0" cellpadding="0" style="background-color: #035591;"> "

Error, any thoughts? Cheers mate

<%
if not jbeusers.eof then
do while not jbeusers.eof
Set myMail=CreateObject("CDO.Message")
strVacancy=(VACANCY("JBATitle"))
URLShort=(Recordset1("JBSURLShort"))
ReplyMail=(Recordset1("JBSNoReplyEmail"))
myMail.Subject= "Job Advert " & strVacancy & " advertised on  " & URLShort
myMail.From= ReplyMail
myMail.To= ""& jbeusers("JBENusername")&"; "
myMail.HTMLBody = "<table width="100%" border="0" cellspacing="0" cellpadding="0" style="background-color: #035591;">
   <tr>
      <td align="center">
         
         <table width="600" border="0" cellspacing="0" cellpadding="0" style="background-color: #faf4dd;">
            <tr>
               <td align="center">
                  
                  <table width="580" border="0" cellspacing="10" cellpadding="0" style="background-color: #FFFFFF;">
                     <tr>
                        <td class="header" align="left">
                           <table width="100%" height="90" border="0" cellspacing="0" cellpadding="0">
                              <tr>
                                 <td><img src="http://www.hampshirejobsonline.co.uk/jobseeker/afterregistration/jobsbyemailhead.jpg" width="800" height="245" alt="Jobs by Email"></td>
                             </tr>
                           </table>
                        </td>
                     </tr>
                     <tr>
                        <td>
                           
                           <table width="100%" border="0" cellspacing="0" cellpadding="0">
                              <tr>
                                 <td style="font-family:Arial, Helvetica, sans-serif; text-align: left; vertical-align:top; width: 500px;">
                                    <h3 style="font-family: Arial; font-size: 16px; font-weight: bold; color: #CD6100; text-transform: none; margin: 22px 0px 0px 8px; padding: 0; text-transform:capitalize;">JOBTITLE</h3>
                                  <ul style="list-style:none; font-size:.8em; color: #333333; width: 468px; border:1px solid #000066; padding: 8px; background-color:#E9F0F8; text-transform:capitalize; margin: 20px 8px;">
                                    <li><label style="width:125px; clear:left; float:left;">Job Title:</label>
                                    JOBTITLE</li>
                                      <li><label style="width:125px; clear:left; float:left;">Reference:</label>
                                      REFERENCE</li>
                                     <li><label style="width:125px; clear:left; float:left;">Location:</label>
                                     LOCATION</li>
                                      <li><label style="width:125px; clear:left; float:left;">Payrate:</label>
                                      PAYRATE</li>
                                   </ul>
                                   <p style="font-family: Arial; font-size: 13px; font-weight: normal; color: #333333; font-size: 13px; Font-weight: normal; color: #4c4c4c; margin: 10px 0 0 9px; padding: 0">DESCRIPTION</p>
                                   <p style="font-family: Arial; font-size: 13px; font-weight: normal; color: #333333;	font-size: 13px; Font-weight: normal; color: #4c4c4c; margin: 10px 0 0 20px; padding: 0">&nbsp;</p>
                                   <h3 style="font-family: Arial; font-size: 14px; font-weight: bold; color: #CD6100; text-transform: none; margin: 0px 0px 0px 9px; padding: 0;"><a style="color:#CC6600" href="SITE/jobseeker/emailvacancylogin.asp?ID=8321">Click here to apply for this job</a></h3>
                                   <p style="font-family: Arial; font-size: 14px; font-weight: bold; color: #CD6100; text-transform: none; margin: 0px 0px 0px 9px; padding: 0;">&nbsp;</p>
                                   <p style="font-family: Arial; font-size: 14px; font-weight: bold; color: #CD6100; text-transform: none; margin: 0px 0px 0px 9px; padding: 0;">&nbsp;</p>
                                           <p style="font-family: Arial; font-size: 11px; color: #999999; text-transform: none; margin: 0px 0px 0px 9px; padding: 0;">You can unsubscribe to this notification by logging in to your control panel and deleting the notification.</p>
                                   </td>
                                <td width="300" class="mainbar" align="left" valign="top"><img src="http://www.hampshirejobsonline.co.uk/jobseeker/afterregistration/latestjobsdelivered.jpg" alt="Get the latest Hampshire Jobs by Email" width="300" height="346"></td>
                             </tr>
                          </table>
                           
                       </td>
                     </tr>
                     <tr>
                        <td height="80" class="footer" align="center">
                           <table width="100%" border="0" cellspacing="0" cellpadding="0">
                             <tr>
                               <td><img src="http://www.hampshirejobsonline.co.uk/jobseeker/afterregistration/footer.jpg" alt="The best jobs in Hampshire - HampshireJobsOnline.co.uk" width="800" height="180"></td>
                             </tr>
                           </table>
                           <table width="100%" border="0" cellspacing="0" cellpadding="0">
                             <tr>
                               <td style="height:120px;"><a href="http://www.sussexjobsonline.net/index.htm" target="_blank"><img src="http://www.hampshirejobsonline.co.uk/jobseeker/afterregistration/bannerback.jpg" alt="The Latest Jobs in Sussex are advertised on SussexJobsOnline.net" width="800" height="120" border="0"></a></td>
                             </tr>
                           </table></td>
                    </tr>
                     
                  </table>
                  
               </td>
            </tr>
         </table>
         
      </td>
   </tr>
</table>
"
myMail.Send
set myMail=nothing
 
jbeusers.MoveNext 
Loop
Set jbeusers = nothing 
end if
%>

                                              
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:

Select allOpen in new window

 

by: garethtnashPosted on 2009-08-12 at 03:55:08ID: 25077376

Hi Wayne,

Thanks for your help with the attached, I have now finally managed to get this working using the following code, but once again, not without your help.

Hope your Site has launched successfully.

GTN

<%
if not jbeusers.eof then
do while not jbeusers.eof
Set myMail=CreateObject("CDO.Message")
strVacancy=(VACANCY("JBATitle"))
URLShort=(Recordset1("JBSURLShort"))
strID=(VACANCY("JBAID"))
ReplyMail=(Recordset1("JBSNoReplyEmail"))
myMail.Subject= "Job Advert " & strVacancy & " advertised on  " & URLShort
myMail.From= ReplyMail
myMail.To= ""& jbeusers("JBENusername")&"; "
myMail.CreateMHTMLBody "http://www.site.co.uk/jobseeker/afterregistration/vacancynotification.asp?ID= "& strID &""
myMail.Send
set myMail=nothing
 
jbeusers.MoveNext 
Loop
Set jbeusers = nothing 
end if
%>

                                              
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

Select allOpen in new window

 

by: garethtnashPosted on 2009-08-12 at 03:55:33ID: 31600184

Excellent Guru!

 

by: carrzkissPosted on 2009-08-12 at 12:28:10ID: 25081963

glad you have it working.

Site launched, and with problems.
So I have spent the last 2 weeks redesigning some issues and fixing some security holes within the site.

I am looking at lauching the revised more securer site on Friday evening, in time for a complete weekend test, and then ready for Monday for promoting it to local business's.

Good Luck Gareth
Wayne

20120131-EE-VQP-002

3 Ways to Join

30-Day Free Trial

The Experts

98% positive feedback on 31,087 answers since March 2000. angeliii is a Microsoft Most Valuable Professional for his work with MS SQL Server & Develoment.

He has also proven his knowledge of Visual Basic Programming, PHP Scripting and Oracle Databases.

The Experts

97% positive feedback on 10,752 answers since July 2000. lrmoore has more than 18 years experience in the networking industry.

The six-time Mircosoft MVPs specialties include firewalls, virtual private networking, and network management.

Testimonials

"...and excellent source for support... Kind of like having your very own IT dept." Electriciansnet

Testimonials

"I was apprehensive at signing up at first. However... it has already made my life as an IT administrator much easier." JaCrews

Testimonials

"WOW! You guys have great, active, and knowledgeable people on here." moore50

Business Clients

Business Clients

In the Press

"If you’ve got a question... Experts Exchange can supply an answer.”

In the Press

"...an invaluable aid for both IT professionals and those who require tech support."

In the Press

"where IT professionals provide quick answers on just about any topic"

Business Account Plans

Loading Advertisement...