Registered Companies
Tuesday, February 24, 2009
10:00 a.m. - 4:00 p.m.
Sioux Falls Convention Center, 1211 N. West Ave., Sioux Falls, SD
Sponsored by the South Dakota Association of College Career Centers (SDACCC, formerly SDCPPA)
NOTE TO JOB FAIR PARTICIPANTS: Many of these companies have multiple positions currently available. If you are interested in a particular company, contact them in advance to let them know you will be at the BIG Job Fair. A complete and current list of positions will be available at the job fair.
<% Dim adoCon 'Holds the Database Connection Object Dim rsBigJob 'Holds the recordset for the records in the database Dim rsBigJobRecent Dim strSQL 'Holds the SQL query to query the database Dim strSQLID 'Create an ADO connection object Set adoCon = Server.CreateObject("ADODB.Connection") 'Set an active connection to the Connection object using a DSN-less connection adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/career/fpdb/csempbjfregister.mdb") 'Create an ADO recordset object Set rsBigJob = Server.CreateObject("ADODB.Recordset") Set rsBigJobRecent = Server.CreateObject("ADODB.Recordset") 'Initialise the strSQL variable with an SQL statement to query the database strSQL = "SELECT employers.empName, employers.empAddress, employers.empCity, employers.empState, employers.empZip, employers.contactPerson, employers.empWebAddress, employers.positionDescriptions FROM employers Order By employers.empName asc;" strSQLID = "SELECT employers.id, employers.empName, employers.empAddress, employers.empCity, employers.empState, employers.empZip, employers.contactPerson, employers.empWebAddress, employers.positionDescriptions FROM employers Order By employers.id desc;" 'Open the recordset with the SQL query rsBigJob.Open strSQL, adoCon rsBigJobRecent.Open strSQLID, adoCon 'Get 3 Most Recent Entries Response.Write ("
")
Dim i
for i= 1 to 3
Response.Write ("
")
Response.Write (rsBigJobRecent("empName"))
Response.Write ("
") '("
")
Response.Write (rsBigJobRecent("empAddress"))
Response.Write ("
")
Response.Write (rsBigJobRecent("empCity"))
Response.Write (", ")
Response.Write (rsBigJobRecent("empState"))
Response.Write (" ")
Response.Write (rsBigJobRecent("empZip"))
Response.Write ("
Contact Person: ")
Response.Write (rsBigJobRecent("contactPerson"))
Response.Write ("
URL: ")
Response.Write (rsBigJobRecent("empWebAddress"))
Response.Write ("
")
rsBigJobRecent.MoveNext
Next
Response.Write("
All Registered Companies:
")
'Loop through the recordset
Do While not rsBigJob.EOF
'Write the HTML to display the current record in the recordset
Response.Write ("
")
Response.Write (rsBigJob("empName"))
Response.Write ("
") '("
")
Response.Write (rsBigJob("empAddress"))
Response.Write ("
")
Response.Write (rsBigJob("empCity"))
Response.Write (", ")
Response.Write (rsBigJob("empState"))
Response.Write (" ")
Response.Write (rsBigJob("empZip"))
Response.Write ("
Contact Person: ")
Response.Write (rsBigJob("contactPerson"))
Response.Write ("
URL: ")
Response.Write (rsBigJob("empWebAddress"))
Response.Write ("
")
'Move to the next record in the recordset
rsBigJob.MoveNext
Loop
Response.Write("
© 2009 South Dakota Association of College Career Centers (SDACCC, formerly SDCPPA)