Looking for employment as a Dietitian?
Paid Job Posting Procedure
Submit Job Posting Online - Payment with
Pay Pal
<%
Set MyConn = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("jobline.mdb")
MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
%>
<%
jobs = 0
SQL_query = "SELECT COUNT(*) FROM jobline"
Set RS = MyConn.Execute(SQL_query)
jobs = cint(RS(0))
if jobs = 0 then
Response.Write("No new jobs available.")
end if
SQL_query = "Select * From jobline"
Set RS = MyConn.Execute(SQL_query)
while Not RS.eof
a1 = RS("pos_title")
a2 = RS("pos_desc")
a3 = RS("website")
a4 = RS("contactname")
a5 = RS("contactemail")
a6 = RS("address1")
a7 = RS("address2")
a8 = RS("city")
a9 = RS("state")
a10 = RS("zip")
a11 = RS("phone")
a12 = RS("fax")
a13 = RS("posted_date")
Response.Write(" ")
Response.Write(" ")
Response.Write(" | Position Title | ")
Response.Write(" " & a1 & " | ")
Response.Write(" ")
Response.Write(" ")
Response.Write(" | Position Description | ")
Response.Write(" " & a2 & " | ")
Response.Write(" ")
Response.Write(" ")
Response.Write(" | Website | ")
Response.Write(" " & a3 & " | ")
Response.Write(" ")
Response.Write(" ")
Response.Write(" | Contact Name | ")
Response.Write(" " & a4 & " | ")
Response.Write(" ")
Response.Write(" ")
Response.Write(" | Contact Email | ")
Response.Write(" " & a5 & " | ")
Response.Write(" ")
Response.Write(" ")
Response.Write(" | Address | ")
Response.Write(" " & a6 & " | ")
Response.Write(" ")
Response.Write(" ")
Response.Write(" | Address | ")
Response.Write(" " & a7 & " | ")
Response.Write(" ")
Response.Write(" ")
Response.Write(" | City | ")
Response.Write(" " & a8 & " | ")
Response.Write(" ")
Response.Write(" ")
Response.Write(" | State | ")
Response.Write(" " & a9 & " | ")
Response.Write(" ")
Response.Write(" ")
Response.Write(" | Zip | ")
Response.Write(" " & a10 & " | ")
Response.Write(" ")
Response.Write(" ")
Response.Write(" | Phone | ")
Response.Write(" " & a11 & " | ")
Response.Write(" ")
Response.Write(" ")
Response.Write(" | FAX | ")
Response.Write(" " & a12 & " | ")
Response.Write(" ")
Response.Write(" ")
Response.Write(" | Date Posted | ")
Response.Write(" " & a13 & " | ")
Response.Write(" ")
Response.Write(" ")
Response.Write("
")
RS.MoveNext
Wend
%>
Return to Iowa Dietetic Association Homepage
|
Please send comments, suggestions, or questions to: IDA Webmaster
|
| 
