<% function logContact(ai_firstName, ai_lastName, ai_workPhone, ai_country, ai_candidateLevel, as_registered) Dim lo_ADODB_Connection set lo_ADODB_Connection = server.CreateObject("ADODB.Connection") lo_ADODB_Connection.Mode = 3 ' 3 = adModeReadWrite lo_ADODB_Connection.Open consts_CONNECTION_STRING_JOB_APP Dim ls_SQL ls_SQL = "Insert into LighthouseContacts ([first], [last], phone, country, [level], registered) values ('" & ai_firstName & "', '" & ai_lastName & "', '" & ai_workPhone & "', '" & ai_country & "', " & ai_candidateLevel & ", '" & as_registered & "')" 'response.Write("

" & ls_SQL & "

") lo_ADODB_Connection.Execute(ls_SQL) lo_ADODB_Connection.close set lo_ADODB_Connection = nothing end function function displayContacts(strWho) response.write "" & vbCrLf response.write "" & vbCrLf Dim lo_ADODB_Connection, ls_SQL, rsLHContacts Dim lsLimitWhere, lsWhere set lo_ADODB_Connection = server.CreateObject("ADODB.Connection") lo_ADODB_Connection.Mode = 3 ' 3 = adModeReadWrite lo_ADODB_Connection.Open consts_CONNECTION_STRING_JOB_APP ' lsLimitWhere = " where (insertion < DATE_SUB(curdate(), interval 1 day)) or isnull(insertion)" lsLimitWhere = " where insertion < (now() - 1) or isnull(insertion)" if strWho <> "ARAdmin" then lsWhere = lsLimitWhere else lsWhere = "" end if ls_SQL = "Select ID, first, last, phone, country, [level], registered from LighthouseContacts" & lsWhere & " order by ID desc" 'response.write "" & vbCrLf set rsLHContacts = CreateObject("ADODB.recordset") rsLHContacts.Open ls_sql, lo_ADODB_Connection while not rsLHContacts.EOF response.write "" & vbCrLf rsLHContacts.MoveNext wend rsLHContacts.Close lo_ADODB_Connection.close set rsLHContacts = nothing set lo_ADODB_Connection = nothing response.write "

ID	Name	Phone	Country	Test Level	Registered
" & ls_SQL & "
" & rsLHContacts("ID") response.write "	" & rsLHContacts("first") & " " & rsLHContacts("last") response.write "	" & rsLHContacts("phone") response.write "	" & rsLHContacts("country") response.write "	" & rsLHContacts("level") response.write "	" & rsLHContacts("registered") & "

" & vbCrLf end function function displayLightHouseOrders(strWho) response.write "" & vbCrLf response.write "" & vbCrLf Dim lo_ADODB_Connection, ls_SQL, rsLHOrders Dim lsLimitWhere, lsWhere set lo_ADODB_Connection = server.CreateObject("ADODB.Connection") lo_ADODB_Connection.Mode = 3 ' 3 = adModeReadWrite 'lo_ADODB_Connection.Open consts_CONNECTION_STRING_ARDB1 'lo_ADODB_Connection.Open "DSN=LocalARDBFE;" & _ ' "Uid=aradmin;" & _ ' "Pwd=polska" lo_ADODB_Connection.Open "Driver={Microsoft Access Driver (*.mdb)};" & _ "Dbq=\\boardwalk\newyorkavenue\ARFrontend.mdb;" & _ "Uid=aradmin;" & _ "Pwd=polska" ls_SQL = "select * from Contacts" 'ls_SQL = "show tables" set rsLHOrders = CreateObject("ADODB.recordset") rsLHOrders.Open ls_sql, lo_ADODB_Connection while not rsLHOrders.EOF 'response.write "" & vbCrLf response.write "" & vbCrLf rsLHOrders.MoveNext wend rsLHOrders.Close lo_ADODB_Connection.close set rsLHOrders = nothing set lo_ADODB_Connection = nothing response.write "

ID	Name	Phone	Country	Test Level
" & rsLHOrders("ID") 'response.write "	" & rsLHOrders("first") & " " & rsLHOrders("last") 'response.write "	" & rsLHOrders("phone") 'response.write "	" & rsLHOrders("country") 'response.write "	" & rsLHOrders("level") & "
" & rsLHOrder.fields.length & "

" & vbCrLf end function %>