<%@Language=vbscript%>
<%
On Error Resume Next
Response.Buffer=True
Response.Expires = -1000
'Make Connection for Page Data
Dim cn
Dim rs
Dim sql
'Open Database Connection
Set cn = Server.CreateObject("adodb.connection")
cn.ConnectionString = strconn
cn.Open
'Setup Query
sql = "Select * From CareersHomePage" 'Should Only Be One Record
'Open Recordset and Get page Data
Set rs = Server.CreateObject("adodb.recordset")
rs.ActiveConnection = cn
rs.Open sql
'Check for Errors...Display an Error Message
If (err.number <> 0) then
'Simple Error handling
Response.Write err.Description
End IF
%>
Marsh Furniture Company - Careers
