<%  Set conn = Server.CreateObject("ADODB.Connection")
    conn.CursorLocation = adUseServer
    conn.open cStr_TMD

		If Request.QueryString("addroute") = 1 then
			if Request.QueryString("delloc") <> 1 then
			IF Request.querystring("addloc") <> 1 then
			sql = "execute dbo.app_insertroute @routecode='" & Request.QueryString("routecode") & _
					"',@routedesc='" & Request.QueryString("routedesc") & _
					"',@startdate='" & Request.QueryString("startdate") & _
					"',@enddate ='" & Request.QueryString("enddate") & _
					"',@servfreq ='" & Request.QueryString("servfreq") & _
					"',@statuscode ='" & Request.QueryString("status") & _
					"',@tempemp='" & Request.QueryString("tempemp") & _
					"',@permemp='" & Request.QueryString("permemp") & "'"
			set newroute = server.CreateObject("adodb.recordset")
			newroute.Open sql,conn,adOpenForwardOnly,adLockReadOnly
			routeid = newroute("routeid")
			newroute.Close
			sql = "execute dbo.app_selectroutebycode @routeid='" & routeid & "'"
			set rs= server.CreateObject("adodb.recordset")
			rs.Open sql,conn,adOpenForwardOnly,adLockReadOnly

		%>